AccessTr.neT

Bul · 19/05/2016, 12:36

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 If

Gibi
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ı;
[Resim: do.php?img=6165]

Diğer 🔍Ascı kodları İçin
Konu hakkında yardımcı olan herkese şimdiden çok teşekkürler.
Saygılar...

Bul · 19/05/2016, 19:02

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.

Bul · 19/05/2016, 19:57

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

Bul · 19/05/2016, 20:58

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 Img-grin

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 If

burada kombine iki tuş kullanıyoruz ek olarak mesala 3 kombine tuş kullanmak istersek nasıl bir ekleme yapabiliriz.

Kod:

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 If

Şeklinde denedim ancak olmadı bununla yapmayı düşündüğüm örneğin bir kaydın tamamen silinmesi ve ya iptal edilmesi için kullanmayı planlıyorum.
Tekrar teşekkür ederim.

Bul · 19/05/2016, 21:15

sayın ustaoglu,

Kod:

If (e.Control And e.Shift) AndAlso e.KeyCode = Keys.E Then

        MessageBox.Show("Ctrl+Shift+E")

End If

kod ifadelerini deneyiniz.

bilginize...iyi çalışmalar,saygılar.

Bul · 19/05/2016, 21:17

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

AccessTr.neT

Fonksiyon Tuşları Kullanımı

Fonksiyon Tuşları Kullanımı

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri