i have a problem regarding resizing of images that is to be displayed using the picture box.
i also have a problem about the dragging and dropping method because the images tend to drag to a different location.
this is my drag n drop code:
[CODE=vb]Private Sub Picture28_DragD rop(Source As Control, X As Single, Y As Single)
If X > X1 Then Source.Left = Source.Left + (X - X1) Else Source.Left = Source.Left - (X1 - X)
If Y > Y1 Then Source.Top = Source.Top + (Y - Y1) Else Source.Top = Source.Top - (Y1 - Y)
End Sub
Private Sub Picture28_Mouse Down(Button As Integer, Shift As Integer, X As Single, Y As Single)
X1 = X
Y1 = Y
Picture28.Drag
Picture28.ZOrde r
End Sub[/CODE]
thank you for your help
i also have a problem about the dragging and dropping method because the images tend to drag to a different location.
this is my drag n drop code:
[CODE=vb]Private Sub Picture28_DragD rop(Source As Control, X As Single, Y As Single)
If X > X1 Then Source.Left = Source.Left + (X - X1) Else Source.Left = Source.Left - (X1 - X)
If Y > Y1 Then Source.Top = Source.Top + (Y - Y1) Else Source.Top = Source.Top - (Y1 - Y)
End Sub
Private Sub Picture28_Mouse Down(Button As Integer, Shift As Integer, X As Single, Y As Single)
X1 = X
Y1 = Y
Picture28.Drag
Picture28.ZOrde r
End Sub[/CODE]
thank you for your help
Comment