Mouse Up Mouse Down

how do i stop a mousedown procedure when the mouseup is started.
andichildsAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Erick37Commented:
What do you mean?
Can you give an example of what you are trying to do?
0
matrix717Commented:
why don you try putting a variable for example "pod" in the declaration part on the form, it can be an boolean

Then in the begining of the mousedown procedure put an if like this:

if pod=true then
exit sub
end if

Now in the beginig of the mouseup put pod=true so whe mousedown procedure try to start it will "exit sub", then is up to you where to enable this procedure again just puting pod=false

I hope this helps you...
0
paul_tsekovCommented:
So, here is some example code:


' Your Form module:
Option Explicit
Dim Flag as Boolean
'...
Private Function CheckMouseUp() _
as Boolean
  CheckMouseUp=Flag
End Function
'...
Private Sub Command1_MouseUp()
  Flag=True
End Sub
'...
Private Sub Command1_MouseDown()
  Flag=False
' Here in this Sub you must put
' the code:
  if CheckMouseUp then Exit Sub
' You should put this row in some
' cycles that take a long time of
' calculation.
' In other words you can put this row
' everywhere in the Sub to check
' whether the Mouse is up, and if    
' it is really up, the MouseDown Sub
' will stop.

End Sub

                Pavel Tsekov
      email : paul_tsekov@yahoo.com    
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.