Shift tuşunu kontrol etme ?

emter · 01-12-2011, 11:33

Uygun bi başlık bulamadığım için yeni bir konu açmak durumunda kaldım.
Shift tuşunun basılı olup olmadıgını denetlemek ıstıyorum ama bı turlu beceremedım.
hatam nerde acaba ?

Kod:

shift = GetAsyncKeyState(16)

timer daki kod

Kod:

If shift = -32768 Then
            TextBox1.Text &= "A"
else
             TextBox1.Text &= "a"
end if

emter · 03-12-2011, 15:15

My.Computer.Keyboard.ShiftKeyDown ile kontrol ediyormuşuz arkadaşlar. Arayanlar için ...

J00mLaLi · 31-12-2011, 00:58

Public Class Form
Private Sub Form1_KeyDown(...) Handles MyBase.KeyDown
If e.Shift Then
Label1.Text = "Shift Tusuna Basıyosun"
End If
End Sub
Private Sub Form1_KeyUp(...) Handles MyBase.KeyUp
Label1.Text = "Shift Tusuna Basmıyosun"
End Sub
End Class

01-12-2011, 11:33	#1
emter Forum Kalfası Kayıt Tarihi: Mar 2009 Üye numarası: #319180 Yer: Everywhere is Trabzon For Us Mesaj sayısı: 1,827 Karma etkisi: 4058 Karma: 405313	Shift tuşunu kontrol etme ? Uygun bi başlık bulamadığım için yeni bir konu açmak durumunda kaldım. Shift tuşunun basılı olup olmadıgını denetlemek ıstıyorum ama bı turlu beceremedım. hatam nerde acaba ? Kod: shift = GetAsyncKeyState(16) timer daki kod Kod: If shift = -32768 Then TextBox1.Text &= "A" else TextBox1.Text &= "a" end if

Konu Araçları	Bu Konuda Ara
Printer Çıktısını Göster Sayfayı Emaille Yolla	Bu Konuda Ara: Gelişmiş Arama

Bu Konuda Aradığınızı Bulamadıysanız Şunlara Bakmanızı Öneririz
Konu	Konu Yazarı	Forum	Cevaplar	Son Mesaj
Pro Evolution Soccer 2011: Gerçek kontrol geliyor!	uygarozdemir	Oyun Haberleri	0	13-09-2010 20:45
Dikte - Sesle Bilgisayar Kontrol Etme Programı - %100 Türk Üretimi	djferhat	Programlar	5	06-09-2010 07:57
Şems`in Gidişi: Mevlana - Etme (Yılmaz Erdoğan, Hüsnü Şenlendirici... Harbiye)	jeroxi	Müzik	53	15-03-2009 15:03
İnternet Bağlantısını Kontrol Etme	Suk1y3n	Visual Basic	1	15-08-2006 19:05
	Ñïghtwât©H..	Komplo Teorileri	5	02-08-2006 17:48

03-12-2011, 15:15	#2
emter Forum Kalfası Kayıt Tarihi: Mar 2009 Üye numarası: #319180 Yer: Everywhere is Trabzon For Us Mesaj sayısı: 1,827 Karma etkisi: 4058 Karma: 405313	My.Computer.Keyboard.ShiftKeyDown ile kontrol ediyormuşuz arkadaşlar. Arayanlar için ...

31-12-2011, 00:58	#3
J00mLaLi Cool Çırak Kayıt Tarihi: Dec 2009 Üye numarası: #395426 Mesaj sayısı: 33 Karma etkisi: 0 Karma: 2874	Public Class Form Private Sub Form1_KeyDown(...) Handles MyBase.KeyDown If e.Shift Then Label1.Text = "Shift Tusuna Basıyosun" End If End Sub Private Sub Form1_KeyUp(...) Handles MyBase.KeyUp Label1.Text = "Shift Tusuna Basmıyosun" End Sub End Class

Şu Anda Konuyu Görüntüleyenler: 1 (0 üye ve 1 misafir)