Masoud Sj
جمعه 30 آبان 1393, 12:23 عصر
سلام و دود خدمت شما دوستان عزیز :)
چند روزیه میخوام برنامه اي بنویسم که تو اون باید امکان ذخیره کردن آیتم های لیست باکس به صورت فایل تکس باشه ، من کد زیر رو براش نوشتم :
CommonDialog1.Filter = "text fils |*.txt|"
CommonDialog1.ShowSave
If CommonDialog1.FileName = "" Then
Exit Sub
End If
Open CommonDialog1.FileName For Output As #1
Print #1, List1.Text
Close #1
تو قطعه کد بالا میگه آیتمی که در تکست باکس انتخاب شده رو به صورت فایل .txt ذخیره کن.. البته فقط 1 آیتم ذخیره میشه اونم آیتمیه که انتخاب شده...
من میخوام همه ی آیتم ها رو به صورت فایل تکست ذخیره کنه برام لطفا اگه راه حلی برای این مشکل من دارین بگین چون خیلی نیاز دارم
چند روزیه میخوام برنامه اي بنویسم که تو اون باید امکان ذخیره کردن آیتم های لیست باکس به صورت فایل تکس باشه ، من کد زیر رو براش نوشتم :
CommonDialog1.Filter = "text fils |*.txt|"
CommonDialog1.ShowSave
If CommonDialog1.FileName = "" Then
Exit Sub
End If
Open CommonDialog1.FileName For Output As #1
Print #1, List1.Text
Close #1
تو قطعه کد بالا میگه آیتمی که در تکست باکس انتخاب شده رو به صورت فایل .txt ذخیره کن.. البته فقط 1 آیتم ذخیره میشه اونم آیتمیه که انتخاب شده...
من میخوام همه ی آیتم ها رو به صورت فایل تکست ذخیره کنه برام لطفا اگه راه حلی برای این مشکل من دارین بگین چون خیلی نیاز دارم