Шаг 109 - Следим за соединением Microsoft Internet Transfer Control

У данного элемента управления есть извещение.

gif/109_1.gif (2720 b)

Это извещение вызывается при смене состояния. Вызывается во многих случаях. Например, после соединения или разрыва. Одним из таких случаев является ошибка. Давайте ее и обработаем.

Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case icError
MsgBox "Error"
End Select
End Sub

Запускаем проект без подключения к Интернет.

gif/109_2.gif (3199 b)


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.