AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Ctrl+c Ctrl+v

02/05/2020, 05:10

accessman

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
02/05/2020, 12:25

accessman

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
02/05/2020, 13:24

feraz

Click değil mouseup olayı var orda.
02/05/2020, 14:02

accessman

(02/05/2020, 13:24)feraz yazdı: Click değil mouseup olayı var orda.
"Left click!" Var
"Left DblClick" yok diyelim
02/05/2020, 17:33

ozanakkaya

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.

    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.
03/05/2020, 11:06

accessman

teşekkürler @ozanakkaya