Haj MilaD
سه شنبه 27 آبان 1393, 20:39 عصر
درود
مشکلی که دارم اینه کد رو نوشتم تا برنامه با زدن دکمه Load لیست تکست از سیستم رو به List1 بریزه ولی اررور میده
Microsoft Commondialog هم اضافه کردم
http://up.tonel.org/images/cyzqr5wvy8g7r42992jh.png (http://up.tonel.org/)
اینم کد...
Private Sub Command1_Click(Index As Integer)
CommonDialog1.DialogTitle = "Tonel.Org'"
CommonDialog1.Filter = "text files (*.txt_|*.txt"
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, s
List1.AddItem
Loop
Close #1
End Sub
مشکلی که دارم اینه کد رو نوشتم تا برنامه با زدن دکمه Load لیست تکست از سیستم رو به List1 بریزه ولی اررور میده
Microsoft Commondialog هم اضافه کردم
http://up.tonel.org/images/cyzqr5wvy8g7r42992jh.png (http://up.tonel.org/)
اینم کد...
Private Sub Command1_Click(Index As Integer)
CommonDialog1.DialogTitle = "Tonel.Org'"
CommonDialog1.Filter = "text files (*.txt_|*.txt"
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Line Input #1, s
List1.AddItem
Loop
Close #1
End Sub