اضافه کردن به لیست [بایگانی]

talent1

سه شنبه 02 اردیبهشت 1393, 11:27 صبح

یه فایل متنی دارم چند خط نوشته توش هست
میخوام این خط ها رو بیارم تو ایتم های لیست چجوری این کارو کنم ؟

talent1

سه شنبه 02 اردیبهشت 1393, 12:39 عصر

ممنون خودم حلش کردم

Dim ff As Long
Dim line As String
ff = FreeFile
Open com1.FileName For Input As #ff
Do While Not EOF(ff)
Line Input #ff, line

If Len(line) Then List1.AddItem line
Loop
Close #ff
End If