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 yazdı: 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.

    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.
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