Forum

VB.NET Tuş Algılama
 
Bildirimler
Hepsini Temizle

VB.NET Tuş Algılama

5 Yazılar
3 Üyeler
0 Reactions
3,189 Görüntüleme
(@cagatayaksoy)
Gönderiler: 95
Estimable Member
Konu başlatıcı
 

Klavyede basılan her tuşu bir defa gösterecek kod gerekiyor ? (Keylogger gibi değil!)

 

 If GetAsyncKeyState(65) And GetAsyncKeyState(66) Then 

            Me.Hide()

       End If

       

        If GetAsyncKeyState(66) And GetAsyncKeyState(67) Then

            Me.Show()

        End If 

 

 Şuradaki ascii kodlarını sonradan formda nasıl değiştirebilrim ?

Yani button a tıkladıktan sonra , timer çalışacak timerde basılan tuş kombinasyonunu algılayıp  yukarıda ki kod için kullanacak....

 
Gönderildi : 01/06/2015 06:45

(@eravse)
Gönderiler: 1753
Üye
 

yanı tam anlamadım ama heralde bır kere basılınca bır methodu calıstırmak ıstıyorsun asagıdakı ornekte hangı tusa kac kere tıklandıgını sayan bır kod var orada araya gırıp if ile count > 1 den buyukse dıyıp methoıdu tetıkletebılırsın 

https://www.daniweb.com/software-development/vbnet/threads/428886/keypress-counter

 

ProfectSoft Yazılım ve Danışmanlık Hizmetleri
LogPusher & Bifyou E-Commerce System
www.profectsoft.com

 
Gönderildi : 01/06/2015 19:45

(@cagatayaksoy)
Gönderiler: 95
Estimable Member
Konu başlatıcı
 

Hayır bende yazdığımı sonradan zor anladım 🙂 .    https://www.youtube.com/watch?v=84GDkAad6PE&feature=youtu.be  şunu yapmak istiyorum  form a...

 

 

 

 
Gönderildi : 01/06/2015 20:45

(@BurakSenturk)
Gönderiler: 70
Trusted Member
 

Selam, 

Bir tane global string array tanımlasan.

Textbox'ın keydown eventini kullansan.

Klavyeden basılan tuşu alsan bir değişkene atasan. (buna gerek yok aslında da temiz gözüksün diye yazdım)

Bu değişkeni alsan senin arrayinin içerisinde dönsen var ise bir şey yapmasan yok ise eklesen. 

Her seferinde textboxunu temizlesen arrayinide textboxun içerisine yazdırsan.

 

Ben genel gidişat için basit yol yazdım. Kontrol sayısını arttırıp daha temiz bir yapı kurabilirsin. İşte ctrl shift ve alt karakterleri harici karakterler sadece array(2) ye girer. Ctrl her zaman 0 dadır. he ctrl yoksa öncelik shift tedir. gibi gibi...

Kolaylık olması açısından şöyle bir kodda ekliyeyim. Umarım işini görür.

  Dim sanal As String

        If (e.KeyCode = Keys.ControlKey) Then

            sanal = "Ctrl"

        ElseIf (e.KeyCode = Keys.Menu) Then

            sanal = "Alt"

        ElseIf (e.KeyCode = Keys.ShiftKey) Then

            sanal = "Shift"

        End If

 

İyi Günler Dilerim, 

 

 
Gönderildi : 01/06/2015 21:55

(@cagatayaksoy)
Gönderiler: 95
Estimable Member
Konu başlatıcı
 

Sağolun , deniyorum şimdi. Teşekkürler...

 
Gönderildi : 01/06/2015 22:27

Paylaş: