[Thewolf]

س !!!!!! دوستان خسته نباشید !!!!!!!!!!!!

چند سوال در مورد لیست باکس در وی بی 6

1 – چه طور می شه برنامه، آیتم های داخل لیست باکس رو چک کنه. (یعنی مثلا برنامه به صورت خودکار پوشه هایی با نام هایی که در لیست باکس قرار می دهیم در مسیری مشخص بسازه.).

2- چه طور می شه توسط دستور سیو ستینگ و لود ستینگ آیتم های داخل لیست باکس رو ذخیره کرد؟

با تشکر از دوستان (لطفا سریعتر راهنمایی کنید،،، ممنون خواهیم شد!!!) !!!!!!!!!!!!!!!!!!!!!!!!

[a.adhami]

اگه میخواین که نوشته های لیست باکس سیو یا لود کنید
برای سیو کردن:

کد:

On Error Resume Next
Dim i As Integer
Dim T As Integer
Dim Text As String
T = Me.Get.ListCount
Open App.Path & "/Parsicoders.txt" For Output As #1
For i = 0 To T
Text = Me.Get.List(i)
Write #1, Text
Next
Close #1

---

و برای لود کردن از کامپوننت ComonDialog استفاده کنید و اسم این رو بزارید cd1 (وقتی کامپوننت رو فعال کردید در فورمتون بیارید بعد اسم اون را همین که گفتم بزارید)

کد:

On Error Resume Next
Dim A$
cd1.ShowOpen
FilePach = cd1.FileName
Open FilePach For Input As #1
Do While Not EOF(1)
            Line Input #1, A$
            List1.AddItem A$ + Chr$(13) + Chr$(10)
        Loop
Close #1