Kayıt Tarihi: 17.05.2008
Toplam 368 konu açtı.
Toplam 1.571 yorum yaptı.
Toplam
7
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 2
12-09-2010, 14:55
(En son düzenleme: 12-09-2010, 14:55 Mehmet Eser.)
Merhaba, 
metin kutusunun tuşa basıldığında olayında enter'e mi yoksa başka tuşa mı basılmılş bulmak istiyorum. Bu olayda hangi tuşa basıldığ0ını nasıl bulabilriz?
Kayıt Tarihi: 17.05.2008
Toplam 368 konu açtı.
Toplam 1.571 yorum yaptı.
Toplam
7
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 2
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
bu tanımalma ile modüle ekleyip sonra da GetKeyState ile çağırınca oluyor.
tüm tuşların listesi ise: http://www.jasinskionline.com/WindowsApi...codes.html
sizin bildiğiniz başak bir yol var mı VBA içinden. api'lerle uğraşmak istemiyorum. Evet başak türlü bu mümkün müdür API kullanmadan olabilir mi?
Kayıt Tarihi: 05.03.2008
Toplam 252 konu açtı.
Toplam 3.105 yorum yaptı.
Toplam
131
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 9 / 23
Merhaba;
Alttaki gibi bir kodla Enter tuşuna basıldığında bir olay gerçekleştirebilirsiniz. Sizin örneğinizde bulunan ders notu alanında "KeyPress" olayında gibi..
Visual Basic Private Sub Ders_Notes_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then ' 13 Enter tuşu değeridir. MsgBox "Enter Tuşuna Bastınız." End If End Sub
Diğer tuşların değerlerini öğrenmek isterseniz basit bir kod yazabiliriz. Bu kodu formun KeyPress(tuşa basıldığında) olayına yazınız ve yine formun "tuş önizlemesini" "EVET" olarak değiştiriniz.
Visual Basic Private Sub Form_KeyPress(KeyAscii As Integer) MsgBox "Basılan Tuşun ASCII Değeri: " & KeyAscii End Sub
Javascript this.setState({sign:"Here comes the sun...."})
Kayıt Tarihi: 17.05.2008
Toplam 368 konu açtı.
Toplam 1.571 yorum yaptı.
Toplam
7
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 2
12-09-2010, 15:36
(En son düzenleme: 12-09-2010, 15:36 Mehmet Eser.)
elinize sağlık, ben de diğer çözümleri arıyordum şimdi ve aynı çözümü buldum fakat enter ascii değerini arıyordum. VBA ile olması beni sevindirdi.
Teşekkürler. Diğer kodlar da hazır da olsun: http://www.asciitable.com/
Kayıt Tarihi: 17.05.2008
Toplam 368 konu açtı.
Toplam 1.571 yorum yaptı.
Toplam
7
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 2
12-09-2010, 15:49
(En son düzenleme: 12-09-2010, 15:49 Mehmet Eser.)
malasef yanlış yermiş. Tuşa basılırken kısmına koyunca ancak istenen durum ortaya çıkıyor yoksa bir önceki denetimden tetikleniyor. İlginç bir vaka. Doğru yer: Visual Basic Private Sub Ders_Ad_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Dim i As Variant i = MsgBox("yehu", vbInformation, "durum") End If End Sub
Peki burdaki Shift as integer'in konma sebebi nedir? Ne işe yarar?
Kayıt Tarihi: 12.03.2008
Toplam 80 konu açtı.
Toplam 635 yorum yaptı.
Toplam
75
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016 TR,
Beğeniler: 1 / 4
12-09-2010, 15:58
(En son düzenleme: 12-09-2010, 16:00 Zeki Gürsoy.)
Visual Basic Private Sub Ders_Ad_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then if shift = 1 then Dim i As Variant i = MsgBox("shift basılı enter tuşlandı", vbInformation, "durum") else msgbox "shift basılı olmadan enter tuşlandı." end if End If End Sub
|
Yazan okuyan sağolsun, çözene saygılar. Kolaylaştırınız, zorlaştırmayınız.
