[Webinar] Streamline your web hosting managementRegister Today

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

VB6 - Drag and drop file/s onto a textbox

Hello.  I have a text box, and I'd like to be able to drag a file from windows explorer onto it, and have the text box show the full path of the file after it is dropped on there.  It's easy to do this in .NET, but I'm not sure how to do it in VB6.  It would be nice to know how to extract the path of multiple files dragged onto it, though for my use this time only 1 is necessary.  Does anyone know how to do this?

Thanks.
0
prosh0t
Asked:
prosh0t
1 Solution
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
(the TextBox has MultiLine set to True)

Option Explicit

Private Sub Form_Load()
    Text1.OLEDropMode = 1 ' Manual
    Me.OLEDropMode = 1 ' Manual
End Sub

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Data.GetFormat(vbCFFiles) Then
        Dim sText As String
        Dim i As Integer
        For i = 1 To Data.Files.Count
            sText = sText & Data.Files(i) & vbCrLf
        Next
        Text1.SelText = sText
    End If
End Sub

Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call Form_OLEDragDrop(Data, Effect, Button, Shift, X, Y)
End Sub
0
 
prosh0tAuthor Commented:
Thanks!  Worked perfectly..
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

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