VB6 Enter
lima-city → Forum → Programmiersprachen → Basic
-
ich muss gerade enter disablen bei meinem kleinen prog. das wenn man enter klickt kommt etwas wie das hier:
Private Sub Command1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then 'Aus einem Tutorial
MsgBox "Enter wurde gedr?ckt"
Else
MsgBox "Es wurde nicht Enter gedr?ckt"
End If
End Sub
das einzige problem is das vbKeyReturn nicht enter ist. ich brauch den Command vom enter. vbKeyReturn is die Return taste... ich hab schon gegoogelt und schon die Search hier benutzt.. also hilfe bitte (bin anf?nger in VB6)
Beitrag ge?ndert: 12.10.2006 13:10:31 von lichtdrache -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
ich muss gerade enter disablen bei meinem kleinen prog. das wenn man enter klickt kommt etwas wie das hier:
Private Sub Command1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then 'Aus einem Tutorial
MsgBox "Enter wurde gedr?ckt"
Else
MsgBox "Es wurde nicht Enter gedr?ckt"
End If
End Sub
das einzige problem is das vbKeyReturn nicht enter ist. ich brauch den Command vom enter. vbKeyReturn is die Return taste... ich hab schon gegoogelt und schon die Search hier benutzt.. also hilfe bitte (bin anf?nger in VB6)
Beitrag ge?ndert: 12.10.2006 13:10:31 von lichtdrache
"vbKeyReturn" ist die Taste "Enter" = "Return" !
Dein Code funktioniert. Allerdings nicht bei Command-Buttons, aber probier den Code z. B. bei einer Textbox aus, der Code ist korrekt.
Aber in VB6 wird beim Dr?cken der "Enter"-Taste bei einem Command-Button kein Ereignis ausgel?st, somit reagiert auch keine Ereignisabfrage darauf (also dein Code von "Command1_KeyPress"). Alle anderen Tasten k?nnen ?berpr?ft werden.
Das Ereignis der "Enter"-Taste bei Command-Buttons wird nur ausgel?st, wenn
- Strg+Enter
- Shift+Enter
- Alt+Enter
gedr?ckt wird. Ansonsten ist keine Abfrage, auch durch Umwege nicht m?glich.
?brigens ist es in VB7 und VB8 m?glich, dieses Ereignis abzufragen. -
ist das nicht folgendermaßen lösbar?
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
MsgBox "Enter wurde gedrückt"
End If
End Sub
13 ist dabei die ascii nummer aus der dazugehörigen tabelle. -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage