Visual Basic 6 key press

[leukonas]

θέλω όταν ο χρήστης πατάει το Enter να εκτελεί κάποιον κώδικα.

 

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyreturn Then

MsgBox "You Pressed Enter!"

End If

End Sub

 

Δοκίμασα αυτό αλλά δεν δούλεψε.

[PavelX]

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

KeyAscii = 0 'Xreiazetai gia na min akoustei to "BEEP" otan patas to ENTER.

MsgBox "Enter KEY Pressed"

End If

End Sub

[leukonas]

Φιλε μου το δοκίμασα αλλα δυστηχώς δεν δουλέυει.Κάνει απλά ενα μπιπ.

[leukonas]

Αλλά μάλλον κάτι άλλο φταίει γιατί το δοκίμασα σε κενούριο project και δούλεψε.Ευχαριστώ

[leukonas]

Το πρόβλημα είναι οτι όταν βάζω κάποια control πάνω στην φόρμα σταματαει να δουλεύει.Γιατι??

[sotospez]

giati perni to focus to contol panta kai oxi i forma

[firewalker]

Πρέπει να βάλεις την εντολή KeyPreview = True . Το Enter σου δημιουργεί πρόβλημα διότι είναι σαν να πατάς με το ποντίκι στο Control που έχει πάρει το focus. Έτσι η vb πάει να εκτελέσει τον κώδικα πίσω από το Control.

 

> Private Sub Form_Load()
   KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   Select Case KeyCode
       Case vbKeyA: MsgBox "You pressed A"
       Case vbKeyB: MsgBox "You pressed B"
       Case vbKeyF1: MsgBox "You pressed F1"
       Case vbKey1: MsgBox "You pressed 1"
   End Select
End Sub