+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Fonksiyon Tuşları Kullanımı (/konu-fonksiyon-tuslari-kullanimi.html)
Sayfalar:
1
2
Fonksiyon Tuşları Kullanımı - emir ustaoğlu - 19/05/2016
Herkese merhaba;
vb.nette üzerinde çalıştığım uygulamamda fonksiyon tuşlarını kullanmak istiyorum.
F1 - F12 veya enter, esc gibi tuşları tek başına kullana biliyorum.
If e.KeyCode = Keys.F2 Then
Msgbox("F2 tuşuna basıldı",vbInformation)
End If
If e.KeyCode = Keys.Enter Then
TextBox1.Focus()
End IfGibi
ben birde örneğin Ctrl + P gibi kombinasyon tuşlarını da kullanmak istiyorum.
Örneğin; Ctrl + P ile baskı ön izleme formunu açmak gibi ancak bir türlü başaramadım.
İnternetteki araştırmama göre tuşların ascı kodları ile yapmak gerekiyor bu işlemi C# için verilen bir örneğe göre de kod dizimi şu şekilde olmalı;
Örneğin CTRL + F4 için,
If e.KeyCode = Keys.^ + {F4} Then
Form1.Close()
End If Ancak bu şekilde kod kabul etmemekte C#/Vb.Net iki içinde bence de bir mantık hatası mevcut ancak nasıl olması gerektiğini bir türlü yapamadım internette de bu işlem için örnek bulamadım.
Microsoft'un sitesinden bulmuş olduğum ascı kodları;
Diğer Ascı kodları İçin
Konu hakkında yardımcı olan herkese şimdiden çok teşekkürler.
Saygılar...
Cvp: Fonksiyon Tuşları Kullanımı - atoz112 - 19/05/2016
sayın ustaoglu,
bahsettiğiniz talebinize yönelik olarak;
aşağıda bağlantısı yazılı vb.net üzerine konuları da inceleyebilirsiniz,faydalı olması temennisi ile.
Keys Enumeration
KeyEventArgs.KeyCode Özellik
KeyEventArgs Class
bilginize...iyi çalışmalar,saygılar.
Cvp: Fonksiyon Tuşları Kullanımı - alpeki99 - 19/05/2016
Formun özelliklerinden KeyPreview açıktır nitekim fonksiyon tuşlarını kullanabiliyormuşsunuz.
Form olaylarından KeyDown olayına gelin ve aşağıdaki kodları yapıştırın:
If (e.KeyCode And Not Keys.Modifiers) = Keys.P AndAlso e.Modifiers = Keys.Control Then
MessageBox.Show("Ctrl + P tuşlarına bastınız")
End If
Cvp: Fonksiyon Tuşları Kullanımı - emir ustaoğlu - 19/05/2016
Sayın atoz112 ve alpeki99 hocam;
Değerli yorumlarınız ve yardımlarınız için çok teşekkür ederim.
tam aradığım kodu vermişsiniz hocam
kod ile ilgili şunu da sormak istiyorum;
Kod:
If (e.KeyCode And Not Keys.Modifiers) = Keys.P AndAlso e.Modifiers = Keys.Control Then
MessageBox.Show("Ctrl + P tuşlarına bastınız")
End IfKod:
If (e.KeyCode And Not Keys.Modifiers) = Keys.E And Keys.Shift AndAlso e.Modifiers = Keys.Control Then
MessageBox.Show("Ctrl + Shift + E tuşlarına bastınız")
End IfTekrar teşekkür ederim.
Cvp: Fonksiyon Tuşları Kullanımı - atoz112 - 19/05/2016
sayın ustaoglu,
Kod:
If (e.Control And e.Shift) AndAlso e.KeyCode = Keys.E Then
MessageBox.Show("Ctrl+Shift+E")
End Ifbilginize...iyi çalışmalar,saygılar.
Cvp: Fonksiyon Tuşları Kullanımı - alpeki99 - 19/05/2016
Burada farklı bir kullanım söz konusu. Önce Case ile hangi harfe basıldığını kontrol edeceksiniz sonra altında If ile diğer tuşları kontrol edeceksiniz.
Select Case e.KeyCode
Case Keys.E
If (e.Control AndAlso e.Shift) Then
MsgBox("Control + Shift + E tuşlarına bastınız")
End If
End Select