چطور یک فایل txt را در لیست باکس درج کنیم ؟

[maxtools]

چطور یک متنی که در فایل txt است را در لیست باکس ریزیم ؟

مثلا :


تکس باکس
mmmmmm
sssssssssss
xxxxxxxxxxx
ffffffffffffffff


لیست باکس
mmmmmm
sssssssssss
xxxxxxxxxxx
ffffffffffffffff

اگر سورس بزارید ممنون می شم

[AlgorithmX]

سلام!
دوست عزیز ابتدا خاصیت MultiLine تکس باکستو برابر True قرار بده و برای تکس باکست اسکورل بار بزار(در خاصیت های تکس باکست هست!) و دستور زیر رو بنویس:


dim Stri as string
Open "File.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Stri
Text1.Text=Text1.Text+ Stri + VbNewLine
Loop
Close #1

[محسن واژدی]

سلام!
دوست عزیز ابتدا خاصیت MultiLine تکس باکستو برابر True قرار بده و برای تکس باکست اسکورل بار بزار(در خاصیت های تکس باکست هست!) و دستور زیر رو بنویس:


dim Stri as string
Open "File.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Stri
Text1.Text=Text1.Text+ Stri + VbNewLine
Loop
Close #1



سلام
البته همانگونه که Algoritm Soft (http://barnamenevis.org/member.php?145729-Algoritm-Soft) در پست گفتند از این دستور استفاده میشه اما برای اینکه اطلاعات رو در لیست باکس بریزین فقط کافیه که از دستور AddItem لیست باکس رو در ساختار دستورات بجای دستور Text وارد کنید، بصورت زیر:


dim Stri as string
Open "File.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Stri
List1.AddItem Stri
Loop
Close #1اما اگه بخواین محتویات رو در یک TextBox لود کنین دستورات بالا باعث افزایش زمان بارگذاری میشوند، بجاش دستور زیر فایل text رو یکباره در TextBox لود میکنه:




' import file contents
Open "c:\my_text.txt" For Input As #1
Text1.Text = Input(LOF(1), 1)