Forumdaki Cogu Konu Şu Tuşa Nasil Bastiririm Vs vs Uzerine.
Buyrun Kucuk Bir Ornek Yapalim. Diyelim ki Biz F10 Tuşuna Basilinca Bir işlem Yaptıracağız...
Oncelikle Yeni B,ir Proje Oluşturun ve Bir Timer Ekleyin.
Timer'in İnvertal'ini 100 Olarak Ayarlayin ( bu timer basilan tuşların durumunu takip edecek )
ve daha Sonra Direk Olarak Kodlarımızı Kopyalayin ve Yapıştırın
Kod:
' System Uzeirndeki Basilan Tuışların Sayısal Olarak Geri Donuslerini Dinleyeceğimiz Modulu Tanimladik. Private Declare Function GetKeyState Lib "user32" (ByVal vKey As Long) As Integer ' Eklediğimiz Timer'in Timer Yordamı. Private Sub Timer1_Timer() ' Burada Soyle Yaptık: ' Eğer Basilan Tuşun Sayısal Değeri 121 Ise Msgbox Ile Mesaj Yolla. If getKeyState(121) then msgbox "F10 Tusuna Basildi Hayirdir Bir Islemmi Yaptircan ?",vbinformation,"Tusa Basilmis Abi" end sub
Buradaki Ornekte Anlıyacağınız Şey Windows Uzeirnde Basisal Tuşlarla İligili Bir İşlem Yaptıracağımızda Windows Uzeirndeki Basilan Tuşları Dinlemek Gereklidir. Bu Dinleme İşlemi İcin 2 Modul Mevcut ve Bu Modulleri Kullanamk İcin Devamli Acik Bir Dongu Olmasi Gerekli. Bu Sonsuz Bir Dongu Veya Bir Timer'dir.
Modullerimiz :
GetAsyncKeyState
GetKeyState
Her Iki Modullede Aynı İşlemi Yapabiliriz..Daha Fazla Bilgi İcin MSDN'e Goz Atabilirsiniz...
Şimdi Yine Bir Ornek Yapalim.Bu Ornekte Ise F10'A basilirsa Devamli Enter Tuşuna Basilsin(Etkin Pencere Uzerinde Gecerli Olacaktir)VE Bir Daha Basilirsa Enter'a Basmayi Durdursun:..
Şimdi 2 Tane Timer'a Ihtiyacimiz Var. Biri Ile Basilan Tuşu Dinliyecek Ve Diğeri Enter'a Basacak.
2 Timer Ekliyelim Arkadaşlar Form Uzerine. Ve Code Kısmına Bunları Yapıştıralim..
Kod:
' System Uzeirndeki Basilan Tuışların Sayısal Olarak Geri Donuslerini Dinleyeceğimiz Modulu Tanimladik. Private Declare Function GetKeyState Lib "user32" (ByVal vKey As Long) As Integer Sub form_load() timer2.enabled = false end Sub Sub Timer1_Timer() ' Burada Dedikki Eğer F10'a Basilirsa ve F10'a Basildiğinda Timer2 Kapali Ise Hemen Ac Onu Ve İşlemden Cikiş Yap. ( ani bir alt satirdaki işlemleri es gectik.)Cıkış Yapmamız Bir Alttaki Satiri Okumadan Isleme Devam Etmesini Sağlamaktir. Eğer Bir Sonraki F10'a Basilirsa Bu İşlem timer2 Acik Oldugu İcin Calişmayacaktir. Cunku Kosulumuz F10'a Basilmasi ve Timer2.nin Kapali Durumda Olmasi Sonucu Yapılacak Islemdir... If getKeyState(121) Then If Timer2.Enabled = False Then Timer2.Enabled = True: Exit Sub ' Burada Aynı Sekilde Eğer F10'a basildiğinda Timer2. Aciksa Hemen Kapat ve İşlemden Cik. If getKeyState(121) Then If Timer2.Enabled = True Then Timer2.Enabled = False: Exit Sub End Sub Private Sub Timer2_Timer() ' Timer2 Acildiği Zman SendKeys Ile Hep Enter'yolla (burada enter tuşuna basilmiş gibi etki yapacak) SendKeys "" End Sub
Bu Kodları Kopyalayip Yapıştırdıgınızda Projeyi Caliştirirsanız,Proje Calişir Konumda Iken F10'a Basarsanız Devamlı Olarak Enter'a Basiyormuşsunuz Gibi Etki Yapacaktir
Neyse Umarım Anlamişsinizdir.
Kolay Gelsin Iyı Calışmalar.
__________________