Vb dragdrop event after the call, compiled after running the program can drag drag picturebox contro-CodePudding

Private Sub Form_Load ()
Picture1. DragIcon=LoadPicture (" E: \ VBP \ icon \ ABC ico ")
End Sub

Private Sub From_DragDrop (Source As the Control, As Single X, Y As Single)
Rem is this program is not an error, but after dragging down, controls and didn't follow the movement of the dragging the mouse over , please have a look at what the problem is
Source. The Move (X-ray Source. Width/2), (Y - Source. Height/2)
End Sub

Private Sub Picture1_MouseDown (Button As an Integer, Shift the As an Integer, As Single X, Y As Single)
Picture1. Drag 1
End Sub

Private Sub Picture1_MouseUp (Button As an Integer, Shift the As an Integer, As Single X, Y As Single)
Picture1. Drag 2
End Sub

CodePudding user response:

Delete Private Sub From_DragDrop (Source As the Control, As Single X, Y As Single)
Use the event menu to call out the Private Sub From_DragDrop (Source As the Control, As Single X, Y) As Single