12 Декабрь 2008

Как загрузить текст из файла в ListBox?

ListBox, Файл |  Таги: , ,

Как загрузить текст из файла в ListBox?

Option Explicit

Private Sub Form_Load()
Dim strText As String
Dim FileNum As Integer
Dim FName As String
FileNum = FreeFile

Open App.Path & "\Text.txt" For Input As #FileNum
    Do While Not EOF(FileNum)
    Line Input #FileNum, strText
    List1.AddItem strText
    Loop
Close #FileNum
End Sub

Запись опубликована on 12.12.2008 at 18:00 и размещена в рубрике: ListBox, Файл. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.