Anasayfa > Kodlar > Visual Basic 6 ile F1 ve F2 tuşlarıyla tab ve shift+tab olayını oluşturmak

Visual Basic 6 ile F1 ve F2 tuşlarıyla tab ve shift+tab olayını oluşturmak


Biraz acemi olmama rağmen elimden gelen bu.

Private Sub text4_Keydown(Keycode As Integer, shift As Integer)
If Keycode = vbKeyF1 Then SendKeys "+{tab}"
If Keycode = vbKeyF2 Then SendKeys "{tab}"
End Sub
Private Sub text3_Keydown(Keycode As Integer, shift As Integer)
If Keycode = vbKeyF1 Then SendKeys "+{tab}"
If Keycode = vbKeyF2 Then SendKeys "{tab}"
End Sub
Private Sub text2_Keydown(Keycode As Integer, shift As Integer)
If Keycode = vbKeyF1 Then SendKeys "+{tab}"
If Keycode = vbKeyF2 Then SendKeys "{tab}"
End Sub
Private Sub text1_Keydown(Keycode As Integer, shift As Integer)
If Keycode = vbKeyF1 Then SendKeys "+{tab}"
If Keycode = vbKeyF2 Then SendKeys "{tab}"
End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: