Drag & Drop from a label to a text box

haywam59
haywam59 used Ask the Experts™
on
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
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®

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

Author

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
High School Computer Science, Computer Applications, Digital Design, and Mathematics Teacher
Top Expert 2009
Commented:
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

Author

Commented:
Perfect

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial