Tastatureingabe

[5Rad]

Min Programmierergemeinde,

ich hab ne frage bzw. ein Problem und zwar:

Ich hb ne anmeldemaske. Wenn man nach der eingabe des Passworts die "CR" Taste drückt soll die Prüfungsrutine gestartet wrrden.#

nun ich weiß das es die KeyDown, KeyPress und KeyUp ereignise gibt.
Aber wie setze ich diese erfolgreich um?

Danke euch im Voraus für euere Bemühungen
lg
Piti

 

[Elvan]

Keiner?
Na denn...

mit KeyUp, KeyPress liegst Du schon richtig.
Es gibt immer mehrere Möglichkeiten! Aber eine davon ist:

Private Sub KeyPress (keycode, SHIFT)
if KeyCode <> 13 then Exit sub 'wenn Taste nicht Return, exit
KeyCode = 0 'das "ping" bei Return drücken weg machen

'Hier kommt das hin was Du bei Return ausführen möchtest...
End Sub

Ich hoffe ich konnte Dir damit weiterhelfen.

 

[5Rad]

Danke dir

Das siet gut aus. Nur hab ich das Problem das ich zwei Textboxen hab. txtUser und txtPassword. wie bekomm ich des nu hin das nur bei der txtPassword das Ereignis funktioniert?

lg Piti

 

[d2wap]

Indem du die Funktion auf die Textbox deiner Wahl bei der Aktion deiner Wahl legst...

 

[5Rad]

Des bring mich leider nicht weiter.
Wie macht man das?

lg
Piti

 

[Elvan]

Das geht so...

Du öffnest Dein Projekt und schaust Dir das betreffende Formular (z.B. Form1).
Jetzt Doppelklick auf die betreffende TextBox. Nun öffnet sich automatisch der Code Teil und Du hast schonmal eine "Private Sub" für die betreffende TextBox.(Ich hab leider nicht im Kopf welches Ereignis verknüpft ist, Du brauchst halt das KeyPress)
Wenns noch nicht KeyPress ist dann...
Den Cursor zwischen Private und End Sub.
In der oberen/rechten ComboBox, "KeyPress" auswählen.
Nun hast Du die entsprechende "KeyPress" Sub für Deine TextBox.
Jetzt die If Abfrage und deine Sachen.
Abschliessend nur noch die leeren automatisch erstellten Sub´s löschen und
fertig.
Wenn Dir das hilft, würde ich Dich gerne um eine Bewertung bitten.

 

[5Rad]

Wow
Danke dir ich wusste nicht, dass man die zwei verknüpfen kann.
Hab noch was kurz vor em Feierabend gelernt *lol*

Private Sub txtPassword_KeyPress(KeyAscii As Integer)
If KeyAscii <> 13 Then Exit Sub
Call cmdOK_Click
End Sub

Code hat sich bissle verändert!

Vielen Dank
wünsch euch ein schönes Wochenende
lg Piti

P.S. Deine Positive Bewertung hast du selbstverständlich bekommen