[Gambas-user] mouse

[Mike Crean]

Hi all I am tryingto catch a mouse event when inside a PictureBox Child when the LEFTMOUSE button ispressed. I can’t for the life of me see the answer and it is probablystaringme in the face.



Public SubTimer1_Timer()

     Dim oo AsPictureBox

     Dim I As Integer

     Dim x As Integer

     I = 0

 

     For Each oo InPictureBox1.Children

         If oo IsPictureBox Then

             I = I + 1

             For x = 1 To I

                 IfMouse.Inside(oo) Then

                     Ifoo.Mouse.Left Then                     ' ERROR Not an object

                         Label7.Text = “Got oo”

                     Endif

                 Endif

             Next

         Endif

     Next

End

Or with this I getthe error. No mouse event data in Fmain 41


If Mouse.Left(oo)Then ' ERROR No mouse event data in Fmain 41

    Label7.Text =“Got oo”Endif
RegardsMike


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.gambas-basic.org/pipermail/user/attachments/20200430/5850fd81/attachment-0001.html>