Skip to main content

#EvdeKal


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.

Visual Basic Code
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

Visual Basic Code
Call HotKeys(KeyCode, 0, Me.Name)


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

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#2
TEŞEKKÜRLER...
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
Çözüldü #3
şöyle bir atasözü vardı "accessde yapabilecekleriniz hayalgücünüzle sınırlıdır."

Son Düzenleme: 01/11/2008, 18:49, Düzenleyen: esrefigit.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da