işte ogün bu günmüş mehmet bey
elinize sağlık teşekkürler
Sn.mehmetdemiral,
Shift tuşuna bastığımızda msgbox 16 değerini veriyor,aşağı ok tuşunda da 40.Benim sorum;keydown olayında keycode shift+aşağı ok tuşunu kullanmamıza izin veriyormu?
Bu örnek uygulamayla bunu yapamayız çünkü tuşa basıldığı anda kodunu göstermek zorunda. Ama birden çok tuşa aynı anda basılmayla ilgili mutlaka bir başka yöntem vardır. Araştırıp bulursam eklerim. Şu anda bilmiyorum. Ama tahmin edebiliyorum. Fırsat olduğunda tahminimi deneyip buraya yazarım.
İyi günler.
Sn.mehmetdemiral,
size sorduğum sorunun cevabını buldum,ilginize teşekkürler,saygılar.
Dim shiftebas As Integer
shiftebas = (Shift And acShiftMask) > 0
If shiftebas Then
If KeyCode = "40" Then
'yürütülecek kod
end if
else
If KeyCode = "40" Then
'yürütülecek kod
end if
end if
Geri dönüş ve paylaşımcı ruh için teşekkürler. Ve tabii ki +rep
Sn.mehmetdemiral,
İlk rep!imi sizden aldım.Site yönetiminden rep almak benim için ayrıca çok değerli.Çok teşekkürler