[HaBo]

$oul

Anzeige

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

__________________
Der eigene Wille müsste stets ein wenig mächtiger sein, als es das eigene Selbst ist.
Aber Wunschdenken stellt ein Risiko dar und so etwas können wir uns in einem Weltkapitalismus nicht leisten.

Twips

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!

Tec

Das geht auch wenn der Button den Focus hat (Button.setFocus). Dann ist dieser schwarz umrandet und reagiert auf die Enter-Taste.

THRALL

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

Twips

Cool, hab ich noch gar nicht gewusst dass es DefaultButton gibt.... *g*
Das ist wohl die beste Lösung für das Problem

THRALL

Ach ja und bei .Net muss man bei den Form Eigenschaften unter DefaultButton den Gewünschten Button wählen.

$oul

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

__________________
Der eigene Wille müsste stets ein wenig mächtiger sein, als es das eigene Selbst ist.
Aber Wunschdenken stellt ein Risiko dar und so etwas können wir uns in einem Weltkapitalismus nicht leisten.