VB: CommandButton per Druck auf ENTER auslösen

$oul

$oul

0
Wie es der Titel schon sagt möchte ich einen CommandButton mit Druck auf ENTER auslösen. Geht das und wenn ja wie?

mfg $oul
 
Hi

Private Sub Text1_KeyPress(KeyAscii As Integer)
If keyascii=13 then Button_click
End Sub

Also in meinem Beispiel gibt es ein Textfeld Text1.
Wenn hier jemand Enter drückt (ASCII-Code: 13 bzw. vbEnter), dann wird das ausgeführt, was normalerweise beim Klicken auf den Button "Button" passieren würde.


Ich hoffe ich konnte dir helfen.

PS.: Du könntest auch alles in eine Funktion einbauen, die dann entweder über den Button oder über das drücken der Entertaste gestartet wird!
 
Das geht auch wenn der Button den Focus hat (Button.setFocus). Dann ist dieser schwarz umrandet und reagiert auf die Enter-Taste.
 
Defaultbutton

Du kannst auf der Form einen default Button und einen Cancel Button definieren
Der Defaultbutton wird "gedrückt" wenn man an einer beliebigen Stelle ENTER drückt
der Cancel Button tritt in aktion wenn ESC gedrückt wurde.

Zum Definieren gewünschten Button anwählen
Eigenschaft "Default Button" bzw "Cancel Button" (jeden falls heißen sie so ähnlich) auf True setzten
 
Cool, hab ich noch gar nicht gewusst dass es DefaultButton gibt.... *g*
Das ist wohl die beste Lösung für das Problem
 
Vielen Dank für die Hilfe, es funktioniert. Entschuldigung für die späte Antwort, aber ich war mit meiner Klasse auf Klassenfahrt in England.

mfg $oul
 
Um antworten zu können musst du eingeloggt sein.
Zurück
Oben