Hangi tuşa basıldığını bilebilmek

[Serpily]

Yazdığım kodda kullanıcının bastığı tuşa göre yönlenme yaptırmak istiyorum. Mesela Backspace'e basmışsa döngüden çıkacak vb. Bunun için basılan tuşu okutturabileceğimiz bir komut filan var mıdır? inkey gibi, keypress gibi, getkey gibi bir şey.

Aslında benzeri bir soru daha öncede sorulmuş ama cevap yeterli olmamış. Arama yapmadan yazmadım yani.

 

[Haluk]

hangi soruydu o ?

 

[Serpily]

http://www.excel.web.tr/viewtopic.php?t=470&highlight=tu%FE

YAPMASINI İSTEDİÐİMİZ BİRDEN FAZLA İÞLEM OLURSA ( YAZDIRMAK, KAYDETMEK VB GİBİ) BUNLARI BELLİ BİR TUÞA BAÐLAMAK OLABİLİR Mİ ? BASILAN TUÞ D İSE DUR, K İSE KAYDET VE DUR, Y İSE RAPORU YAZ VE DUR GİBİ ?

Bu soru o.

 

[Haluk]

Peki, tam olarak yapmak istediğiniz olayla ilgili kodu yapıştırabilirmisiniz ? Yani, bir TextBox içindeyken falan mı tuşu denetlemek istiyorsunuz ?

 

[Serpily]

Private Sub Tarih_Change()
If ........... = vbKeyBack Then
If Len(Tarih) = 2 Then Tarih = Tarih + "."
If Len(Tarih) = 5 Then Tarih = Tarih + "."
If Len(Tarih) = 10 Then Tarih = Left(Tarih, 10)
End If
End Sub


Tarihin formatını exit ile değil de change de daha yazılırken denetlemek istiyorum. Bunun için yukarıdaki koddan yararlanmayı düşünüyorum. Ancak kullanıcı Backspace'e basmışsa silmek istiyordur ve her tuşa basılmasında bir karakter silinmelidir. Ben bunu eğerle diyemezsem yanlış yazdığı tarihi backspace'le silemiyor.

 

[Serpily]

İlgisiz ama ben VB kodları yazmak için VB kutucuğunun üzerine fareyi getirince 'Çalışma zamanı hatası' veriyor. Neyi yüklemem, açmam veya kliklemem lazım.

 

[Haluk]

Kodları Tarih_Change yerine, Tarih_KeyPress olayına yazıp da çalıştırsanız olur mu acaba ?

 

[Serpily]

Harika olur muş. Teşekkürlerimle.

 

[Serpily]

İşgüzarlık mı yapıyorum bilmem ama konu bütünlüğü olsun istedim. Kodun son hali.

Private Sub Tarih_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii <> vbKeyBack Then
If Len(Tarih) = 2 Then Tarih = Tarih + "."
If Len(Tarih) = 5 Then Tarih = Tarih + "."
If Len(Tarih) = 10 Then Tarih = Left(Tarih, 10)
End If
End Sub

 

[xxrt]

İşgüzarlık mı yapıyorum bilmem ama

Tam aksine yararlı bilgiler veriyorsunuz.