Visual Basic 2010 Express Kısayol Yardım
- Konuyu başlatan kursat789
- Başlangıç tarihi
Bunu Public Class Form1 ile end class yazısı arasına yapıştır 
olacaktır
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.F1 Then
Button1.PerformClick()
End If
If e.KeyCode = Keys.F2 Then
Button2.PerformClick()
End If
End Sub
olacaktır Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.F1 Then
Button1.PerformClick()
End If
If e.KeyCode = Keys.F2 Then
Button2.PerformClick()
End If
End Sub
Seçililik özelliği form da olsun o zaman f1 ve f2 ye bas olacaktır veya
Private Sub Button1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyDown
If e.KeyCode = Keys.F1 Then
Button1.PerformClick()
End If
End Sub
Private Sub Button2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button2.KeyDown
If e.KeyCode = Keys.F2 Then
Button2.PerformClick()
End If
End Sub
Bunu dene olacaktır
veya Private Sub Button1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyDown
If e.KeyCode = Keys.F1 Then
Button1.PerformClick()
End If
End Sub
Private Sub Button2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button2.KeyDown
If e.KeyCode = Keys.F2 Then
Button2.PerformClick()
End If
End Sub
Bunu dene olacaktır
- Konuyu başlatan
- #9
Seçililik özelliği form da olsun o zaman f1 ve f2 ye bas olacaktır
Private Sub Button1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyDown
If e.KeyCode = Keys.F1 Then
Button1.PerformClick()
End If
End Sub
Private Sub Button2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button2.KeyDown
If e.KeyCode = Keys.F2 Then
Button2.PerformClick()
End If
End Sub
Bunu dene olacaktır
f1 oldu ama f2 olmadı
Bak en iyisi şöyle yap
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Int16
üstteki kodu public class form1 in altına bir de timer ekle şu kodları yazarsan olacaktır
Dim hotkey1, hotkey2 As Boolean
hotkey1 = GetAsyncKeyState(Keys.f1)
hotkey2 = GetAsyncKeyState(Keys.f2)
If hotkey1 =true then
button1.performclick()
End If
If hotkey2 =true then
button2.performclick()
End If
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Int16
üstteki kodu public class form1 in altına bir de timer ekle şu kodları yazarsan olacaktır
Dim hotkey1, hotkey2 As Boolean
hotkey1 = GetAsyncKeyState(Keys.f1)
hotkey2 = GetAsyncKeyState(Keys.f2)
If hotkey1 =true then
button1.performclick()
End If
If hotkey2 =true then
button2.performclick()
End If
