Что-то вроде "loading..." подскажите, плиз.

[homA]

У меня такой код:

Код: Выделить всё

Private Sub butRW_Click()
On Error GoTo handle
txtRW.Text = Inet1.OpenURL(txtRW.Text, icString)
Exit Sub
handle: MsgBox "Error " & Err.Description
End Sub

А как сделать так, чтобы пока программа получала инфо из текстового файла в инете в текстбокс, в текстбоксе было написано "Получение инфы"?
Заранее спасибо.

[Sirik]

Используй DoEvents

ЗЫ. Но если используешь компнент WebBrowser, то лучше смотри событие ProgressChange

[homA]

Не, я использую, inet transfer компонент.
Так а какой код в мой код вписать, чтоб это заработало?

[step]

ЗАКИНЬ СЮДЫ (НА ЭТУ ТЕМУ) КОМПОНЕНТ inet transfer, МОЖЕТ ЧЁ ПОДСКАЖУ!

[Sirik]

ЗАКИНЬ СЮДЫ (НА ЭТУ ТЕМУ) КОМПОНЕНТ inet transfer, МОЖЕТ ЧЁ ПОДСКАЖУ!

Так это же стандартный компонент: Microsoft Internet Transfer Control X.0

[homA]

ЗАКИНЬ СЮДЫ (НА ЭТУ ТЕМУ) КОМПОНЕНТ inet transfer, МОЖЕТ ЧЁ ПОДСКАЖУ!

Так это же стандартный компонент: Microsoft Internet Transfer Control X.0

Именно!

[VOS]

Это стандарт только для SP4!!

Код: Выделить всё

Private Sub butRW_Click()
On Error GoTo handle
st$ = txtRW.Text
txtRW.Text = "loading..."
txtRW.Text = Inet1.OpenURL(st$, icString)
Exit Sub
handle: MsgBox "Error " & Err.Description
End Sub

Если хочешь немного не так, смотри ивент StateChanged(ByVal State As Integer)
state завершения - 8