Почему не работает цикл??? - Помощь студентам

kobolok · 06.05.2009, 12:21

Dim F As Long
Dim MyText As String
Dim AllMyText As String

Private Sub Command1_Click()
Text5.Text = ""
Text1.Text = "Radmin.exe"
Text3.Text = ":4899"
Text2.Text = "/connect:"

F = FreeFile
Open App.Path & "\Справка.txt" For Input As #F
Do Until EOF(F)
Line Input #F, MyText
Text5.Text = Text1.Text & Text2.Text & MyText & Text3.Text & vbCrLf
Loop
Close #F

kobolok · 06.05.2009, 12:24

Сорри,всё сам понял,уже работает

06.05.2009, 12:21	#1
kobolok Пользователь Регистрация: 20.11.2008 Сообщений: 23	Почему не работает цикл??? Dim F As Long Dim MyText As String Dim AllMyText As String Private Sub Command1_Click() Text5.Text = "" Text1.Text = "Radmin.exe" Text3.Text = ":4899" Text2.Text = "/connect:" F = FreeFile Open App.Path & "\Справка.txt" For Input As #F Do Until EOF(F) Line Input #F, MyText Text5.Text = Text1.Text & Text2.Text & MyText & Text3.Text & vbCrLf Loop Close #F

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Почему появляется цикл?	valerij	Microsoft Office Excel	11	11.02.2009 00:20
Почему не работает тег align=right?valign работает а align нет!	aviv	HTML и CSS	5	21.01.2009 17:46
Почему не работает цикл?????	Marsik	Помощь студентам	2	22.06.2008 14:16
Цикл не работает...?	Иринкаа	Помощь студентам	6	17.11.2007 00:27

06.05.2009, 12:24	#2
kobolok Пользователь Регистрация: 20.11.2008 Сообщений: 23	Сорри,всё сам понял,уже работает