• Home
 · 
• VB function enhancement
 · 
• CheckKeypress

CheckKeypress

Inputs
KeyAscii from controls keypress-event cAllowed as a string ("N" for numbers only...)

Assumes
Put the call in a controls keypress-event Ex: KeyAscii=CheckKeypress(KeyAscii, "N") Will only allow the user to enter digits in a control

Returns
KeyAscii for pressed key if ok or nothing and a beep for not ok

API Declarations



Rate CheckKeypress

• 1
• 2
• 3
• 4
• 5

(5(5 Vote))

Public Function CheckKeyPress(iKeyIn As Integer, cAllowed As String) As Integer
  Dim cValidKeys As String
  Select Case cAllowed
   Case "N" ' Just numbers
     cValidKeys = "1234567890" & vbCr & vbTab & vbBack
   Case "N1" ' Decimal numbers
     cValidKeys = "1234567890," & vbCr & vbTab & vbBack
   Case "N2" ' Simple math
     cValidKeys = "1234567890+-*/=," & vbCr & vbTab & vbBack
   Case "C" ' Simple characterset(I'm Swedish, hence some strange ones)
     cValidKeys = "ABCDEFGHIJKLMNOPQRSTUVWXYZÅÄÖAAÉEÜI- " & vbCr & vbTab & vbBack
   Case "C1" ' Enhanced characterset
     cValidKeys = "ABCDEFGHIJKLMNOPQRSTUVWXYZÅÄÖAAÉEÜI&#,.-/\+-*%$<>:;@!?=() " & vbCr & vbTab & vbBack
   Case "C2" ' Enhanced + digits
     cValidKeys = "ABCDEFGHIJKLMNOPQRSTUVWXYZÅÄÖAAÉEÜI1234567890½&#,.-/\+-*%$<>:;@!?=() " & vbCr & vbTab & vbBack
   Case "M" ' Mail and WWW
     cValidKeys = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890-_/\~:@." & vbCr & vbTab & vbBack
   Case "D" ' Date or telephonenumbers
     cValidKeys = "0123456789-" & vbCr & vbTab & vbBack
  End Select
  If InStr(cValidKeys, UCase(Chr(iKeyIn))) Then
     CheckKeyPress = iKeyIn
  Else
   Beep
   CheckKeyPress = 0
  End If
End Function