Visual Basic 2010 da butona kısayol tuşu nasıl eklenir ?
- Konuyu başlatan shapethis
- Başlangıç tarihi
Bu Projede Visual Basic'te Koyduğumuz Buton Veya CheckBox İçin Kısayol Eklemeyi Yani HotKeys Nasıl Eklenir Onu Göreceğiz.
Projeye Başlamadan Önce Forma
2 Adet CommandButton
2 Adette Timer Ekleyelim
Timer1 Enabled Kısmını = True ve İnterval Kısmını 100 Yapınız.
Timer2 Enabled Kısmını = False ve İntervalini 100 Yapınız.
Daha Sonra Formun (General) Üst Kısmına Aşağıdaki Code Yapıştırın.
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Sonra Forma Aşağıdaki Codeleri Yapıştırın.
Private Sub Command1_Click()
Timer2.Enabled = True
End Sub
Private Sub Command2_Click()
Timer2.Enabled = False
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyZ) Then Command1_Click
If GetAsyncKeyState(vbKeyA) Then Command2_Click
End Sub
Private Sub Timer2_Timer()
SendKeys ("toprak")
End Sub
Kırmızı Harfler Kısayol Tuşlarıdır Kendinize Göre Ayarlıyabilirsiniz.
Alıntıdır..
Projeye Başlamadan Önce Forma
2 Adet CommandButton
2 Adette Timer Ekleyelim
Timer1 Enabled Kısmını = True ve İnterval Kısmını 100 Yapınız.
Timer2 Enabled Kısmını = False ve İntervalini 100 Yapınız.
Daha Sonra Formun (General) Üst Kısmına Aşağıdaki Code Yapıştırın.
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Sonra Forma Aşağıdaki Codeleri Yapıştırın.
Private Sub Command1_Click()
Timer2.Enabled = True
End Sub
Private Sub Command2_Click()
Timer2.Enabled = False
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyZ) Then Command1_Click
If GetAsyncKeyState(vbKeyA) Then Command2_Click
End Sub
Private Sub Timer2_Timer()
SendKeys ("toprak")
End Sub
Kırmızı Harfler Kısayol Tuşlarıdır Kendinize Göre Ayarlıyabilirsiniz.
Alıntıdır..
- Durum
