Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 226
  • Last Modified:

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
0
heydude
Asked:
heydude
1 Solution
 
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

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now