Skip to main content

AccessTr.neT


Ctrl + F ve Ctrl + P Tuşlarını Kapatma

Ctrl + F ve Ctrl + P Tuşlarını Kapatma

#1
Ctrl + F ve Ctrl + P Tuşlarını Kapatma Kodları,

aşağıdaki kodu modüle kaydedin.

Public Function HotKeys(KeyCode As Integer, Shift As Integer, callerForm As String)
Dim strOpenarg As String
Dim intkey As Integer
intkey = KeyCode
KeyCode = 0

    Select Case intkey
        Case 17
            ctrlKey = True
        Case 70

        If ctrlKey = True Then
            ctrlKey = False
            MsgBox "Ctrl+f kullanılamaz"
            GoTo abort

        End If
            
        Case 80

        If ctrlKey = True Then
            ctrlKey = False
            MsgBox "Ctrl+p kullanılamaz"
            GoTo abort

        End If
    

        Case Else
            GoTo abort
        End Select
    
exitsub:
Exit Function

abort:
KeyCode = intkey
End Function

Modülü kaydedin,
formun tuş önizleme özelliğini evet olarak değiştirin,
Formun tuşa basıldığında olayına aşağıdaki kodu ekleyin

Call HotKeys(KeyCode, 0, Me.Name)

Koddaki 17 ctrl, 70 f ve 80 p tuşlarının kodudur.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Ctrl + F ve Ctrl + P Tuşlarını Kapatma - Yazar: ozanakkaya - 01/11/2008, 13:06