Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_F1= &H70
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_F1) Then
'Yapılacak işlem
End If
End Sub
espri olduğunu anlamıştım da tam olarak ne olduğunu anlamadım ama sen söyleme ben kendimi geliştiriyorum zaten o kodları zamanla anlayacağım ve sana msj atıcam ne demek olduğunu ve kimseden yardımda almıcam iyi forumlar