Re: Event MouseMove

[Gianluigi <gradobag@xxxxxxxxxxx>]

Il 19/03/24 23:04, Gianluigi ha scritto:


> Public Sub Form_Open()
>
>    Timer1.Enabled = True
>
> End
>
> Public Sub Form_MouseMove()
>
>    TextBox1.Text = Mouse.X & " : " & Mouse.Y
>
> End
>
>
> Public Sub Timer1_Timer()
>
>    If Mouse.Inside(Me) Then
>    Else
>      TextBox1.Text = Mouse.ScreenX & " : " & Mouse.ScreenY
>    Endif
>
> End
>
> Public Sub Form_Close()
>
>    Timer1.Stop
>
> End
>
> Regards
> Gianluigi

Hi Mayost,

I forgot the P.S. I can't answer you directly, the mail is rejected.
Maybe this is better like this:

Public Sub Timer1_Timer()

  If Not Mouse.Inside(Me) Then
    TextBox1.Text = Mouse.ScreenX & " : " & Mouse.ScreenY
  Endif

End

Regards
Gianluigi