AccessTr.neT
Ctrl+c Ctrl+v - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Ctrl+c Ctrl+v (/konu-ctrl-c-ctrl-v.html)



Ctrl+c Ctrl+v - accessman - 02/05/2020

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


RE: Ctrl+c Ctrl+v - accessman - 02/05/2020

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


RE: Ctrl+c Ctrl+v - feraz - 02/05/2020

Click değil mouseup olayı var orda.


RE: Ctrl+c Ctrl+v - accessman - 02/05/2020

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


RE: Ctrl+c Ctrl+v - ozanakkaya - 02/05/2020

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.


RE: Ctrl+c Ctrl+v - accessman - 03/05/2020

teşekkürler @ozanakkaya