- Код: Выделить всё
Dim f As Long
Dim mytext As String
Dim allmytext As String
Private Sub Command1_Click()
Text1.Text = ""
f = FreeFile
Open App.Path & "\sun.txt" For Input As #f
Do Until EOF(f)
Line Input #f, mytext
Text1.Text = Text1.Text & mytext & vbCrLf
Loop
Close #f
End Sub
Private Sub Command2_Click()
f = FreeFile
Open App.Path & "\sun.txt" For Input As #f
Do Until EOF(f)
mytext = Input(1, #f)
allmytext = allmytext & mytext
Loop
Close #f
Text1.Text = allmytext
End Sub
Автор обращает внимание на строку
- Код: Выделить всё
Text1.Text = ""
как необходимую для очистки Text1. Действительно, так и работает! При многократном нажатии на Command1, текст отображен без повторений.
Любопытства ради я вставил эту строку и в Command2_click. И глухо!
Сколько раз мы ткнем в Command2 - столько же раз текст добавится в Text1! То есть, очистки не происходит!
В чем дело? Растолкуйте тупорылой обезьяне!)
