Sayfaya Eklenen Kontrollerde TabIndex Özelliği

[orrhankaya]

Sayfaya Eklenen Kontrollerde TabIndex Ã?zelliği

Sayfa1'deki TextBox1'e veri girdikten sonra Enter tuşuna bastığımda CommandButton1 Aktiv hale gelsin,
Tekrar Enter tuşuna bastığımda CommandButto1_Click () olayı gerçekleşsin istiyorum.
Yardımcı olacaklara şimdiden teşekkür ederim.

 

[Haluk]

Sayfa modulüne yerleştirilecek kodlar:

Private Sub CommandButton1_Click()
    MsgBox "Merhaba"
End Sub
'
Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then CommandButton1_Click
End Sub
'
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then CommandButton1.Activate
End Sub

 

[orrhankaya]

Teşekkürler Haluk
Yaptım Oldu Çalışıyor.