25
Февраль
2009
Как прочитать данные из файла в текстовое поле?
Как прочитать данные из файла в текстовое поле?
'Свойство TextBox Multiline установите в True Option Explicit Dim Str As String Dim FileNum As Byte Private Sub Form_Load() Text1.Text = "" FileNum = FreeFile 'Не забудьте создать файл в папке с примером 'Иначе он будет создан программой, но будет пустой 'И результата вы не увидете Open App.Path & "\123.txt" For Binary As FileNum Str = Space(LOF(1)) Get #FileNum, , Str Text1.Text = Text1.Text & Str Close #FileNum End Sub