اگه میخواین که نوشته های لیست باکس سیو یا لود کنید
برای سیو کردن:
و برای لود کردن از کامپوننت ComonDialog استفاده کنید و اسم این رو بزارید cd1 (وقتی کامپوننت رو فعال کردید در فورمتون بیارید بعد اسم اون را همین که گفتم بزارید)
برای سیو کردن:
کد:
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