Is it possible to allow frames on a main form to be dragged around (repositioned) on the main form by the user during the program operation (runtime?)
What is the option needed to allow this functionality?
Printable View
Is it possible to allow frames on a main form to be dragged around (repositioned) on the main form by the user during the program operation (runtime?)
What is the option needed to allow this functionality?
Seeing that it doesn't even have a handle, like most windows, it isn't possible.
Frames are only a way of grouping what's on the form, the way it exists. If the Form size changes, the frame sizes change
If I turn on the Frame Drag mode property to automatic it does let me drag the frame around during run, but when I let go it goes back to where it was...so it seems like it almost does it!
D, D, D.... A frame does have a hwnd and so setcapture would work... Candy, please have a look at http://www.vbkeys.com/ctl5.aspx (the download link still works)
@vb5: good example
@candy: your attempts would also lead to a result.
You'd have to go to the Form_DragDrop() event which is raised when you drop the dragged frame. The event is called Form_DragDrop(Source As Control, X!, Y!) where Source is your Frame, X and Y are the mouse pointer coordinates on the Form when dropping.
The only problem is to take in account where you grabbed the frame. Mostly you wouldn't grab it at the top-left corner, but somewhere in the middle. You would have to detect the offset of the mousepointer within the dragged frame, but unfortunately you get no more Frame_MouseDown() events if the Frame's DragMode is set to Automatic.Code:Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X, Y
End Sub
Quote:
Originally Posted by vb5prgrmr
Oops. There is something unique about the frame, and I thought that was it.
WOF:
I took your thoughts and came up with the following (the frame is intialized to dragMode=Manual)
This works very well....EXCEPT you have to move the frame a large distance before the form dragDrop will fire on mouse release...so if you need a minor position adjustment you have to set down the frame far away then pull it back into desired position...how come?
Code:Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Mx = X
My = Y 'grab mouse coordinates
Frame1.DragMode = 1 '(automatic)
Frame1.Drag 'start dragging NOW
End Sub
'.....
'.....
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X - Mx, Y - My 'final resting spot
Source.DragMode = 0 'back to manual (no dragging)
End Sub
This
is clever. So you get the offset of the mouse pointer within the frame.Code:Frame1.DragMode = 1 '(automatic)
Frame1.Drag 'start dragging NOW
To answer your question:
Set a breakpoint in the Form_DragDrop() event and try dragging.
As long as the mouse pointer is on the frame you try to trag, the drop event of the form will not fire, because the mouse is still over the frame. The event will only fire if the mouse is over plain form client area.
You could come by if you make the frame invisible as soon as you grab it, and visible again when you drop it. This works fine I just tried it. Only a little strange because the frame vanishes while you drag the outline of it.
Substitute another box inside. Dotted lines?
Yeah, good idea.
Could be a simple Shape object moved to the frames original location and size at Drag start.
Shape objects have the advantage of being "mouse-transparent", that is they do not block the mouse events from the forms client area like the Frame does.
I've been using the drag method described above (ignoring the fact that when you drag you see an outline)...but what I ran into (er, just noticed) is that if you drag one almost under the another it dissappears & totally vanishes even if you drag the remaining frame to the side---the one that disappeared is really gone! what is causing this vanishing act?
Is one frame being deposited into the other? They should all just slide around on the main form.
Can you attach a small form with the code you are using for the moving and 2 frames where we can see the effect?
Actually it sounds quite improbable what you are describing.
Hello:
the code is as given below. The frames are indexed frames.
Code:Private Sub FrameProto_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
mX = X
mY = Y 'grab mouse coordinates
FrameProto(Index).DragMode = 1 '(automatic)
FrameProto(Index).Drag 'start dragging NOW
FrameProto(Index).Visible = False'.....
'.....
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) 'main form sub
On Error Resume Next
Source.Move X - mX, Y - mY 'final resting spot
Source.DragMode = 0 'back to manual (no dragging)
Source.Visible = True
End Sub
Well now, there's a thing. :D
Ok, I shall play around with that one. It is like when you are dropping one fram on the other it completely vanishes. This happens when the mouse pointer is over the second frame when dropping the first one. Looks like some weird bug.
This here reveals what happens:
The frame is not dropped to the form, but the other frame takes the drop event. You will see that it was not dropped to the form at all. That's why it has not changed its position and that's why Source.Visible = True in the Form_DragDrop() does not do anything: The event does not fire.Code:Private Sub FrameProto_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
Source.Visible = True
End Sub
Instead the FramProto_DragDrop() fires.
At the start of the drag operation you make the frame invisible, remember?
That's why it stays invisible: the Form_DragDrop() where you make it visible again did not fire.
So its NOT a bug. ;)
So how to fix? I do not want the frames to go away forever. I just wanthem to move on the main form.
Handing the DragDrop event on to the form, by taking in account, that X and Y were coordinates on the frame where the drop took place.
The same might apply to other controls which eat up the DragDrop event.Code:Private Sub FrameProto_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
Form_DragDrop Source, X + FrameProto(Index).Left, Y + FrameProto(Index).Top
End Sub
Thanks, I got rid of the .visible= false, now much better!!
Yes, but this still doesn't allow you to drop the frame when the mouse is over another frame.
Since all frames are an array, the solution I showed in the previous post allows the dropping as required. And you may remember, you put the .Visible = False there for some reason.
Which might not be important any more if you implement the above DragDrop() event.