Mouse gestures ??? help please thanks

[EJ12N]

Hi, what i want to do is have mouse gestures on a browser am making using webbrowser control... ok mouse gestures are like this for those who dont know

press right button of the mouse and move the mouse to left it makes the browser goes back (Wb.GoBack)

press right button of the mouse and move the mouse to right
(WB.GoForward)

anyway how can i acomplish this ???

Help is apreciated and needed too lol... thanks


Thank you very much to whoevers help...

[EJ12N]

bump^^^

[ironhide]

Not quite sure of the specifics, but I'd say that whenever the right-mouse buttin is clicked, you check if the mouse moves in either direction, maybe a timer or something?

</useless>

[nkad]

There is an API that can get x,y positions of the mouse pointer. With a loop, you can sample the data every 200 ms, or however much data you want to sample. Then from the data, you should be able to calculate the jestures. You will also have to define the jesture coordinates, and also give some space for human-error, as we all dont make the same circle or line. I have never written something like this before but as you can see, I though up a pretty good analysis right of the top of my head. There's to much code to write to do this so I am not even going to attempt. So have fun.

[EJ12N]

well i guess i have to say bye bye mouse gestures from my project i knew would be hard oh well...thank you for your answers

[jemidiah]

It does sound like a very good feature. While circles would be much harder, this'll work for left and right:

Dim bMouseDown As Boolean
Dim iMouseX As Single
Dim iMouseY As Single
Const Epsilon As Single = 500
 
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then bMouseDown = True
iMouseX = X
iMouseY = Y
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If bMouseDown = False Then Exit Sub
If X - iMouseX >= Epsilon Then
    Me.Caption = "Right"
End If
If X - iMouseX <= -Epsilon Then
    Me.Caption = "Left"
End If
If Not (X - iMouseX <= -Epsilon) And Not (X - iMouseX >= Epsilon) Then
    Me.Caption = ""
End If
End Sub
 
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
bMouseDown = False
Me.Caption = ""
End Sub

That gives a rough outline of how it can be used. Epsilon is the number of twips they have to move before whatever gesture is enacted. Hope it helps

[EJ12N]

Thanks but can this be used on a webbrowser control ???

i dont need complicated gestures just left and right

[nkad]

Thanks but can this be used on a webbrowser control

What do you think?

[EJ12N]

Yes it did nkad but just a little thing that i would like to do

to use the mouse gestures you gotta do it clickin on the form,
there's anyway so if the user do it inside the webbrowser controls it works too ???

also another question
i got this history i.e

google >>> yahoo >>> altavista

ok when i do the mouse gestures with me on google it goes i put it so it goes forward but it goes SUPER forward lol it goes from google to altavista directly bypassing yahoo, and if im in altavista and i do the gesture go back (right mouse button and move mouse to left) it goes directly from altavista to google and that's not how is supposed to be

anyway to fix that and having it go in a normal way like you in google goes to yahoo if u do gesture for forward then if you in yahoo goes to altavista but too bad is not like that right now so i'll wait for your answer or anyone else that wants to help


Thanks...

[nkad]

Well, if you are recording your mouse x, y data with the API then it soudn't matter if the form has focus or not.

[EJ12N]

what API

im just using your code and when i do the mouse gestures inside the webbrowser control what i get is the right click menu lol...

Pardon my ignorance im new to VB and dont know that much yet at least about APIs

Thanks

[jemidiah]

Hmm, I hadn't thought about the right click menu coming up on the webbrowser control. You'd probably have to disable that if a gesture has taken place (it happens on MouseUp so it could be disabled on MouseDown). You could try searching for that if you do decide to do it (I'd assume you'd have to subclass for the MouseDown so you would probably just stifle the MouseUp message). As for it going extraordinarily fast, that's because it continues firing every time the mouse moves when it's past the boundary. You'd have to pause it for a time to stop that from happening or disable it until the mouse goes back over the boundary. Now (as if that wasn't enough), a popup menu seems to pause mouse events while it's visible, so you would have to use the timer suggested above.

You could avoid all of that except for it going extremely fast if you used clicking of the mouse wheel.

Overall, I guess it really is more work that it's probably worth, although it would get you extra credit for a school project