درگ فایل از دسکتاپ به برنامه

[S_VB.max]

من می خوام یک فایل متنی را از دسکتاپ بر روی Text Box درگ کنم به طوری که محتویات فایل در آن نشان داده شود چه جوری می تونم این کار را بکنم ؟

[behzad_gh]

سلام اول خصوصیت OLEDropMode تکست باکس رو به 1-Manual تغییر بده بعد کد زیر رو تو برنامت بذار :



Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
If (Data.Files.Count > 0) And (Dir(Data.Files(1)) <> "") Then
If UCase(Right(Data.Files(1), 4)) = ".TXT" Then
FileName$ = Data.Files(1)
Open FileName$ For Input As #1
Text1.Text = Input(LOF(1), 1)
Close
End If
End If
End Sub