- Kod: Tümünü seç
Public ad As String
Public Sub ftus()
Altındaki MsgBoxları aşağıdaki gibi değiştirin.
- Kod: Tümünü seç
MsgBox ad & vbLf & "F5 bastınız"
EVN ClassModule deki her nesnenin koduna, aşağıdaki kodu nesnelere göre değiştirip deneyiniz....
- Kod: Tümünü seç
Public Sub TextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
evnTus = KeyCode
ad = TextBox.Name
Call ftus
End Sub