|
|
Der folgende Tip wandelt schon bei der Eingabe in eine Textbox alle Buchstaben von A-Z in Großbuchstaben um - ausser Ziffern und andere Zeichen.
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Grossbuchstaben(KeyAscii)
End Sub
Function Grossbuchstaben(KeyAscii As Integer)
If KeyAscii > 96 And KeyAscii < 123 Then
KeyAscii = KeyAscii - 32
End If
Grossbuchstaben = KeyAscii
End Function
|
|
|
|
|||
|
