drag and drop question

I am using vb 6 and I want to be able to drag and drop controls on a form at runtime(for this example a textbox or a label) I have an image of a ruler on the top and side of the form and when I drag the textbox, etc... to a spot on the ruler it always snaps back a few and never lines up correctly. I tried a couple of examples I found on this site and it didn't work. Can someone post a simple example of how to do this? I want the control to stay at the point it is dropped not move.

Thank you,

Matt
heydudeAsked:
Who is Participating?
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
Assuming your Label (Label1) is a Control Array:

Option Explicit

Private startX As Single
Private startY As Single

Private Sub Label1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        startX = X
        startY = Y
    End If
End Sub

Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        Label1(Index).Move Label1(Index).Left + (X - startX), Label1(Index).Top + (Y - startY)
    End If
End Sub
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.