VBNet - Форум - Помогите с добавлением в textbox

Вопрос: Помогите с добавлением в textbox Добавлено: 18.11.06 13:09

Автор вопроса: Gooch

Прочитал вот это:

'Свойство 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

В этой программе берется текстовый файл, и из него вставляется первая строчка в textbox на форме, а мне надо чтобы вставлялись вск строчки в текстовом документе

Подскажите плиз как это сделать?
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: Сашок ICQ: 387093431 Вопросов: 1 Ответов: 70	Профиль \| \| #1	Добавлено: 18.11.06 17:58
	Ты открыл файл для двоичного потока, а нужно для текстового. Вот пример правильного кода Private Sub Form_Load() Dim strString As String Text1.Text = "" FileNum = FreeFile Open "c:\123.txt" For Input As FileNum While Not EOF(1) Input #FileNum, strString Text1.Text = Text1.Text & strString & vbCrLf Wend Close #FileNum End Sub Ответить

Номер ответа: 2 Автор ответа: -АлександР- Вопросов: 55 Ответов: 1008	Web-сайт: sham.clan.su Профиль \| \| #2	Добавлено: 18.11.06 18:37
	Do Until EOF(nFile) myText = Input(1, #nFile) allmyText = allmyText & myText Loop Close #nFile frmMain.Text3.Text = allmyText Ответить

Номер ответа: 3 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #3	Добавлено: 18.11.06 23:28
	Dim f as Byte: f=FreeFile Dim buffer as string Open file$ For Binnary as #f buffer = space$(lof(f)) Get #f,,buffer Close #f Text1 = buffer Ответить

Номер ответа: 4 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #4	Добавлено: 18.11.06 23:28
	Dim f as Byte: f=FreeFile Dim buffer as string Open file$ For Binnary as #f buffer = space$(lof(f)) Get #f,,buffer Close #f Text1 = buffer Ответить

Номер ответа: 5 Автор ответа: Gooch Вопросов: 2 Ответов: 1	Профиль \| \| #5	Добавлено: 19.11.06 15:12
	Ты открыл файл для двоичного потока, а нужно для текстового. Вот пример правильного кода Spasibo, pomog Ответить

Номер ответа: 6 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #6	Добавлено: 19.11.06 17:05
	fixed: 'Str = Space(LOF(1)) Str = Space(LOF(FileNum)) 'Text1.Text = Text1.Text & Str Text1 = Str А так и твой пример правельный... Ответить

Страница: 1 |