View Full Version : سوال: کد درج و خواندن فایل ترتیبی و نمایش آن در یک لیست باکس
Omid_hope
پنج شنبه 24 اردیبهشت 1388, 14:45 عصر
سلام دوستان من می خوام برنامه بنویسم که بتونه با زدن دکمه Add یک متنی رو به فایل ترتیبی اضافه کنه و با زدن دکمه Show متن رو از فایل ترتیبی خونده و در یک لیست باکس نمایش بده . ممنون می شم که کمکم کنید .
hmrbesharat
پنج شنبه 24 اردیبهشت 1388, 22:08 عصر
Private Sub Add_Click()
Dim temp As String
temp = InputBox("string")
Open "c:\a.txt" For Append As #1
Print #1, temp
Close
End Sub
Private Sub Show_Click()
List1.Clear
Dim temp As String
Open "c:\a.txt" For Input As #1
While Not EOF(1)
Line Input #1, temp
List1.AddItem temp
Wend
Close
End Sub
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.