Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyReturn
' uygun kodlar
MsgBox "Sayın Okileturc sanırım bu daha fonksiyonel"
Case vbKeyF3
' f3 e göre işlem
Case vbKeyF4
' f4 e göre işlem
Case Else
End Select
End Sub
Cevapla