AnsweredAssumed Answered

Help with mouse events

Question asked by Prashant Mohan on Jan 13, 2018
Latest reply on Jan 15, 2018 by Omkar Deshpande

I have a simple macro that notifies whenever left mouse button is pressed. and shows the coordinates of the mouse pointer. There is a form with a button on it. When you press the button it starts the mouse event.  I want to know how do i bring the command back to code (main) after the event it fired. If you look below i want "Hey" to be displayed after the i press the left mouse button and coordinates at the mouse tip are shown.

 

I have attached the code as well

I am new to mouse events and did not find anything that could solve this problem. Any help will be appreciated.

 

Sub main()

 

    UserForm1.Show vbModeless

   

    MsgBox ("Hey")

   

End Sub

 

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swView As SldWorks.ModelView

Dim WithEvents swMouse As SldWorks.Mouse

Dim X_, Y_ As Double

Dim listenForClick As Boolean

 

Private Sub CommandButton1_Click()

   

    Set swModel = swApp.ActiveDoc

    Set swView = swModel.ActiveView

    Set swMouse = swView.GetMouse

    listenForClick = True

   

End Sub

 

Private Function swMouse_MouseLBtnDownNotify(ByVal X As Long, ByVal Y As Long, ByVal WParam As Long) As Long

   

    If listenForClick Then

        X_ = X

        Y_ = Y

        MsgBox (X & "; " & Y)

        listenForClick = False

       

        Unload UserForm1

    End If

   

End Function

 

 

Private Sub UserForm_Initialize()

 

    Set swApp = Application.SldWorks

 

End Sub

Attachments

Outcomes