Rozkaz End

Instrukcja End kończy program, procedurę lub blok instrukcji.

Składnia rozkazu End:

End
End Function
End If
End Property
End Select
End Sub
End Type
End With

Składnia rozkazu End przyjmuje następujące formy:

End	przerywa natychmastowo wykonywanie programu. Może być umieszczona w dowolnym miejscu w procedurze w celu zakończenia wykonywania programu, zamyka pliki otwarte przy pomocy instrukcji Open i czyści wszystkie zmienne.
End Function	wymagana do zakończenia instrukcji Function
End If	wymagana do zakończenia bloku instrukcji If...Then...Else
End Property	wymagana do zakończenia procedur Property Let, Property Get lub Property Set
End Select	wymagana do zakończenia instrukcji Select Case
End Sub	wymagana do zakończenia instrukcji Sub
End Type	wymagana do zakończenia definicji typu zdefiniowanego przez użytkonika (instrukcji Type)
End With	wymagana do zakończenia instrukcji With

Gdy zostanie wykonana instrukcja End zostaną wyzerowane wszystkie zmienne z poziomu modułu, i wszystkie lokalne statyczne zmienne we wszystkich modułach. Aby zachować wartości tych zmiennych, należy użyć instrukcji Stop, zamiast End.

Instrukcja End zatrzymuje wykonanie programu nagle, bez wywoływania zdarzeń Unload, QueryUnload, Terminate bądź jakiegokolwiek innego kodu Visual Basica. Kod jaki umieszczony jest w zdarzeniach Unload, QueryUnload i Terminate form i modułów klas nie będzie wykonany. Obiekty stworzone z modułów klas będą zniszczone, pliki otwarte instrukcją Open zostaną zamknięte i zwalniana zostaje pamięć używana przez program. Referencje obiektów umieszczone w innych programach zostaną unieważnione.

Instrukcja End zmusza program do zatrzymania się. Przy normalnym zakończeniu programu Visual Basica, należy wyłączyć wszystkie formy. Program powinien się zamknąć dopiero wóczas, jeżeli żaden inny program nie posiada referencji obiektów stworzonych z publicznych modułów klas i żaden kod programu nie jest wykonywany.

Przykład użycia instrukcji End do zakończenia programu, jeżeli użytkownik wpisze błędne hasło:

Sub Form_Load
   Dim varHaslo, varSlowo
   varHaslo = "Numer1"
   varSlowo = InputBox("Wpisz swoje hasło")
   If varSlowo <> varHaslo Then
      MsgBox "Hasło nieprawidłowe"
      End
   End If
End Sub

Zmienne, typy zmiennych, InputBox(), MsgBox(), operatory porównania i rozkaz If zostały opisane w innych częściach kursu.

na górę strony...