Mouse Event Test

[bplus]

This might be interesting way to go with Mouse Button clicks?

Code: QB64: [Select]

1. _Title "Mouse Event test" 'b+ 2021-05-17
2.  
3. Dim Shared mx, my, mb1DownX, mb1DownY, mb1UpX, mb1UpY, oldmb1
4.  
5. t1 = _FreeTimer 'get a timer number from _FREETIMER ONLY!
6. On Timer(t1, .05) PollMouse
7. Timer(t1) On
8.  
9. ' signal no button locations registered yet
10. mb1DownX = -1
11. mb1DownY = -1
12. mb1UpX = -1
13. mb1UpY = -1
14.  
15. Do
16.     Cls
17.     Print "         Mouse location at:"; mx; ","; my
18.     Print "  Status Left Button Down: "; oldmb1
19.     Print "First Mouse Button Down at:"; mb1DownX; ","; mb1DownY
20.     Print "   Last Mouse Button Up at:"; mb1UpX; ","; mb1UpY
21.     _Display
22. Loop Until InKey$ = Chr$(27)
23. Timer(t1) Off
24. Timer(t1) Free 'release timer
25. End
26.  
27. Sub PollMouse ' catch locations of mouse button 1 down and up
28.     While _MouseInput: Wend
29.     mx = _MouseX: my = _MouseY: mb1 = _MouseButton(1)
30.     If mb1 And oldmb1 = 0 Then
31.         mb1DownX = mx
32.         mb1DownY = my
33.         'mb1UpX = 0
34.         'mb1UpY = 0
35.     End If
36.     If mb1 = 0 And oldmb1 Then
37.         mb1UpX = mx
38.         mb1UpY = my
39.         'mb1DownX = 0
40.         'mb1DownY = 0
41.     End If
42.     oldmb1 = mb1
43. End Sub
44.  
45.  

Always wanted to try something like this.

BTW look at the example for On Timer Event, it is about mouse which I used to start this code test.

If MB1 then mb1DownX and mb1DownY are latest first down at locations.
If MB1 = 0 then mb1UpX, mb1UpY was location of last release of mouse button 1 which you can clear (set -1) when you have handled the Click.

[johnno56]

Cool... oh... and 'my' version is _rgb32(0,128,255)... Moo Ha Ha...