یه سوال در مورد تکست باکس

[a_m_i_n_000]

سلام
می خواستم ببینم چه طوری میشه که یک تکست باکس تو ویژوال بیسیک بسازیم که اگه فایلی رو بکشیم و تو تکست باکس رها کنیم آدرس فایل تو تکست باکس نوشته بشه .مثلا c:\windows\test.exe
اگه می شه سورس کد رو بزارین .
ممنون

[leilast]

میتونی از کامپوننت arielbrowsfile یا arielbrosefolder استفاده کنی.

[butterfly8528]

سلام .

دوست من برای این کار فقط کافیه خاصیت OLEDropMode تکست باکست رو به Manual تعغییر بدی و خاصیت MultiLine اون رو True کنی و کد زیر رو تو فرمت قرار بدی :


Private Sub text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)

Text1.Text = Data.Files.Item(1)


' baraye daryaft masir chand file hamzaman

'For i = 1 To Data.Files.Count
'Text1.Text = Data.Files.Item(i) & vbCrLf & Text1.Text
'DoEvents
'Next i

End Sub


پروژه رو هم ضمیمه کردم .

موفق باشی .