Skip to main content

AccessTr.neT


Ctrl+c Ctrl+v

Ctrl+c Ctrl+v

Çözüldü #1
Metin kutusunda
Sol çift tıklama ile Ctrl+c
Sağ çift tklama ile Ctrl+v
Orta çift tıklama ile Ctrl+x
Yaptırabilir miyiz
@benbendedeilem
Son Düzenleme: 02/05/2020, 05:11, Düzenleyen: accessman.
Cevapla
#2

Kod:
Private Sub cmdMultiClick_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Dim SelectedFunction As String

    If Button = acLeftButton Then
        If (Shift And acShiftMask) Then
            SelectedFunction = "Shift-Left click!"
        Else
            SelectedFunction = "Left click!"
        End If
    ElseIf Button = acRightButton Then
        SelectedFunction = "Right click!"
        ' Cancel the default right-click behavior (open context menu)
        DoCmd.CancelEvent
    End If

    MsgBox SelectedFunction, vbInformation

End Sub

burada click olayı var ama DblClick olayı yok

@benbendedeilem
Cevapla
#3
Click değil mouseup olayı var orda.
Cevapla
#4
(02/05/2020 13:24)feraz Adlı Kullanıcıdan Alıntı: Click değil mouseup olayı var orda.
"Left click!" Var
"Left DblClick" yok diyelim
@benbendedeilem
Cevapla
#5
Farenin sol çift tıklama olayı için ayrı olay yordamı var, ancak sağ çift tıklamayı shift veya alt butonu ile kullanmadan bu işlemi yapamazsın.

Visual Basic Code
    If Button = acLeftButton And (Shift And acShiftMask) Then
            
        MsgBox "Shift-Left click!"
        
    ElseIf Button = acRightButton And (Shift And acShiftMask) Then
        
        MsgBox "Shift-Right click!"

        DoCmd.CancelEvent
        
    ElseIf Button = acMiddleButton And (Shift And acShiftMask) Then
        
        MsgBox "Shift - Middle click!"
        
    End If


shift tuşuna basılı tutarak tıklama kodu.

"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
#6
teşekkürler @ozanakkaya
@benbendedeilem
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task