Move an object on screen using mousedown, mouseup, and mousemove events

Oh, htamas , you are right, its even more simple:

Just make sure the controls you want to relocate (drag and drop)  DragMode property is sey to 1 (automatic) and locate this code in your FORM DragDrop event6:

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Screen.ActiveControl.Top = Y
End Sub

S

event6 = event   :(

S

htamas: what is this " If Button And 1 Then"

thats the same thing as (If Button Then)


1 is always true so why are youd oing AND 1?

-brian

I think he meant,

If (Button = 1) then

This was an ActiveX control with no dropdrag so awarded to shauli. have used dropdrag for other moves before. thanks

<< This was an ActiveX control with no dropdrag so awarded to shauli>>

You didn't !!! you awarede htamas

S

The thing I dont get is, at the end of htamas' post he says "modify "Button And 1" to "Button" in the second.", you would have think he would have relized that, that single line did not make sense :/


-b

To BrianGEFF719 for the question about Button:

Button is a binary number with these bits set:
1 (00000001) if the left mouse button is pressed
2 (00000010) if the right mouse button is pressed
4 (00000100) if the middle mouse button (or wheel) is pressed

In the MouseDown and MouseUp events, Button means the actual button that was pressed or released. In MouseMove, Button is all the buttons that are held down when the mouse is moved. That is, if you move the mouse with the left and the middle button held down, Button is 5. The vb 'And' operator not only works on logical (=booelan) values, but also performs bitwise arithmetic on numbers. For example, "Debug.Print 3 And 6" would output 2, since 3 is 011, 6 is 110 and the masked value (only common bits set) is 010, which is 2. You can use bitwise arithmetic to check whether a certain button is held down:
Button And 1   is 1 if the left mouse button is pressed, 0 otherwise
Button And 2   is 2 if the right mouse button is pressed, 0 otherwise
Button And 4   is 4 if the middle mouse button is pressed, 0 otherwise
(due to the difference in the handling of Button in the MouseDown/MouseUp events stated above, this only works in MouseMove)

Since the If statement classifies nonzero values as True, you may use "If Button And 1 Then ..." to execute "..." only if the left mouse button is hold down while moving the mouse.

I hope I have made it clear now.
And, thanks for the points.

Htamas: here is the logic in your code:


if (button) and (1)
 this is saying that

if (button = true) and (1 = true) then

you need

if button =1
if button = 2
if button = 4

etc
etc


Once again your logica does not make senes

BrianGEFF719:
No, "If (button) and (1)" is not the same as "If (button = true) and (1 = true)".
Check this code:

Sub Main()
  Button = 3
  If (Button) And (1) Then Debug.Print "A"
  If (Button = True) And (1 = True) Then Debug.Print "B"
End Sub

If you run it, you'll notice that A is printed and B is not. This means that they are not the same. "And" does not mean that there are two conditions, it is a bitwise operator. If you are unsure about what it means and it wasn't clear in my previous post, you should google for 'bitwise and', you'll surely find an explanation for that.

I'll insist on "If Button And 1 Then", it was intentionally put in my code. Again, it you think my code is wrong, try it first :). It works fine for me.