PDA

Vollständige Version anzeigen : Textfeld bearbeiten


Die Vollidioten
24.09.2003, 10:50
Hallo Leute,

ich häng mal wieder!

Und zwar hab ich ein Textfeld (Test). In diesem Feld können nicht mehr als 10 Zeichen eingegeben werden, diesen Code hab ich schon.

Aber....

jetzt soll der Courser wenn die 10 Zeichen erreicht sind zum Anfang dieses Textfeldes springen!


Mein Code


Private Sub test_KeyPress(KeyAscii As Integer)

If GetLenght(Me.Test, KeyAscii) = 10 Then

KeyAscii = 0
End If

End Sub



Bitte um Hilfe!

Danke

MRR
24.09.2003, 10:56
Hallo Namenloser,
Geht es damit?

Private Sub test_KeyPress(KeyAscii As Integer)
If Len(Test.Text) = 10 Then
KeyAscii = 0
SendKeys "{HOME}"
End If
End Sub

Die Vollidioten
24.09.2003, 11:00
Danke für die schnelle Antwort!

So einfach hät ich mir das nicht vorgestellt.
:)

Danke