Forum
Bildirimler
Hepsini Temizle
Yazılım Genel
5
Yazılar
3
Üyeler
0
Likes
2,868
Görüntüleme
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
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
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
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
Konu başlatıcı
Sağolun , deniyorum şimdi. Teşekkürler...
Gönderildi : 01/06/2015 22:27
