|
Allowing a form control to be movable
(DRAG AND DROP)
This is a tip on how to make a control movable on a form. This example demonstrates a
movable picture box. Option Explicit
Public globalX As Integer
Public globalY As Integer Private
Sub Form_DragDrop(Source As Control, X As _
Single, Y As Single)
Picture1.Move X - globalX, Y - globalY
End Sub Private Sub
Picture1_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Picture1.Drag vbBeginDrag
globalX = X
globalY = Y
End Sub
|
