' [457.xls]



' [Module1] のコード
'★★☆　MouseDown、MouseUpイベント　☆★★

Option Explicit

Sub start()

    UserForm1.Show

End Sub


' [UserForm1] のコード
Option Explicit

Private Sub UserForm_Initialize()

    Me.Caption = "UserForm上でマウスボタンを押して下さい"
    Me.StartUpPosition = 2
    [F8] = "イベント名→"
    [F9] = "ボタンの種類→"
    [F10] = "特殊キー(Shift・Ctrl・Alt)→"
    
End Sub

'ユーザフォーム上でマウスが押された時に発生するイベント
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim a As String
Dim b As String
    
    '左右のどちらのボタンが押されたかを取得
    If Button = 1 Then
        a = "左"
    Else
        a = "右"
    End If
    
    '特殊キーの値の取得
    Select Case Shift
        Case 0
            b = "なし"
        Case 1
            b = "Shiftキー"
        Case 2
            b = "Ctrlキー"
        Case 3
            b = "Shiftキー、Ctrlキー"
        Case 4
            b = "Altキー"
        Case 5
            b = "Shiftキー、Altキー"
        Case 6
            b = "Ctrlキー、Altキー"
        Case 7
            b = "Shiftキー、Ctrlキー、Altキー"
    End Select

    Me.Caption = "マウスX座標値 " & X & "   マウスY座標値 " & Y
    [G8] = "MouseDown"
    [G9] = a & "ボタン"
    [G10] = b
    
End Sub

'ユーザフォーム上でマウスボタンが離されたときに発生するイベント
Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    Me.Caption = "MouseUp マウスは押されていません"
    [G8] = "MouseUp"
    [G9] = ""
    [G10] = ""

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    [F8:G10] = ""

End Sub