View Full Version : یه سوال در مورد تکست باکس
a_m_i_n_000
پنج شنبه 12 آذر 1388, 10:50 صبح
سلام
می خواستم ببینم چه طوری میشه که یک تکست باکس تو ویژوال بیسیک بسازیم که اگه فایلی رو بکشیم و تو تکست باکس رها کنیم آدرس فایل تو تکست باکس نوشته بشه .مثلا c:\windows\test.exe
اگه می شه سورس کد رو بزارین .
ممنون
leilast
پنج شنبه 12 آذر 1388, 15:33 عصر
میتونی از کامپوننت arielbrowsfile یا arielbrosefolder استفاده کنی.
butterfly8528
پنج شنبه 12 آذر 1388, 20:04 عصر
سلام .
دوست من برای این کار فقط کافیه خاصیت 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
پروژه رو هم ضمیمه کردم .
موفق باشی .
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.