VBNet - Форум - Че то туплю..:)

Вопрос: Че то туплю..:) Добавлено: 03.06.03 16:05

Автор вопроса: Любитель

Че то туплю...не могу сделать так: У меня по нажатию на "батон" в textbox'e открывается файл...нажимаешь второй опять открывается, но textbox не очищается..:( я как то раньше делал, а как не помню..пишу перед открытием Text1.text="" не помогает..
подскажите...

Ответить

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

Номер ответа: 1
Автор ответа:

E-Man

Вопросов: 3
Ответов: 132

Профиль | | #1

Добавлено: 04.06.03 10:56

Должно помочь. Потому что не может не помочь. Короче, вышли кусок проблемного кода на е-мэйл, исправлю.. phoenix_group@mail.ru

Ответить

Номер ответа: 2
Автор ответа:

Smith

ICQ: ненавижу

Вопросов: 28
Ответов: 317

Web-сайт: Не хочу ломать голову, если её уже сломал кто-то другой.
Профиль | | #2

Добавлено: 04.06.03 15:16

Должно работать.

А может ты не тот TextBox очищаешь. Сколько у тебя их на форме?

А еще проверь, действительно ли перед открытием ты эту строку ставишь, может промахнулся?

Конечно звучит глупо, но бывает и посмешнее, сам попадался на таких мелочах.

Ответить

Номер ответа: 3 Автор ответа: Padre ICQ: 346632205 Вопросов: 25 Ответов: 215	Web-сайт: localhost Профиль \| \| #3	Добавлено: 04.06.03 21:49
	Можно ещё вот так Text1.Text = vbNullString Ответить

Номер ответа: 4
Автор ответа:

Любитель

Вопросов: 6
Ответов: 6

Профиль | | #4

Добавлено: 04.06.03 22:48

Код такой:

Private Sub Form_Paint()
Text1.Text = ""
Open "temp.dat" For Input As #1
Do Until EOF(1)
Line Input #1, txt
alltxt = alltxt + txt + vbCrLf
Loop
Close #1
Text1.Text = alltxt
End Sub

При загрузке формы загружается файл "temp.dat" НО! Выгружаешь форму(Не приложение!) и загружаешь снова, получается в текстбоксе открывается "temp.dat"+"temp.dat" то бишь текстбокс не очищается от первого открытия....

Ответить

Номер ответа: 5 Автор ответа: Padre ICQ: 346632205 Вопросов: 25 Ответов: 215	Web-сайт: localhost Профиль \| \| #5	Добавлено: 05.06.03 01:12
	Тогда тебе надо ставить очистку текстбокса в событии выгрузки или загрузки формы. Ответить

Номер ответа: 6
Автор ответа:

>Govnuk

Вопросов: 0
Ответов: 3

Профиль | | #6

Добавлено: 05.06.03 21:07

А не проще так:

Код такой:

Private Sub Form_Paint()
Text1.Text = ""
Open "temp.dat" For Input As #1
Do Until EOF(1)
Line Input #1, txt
alltxt = text1 + txt + vbCrLf
Loop
Close #1
Text1.Text = alltxt
End Sub

Ответить

Страница: 1 |