View Full Version : سوال: چه طور محتویات فایل Txt رو داخل یک ListBox قرار بدم!
mohammadriano
یک شنبه 29 مرداد 1391, 19:44 عصر
سلام
من یک جای یکی از برنامه هام دچار مشکل شدم
برنامه ای می خوام که محتویات فایل txt رو داخل یک ListBox اظافه کنم
لطفا راهنمایی کنید
program2vb
یک شنبه 29 مرداد 1391, 20:18 عصر
سلام دوست عزیز
با استفاده از دستورهای زیر میتونی توی لیست باکس اد کنی
list1.AddItem "proram2vb"
list1.AddItem text1.text
موفق و پیروز یاشی .... یا علی
mohammadriano
یک شنبه 29 مرداد 1391, 21:06 عصر
منظور من این هست
91519
SlowCode
یک شنبه 29 مرداد 1391, 21:13 عصر
فکر کنم این کارت رو راه بندازه.
Open "C:\List.txt" For Input As #1
While Not EOF(1)
Input #1, a
List1.AddItem a
Wend
محسن واژدی
یک شنبه 29 مرداد 1391, 21:25 عصر
سلام علیکم
پست های زیر را هم بررسی کنید:
http://barnamenevis.org/showthread.php?312916-%D8%A8%D8%A7%D8%B2%DA%A9%DB%8C%D8%AF%D9%86-%D9%85%D8%AD%D8%AA%D9%88%DB%8C-%DB%8C%DA%A9-%D9%81%D8%A7%DB%8C%D9%84-%D9%85%D8%AA%D9%86%DB%8C-%D8%AF%D8%B1-%DB%8C%DA%A9-%D8%AA%DA%A9%D8%B3-%D8%A8%D8%A7%DA%A9%D8%B3&p=1373676&viewfull=1#post1373676
http://barnamenevis.org/showthread.php?272306-%DA%86%D8%B7%D9%88%D8%B1-%DB%8C%DA%A9-%D9%81%D8%A7%DB%8C%D9%84-txt-%D8%B1%D8%A7-%D8%AF%D8%B1-%D9%84%DB%8C%D8%B3%D8%AA-%D8%A8%D8%A7%DA%A9%D8%B3-%D8%AF%D8%B1%D8%AC-%DA%A9%D9%86%DB%8C%D9%85-%D8%9F&p=1203612&viewfull=1#post1203612
موفق باشید
mohammadriano
یک شنبه 29 مرداد 1391, 22:38 عصر
خیلی ممنون
حالا بالعکس جه طور این کار رو انجام بدم!
یعنی محتویات ListBox رو به صورت یک لیست داخل فایل txt قرار بدم
SlowCode
یک شنبه 29 مرداد 1391, 23:17 عصر
بفرما:
Open "C:\Log.txt" For Output As #1
For i = 0 To List1.ListCount
Print #1, List1.List(i)
Next
محسن واژدی
دوشنبه 30 مرداد 1391, 01:58 صبح
ذخیره و بازیابی list-box
http://barnamenevis.org/showthread.php?346430-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87-%D9%85%D8%AD%D8%AA%D9%88%DB%8C%D8%A7%D8%AA-%D9%84%DB%8C%D8%B3%D8%AA-%D8%A8%D8%A7%DA%A9%D8%B3-%D8%AF%D8%B1%D9%88%D9%86-%D9%81%D8%A7%DB%8C%D9%84-%D9%85%D8%AA%D9%86%DB%8C&p=1527795&viewfull=1#post1527795
موفق باشید
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.