Программирование
Веб программирование

Процедуры Visual Basic. Exit Sub

 
 

Опертор Exit Sub нужен для Аварийного выхода из процедуры. Много о нем я говорить не буду, но чтобы понять для чего он нужен сделаем программу. Смысл нашей программы будет в том, что при нажатии на кнопку, у ней свойство Caption = "padre03@mail.ru", при повторном нажатии Caption = "http://vbbook.ru/", потом опять = "padre03@mail.ru", и так до упора. Можешь попробовать сам сделать эту программу, НО в любом случае этот шаг прочитай. На форму кинь кнопку, и впиши код:

Dim QW1 As Long, QW2 As Long

Private Sub Command1_Click()
If QW1 = 1 Then
Command1.Caption = "padre03@mail.ru"
QW2 = 1
QW1 = 0
Exit Sub
End If

If QW2 = 1 Then
Command1.Caption = "http://vbbook.ru/"
QW2 = 0
QW1 = 1
Exit Sub
End If
End Sub

Private Sub Form_Load()
QW1 = 1
End Sub

Не буду объяснять, сам должен разобраться. Исходник - Здесь

Для аварийного выхода из функций есть функция Exit Function


Есть вопросы? Спроси на нашем форуме!!
Нет комментариев

Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.