Drag & Drop from a label to a text box

Hi,

I've been looking for a piece of code to drag & drop text from a label to a text box.

Its a simple process of a list of ten or so labels and I want the user to drag one of the labels and drop it into a text box.  Just dragging the caption would be great.

Thanks
Mark
LVL 1
haywam59Asked:
Who is Participating?
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
Try something like...
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then
     Set MyDataObject = New DataObject
     MyDataObject.SetText Label1.Caption
     MyDataObject.StartDrag
    End If
End Sub

Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 1 Then
     Set MyDataObject = New DataObject
     MyDataObject.SetText Label2.Caption
     MyDataObject.StartDrag
    End If
End Sub

' ... repeat for the other labels ...

Open in new window

0
 
skrgaCommented:
Maybe following link may help you, just it's dragging textbox onto label..
http://www.devx.com/vb/Article/8029/1954
0
 
haywam59Author Commented:
Hi Skrga

Thanks but excel vba doesn't have the same events as VB6.  I can get it to work from one text box to another but not from a label to a text box.

Thanks
0
 
haywam59Author Commented:
Perfect
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.