CheckKeypress
No description provided.
AI
AI Samenvatting: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Broncode
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
Originele reacties (3)
Hersteld van de Wayback Machine