Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
moving a picture 1
- Thread starter aviles22
- Start date
-
1
- #2
Place a picture box on a form.
Put a picture in the picture box.
Set the OLEDragMode of the Picture box to Automatic.
Set the OLEDropMode of the Form to Manual.
Paste this code in the form
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Left = X
Picture1.Top = Y
End Sub
Run the application. The picure will drop where ever you drag it.
Snaggs
tribesaddict@swbell.net
To define recursion, we must first define recursion.
Put a picture in the picture box.
Set the OLEDragMode of the Picture box to Automatic.
Set the OLEDropMode of the Form to Manual.
Paste this code in the form
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Left = X
Picture1.Top = Y
End Sub
Run the application. The picure will drop where ever you drag it.
Snaggs
tribesaddict@swbell.net
To define recursion, we must first define recursion.
- Status
