keypress hakkında yardım lütfen

[sevural]

kepress ile bi form açmak için ne yapmalıyım. ama shift veya ctrl ile mesela "M" tuşuna basılınca açılıcak.

Ctrl + M ye basılınca örnek isminde bi form açılması istiyorum yani.(keypress le)

 

[N.Ziya Hiçdurmaz]

yanıt

Direk F12 Tuşuna basılınca çalışır isterseniz başka tuşada atayabilirsiniz.

Sub test()
Application.OnKey "{F12}", "TEST1"
End Sub
Sub TEST1()
MsgBox "OK"
End Sub

 

[sevural]

ben sorgu yaptıktan sonra çıkan sonuçlardan birini seçerek yapmak istiyorum. yani keypress şart. keypress ile yaptım fakat herhangi bir tuşa basılınca açılıyo. ben ctrl+ m ye basılınca açılmasını istiyorum

 

[yeni54]

formun keydown olayına şuları yaz:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = 77 Then
MsgBox "Ctrl+M tuşuna bastınız"
End If
End Sub

ayrıca klavye olayları ile ilgili daha geniş bilgi için

http://manap.com.tr/ebtay/article_read.asp?id=52

 

[sevural]

çok teşekkür ederim yeni54. sorunum çözüldü