Bitte um Erläuterung: ByVal KeyAscii
04.08.2002 14:15:18
Ernst Dunkel
Bitte um Erläuterung: ByVal KeyAscii
In einer TextBox sollen nur ganze Zahlen eingegeben werden.
Zur Diskussion stehen zwei Varianten. Wodurch unterscheiden sich die beiden Prozeduren? Vor- und Nachteile?
Variante1:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.returninteger)
If Chr(KeyAscii) Like "[0-9]" = False Then KeyAscii = 0
End Sub
Variante2:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.returninteger)
Select Case KeyAscii
Case 48 To 57
Case Else: KeyAscii = 0
End Select
End Sub
Mit freundlichen Grüssen
Ernst