Toggle Width

EndFRM
 
Konuyu Oyla:
  • Toplam: 28 Oy - Ortalama: 2.79
  • 1
  • 2
  • 3
  • 4
  • 5
GetAsyncKeyState Fonksiyonu
aboo67 Çevrimdışı Acemi Üye
*
Acemi Üye
Üye No: 415
Konu Sayısı:
Yorum Sayısı: 91
70
Yorum: #1
GetAsyncKeyState Fonksiyonu
GetAsyncKeyState fonksiyonu basit olarak tuşa basılı olup olmadıgını belirtir. bu mantık dorultusunda tuşlara işlem verebilirsiniz





Yazılı anlatım ve örnek ;

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Function Basılırsa(Key As Integer) As Boolean
Basılırsa = CBool(GetAsyncKeyState(Key)) 'GetAsyncKeyState(Key) Fonksiyonunu Basılırsa Olarak Degiştirdim
End Function
Private Sub Form_Load()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
'Koşul yaratıyoruz
'örnek Tuşlar
'vbKeySpace
'vbKeyF6
'vbKeyF2 gibi
If Basılırsa(vbKeyF9) Then ' F9 Basılırsa
MsgBox ("Aboo67") ' MsgBox acılcak
End If
End Sub

Bu konu en son: 01-07-2012 tarihinde, saat: 0:16 düzenlenmiştir. Konuyu düzenleyen: aboo67.
01-07-2012 0:11
Bul Alıntı
Sado Çevrimdışı Muhammet Çolak
*
Yeni Üye
Üye No: 1
Konu Sayısı:
Yorum Sayısı: 662
101
Yorum: #2
RE: GetAsyncKeyState Fonksiyonu
eline sağlık kardeşim

Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
___________________________________

[Resim: 9gmju.gif]
01-07-2012 11:28
Bul Alıntı


Hızlı Menü:


Şu anda bu konuyu okuyanlar: 1 Ziyaretçi