02/05/2020, 05:10
02/05/2020, 12:25
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 Sub02/05/2020, 13:24
Click değil mouseup olayı var orda.
02/05/2020, 14:02
(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
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.
shift tuşuna basılı tutarak tıklama kodu.
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 Ifshift tuşuna basılı tutarak tıklama kodu.
03/05/2020, 11:06
teşekkürler @ozanakkaya