End – příkaz

  • Článek
  • 2 min ke čtení

Okamžitě ukončí provádění.

Syntax

End

Poznámky

Příkaz lze umístit End kdekoli v proceduře pro vynucení zastavení celé aplikace. End zavře všechny soubory otevřené Open příkazem a vymaže všechny proměnné aplikace. Aplikace se zavře, jakmile neexistují žádné další programy, které by podržely odkazy na své objekty a žádný z jeho kódu není spuštěn.

Poznámka

Endpříkaz zastaví provádění kódu náhlé a nevyvolává Dispose metodu or ani Finalize žádný jiný kód Visual Basic. Odkazy na objekty držené jinými programy jsou neověřené. Pokud End se v rámci bloku nebo vyskytne příkaz Try Catch , ovládací prvek neprojde odpovídajícím Finally blokem.

StopPříkaz pozastaví provádění, ale na rozdíl od End , neuzavře žádné soubory ani nevymaže žádné proměnné, pokud se nevyskytly v kompilovaném spustitelném souboru (.exe).

Vzhledem k tomu, že End aplikace ukončí aplikaci bez účasti na jakýchkoli prostředcích, které mohou být otevřeny, měli byste se před použitím pokusit ukončit činnost. Například pokud má vaše aplikace otevřené nějaké formuláře, měli byste je před tím, než ovládací prvek dosáhne End příkazu, zavřít.

Měli byste používat End jenom zřídka a jenom v případě, že potřebujete okamžitě skončit. Normální způsoby ukončení procedury (příkaz return a příkaz exit) nezavřou pouze postup, ale také volajícímu kódu, aby příležitost uzavřela čistou činnost. Konzolová aplikace může být například jednoduše Return z Main procedury.

Důležité

EndPříkaz volá Exit metodu Environment třídy v System oboru názvů. Exit vyžaduje, abyste měli UnmanagedCode oprávnění. Pokud to neuděláte, SecurityException dojde k chybě.

Když následuje klíčové slovo Next, <keyword> příkaz end rozděluje konec definice příslušného postupu nebo bloku. Například End Function ukončí definici Function procedury.

Příklad

Následující příklad používá End příkaz k ukončení provádění kódu, pokud si ho uživatel požádá.

Sub Form_Load()
    Dim answer As MsgBoxResult
    answer = MsgBox("Do you want to quit now?", MsgBoxStyle.YesNo)
    If answer = MsgBoxResult.Yes Then
        MsgBox("Terminating program")
        End
    End If
End Sub

Poznámky pro vývojáře inteligentního zařízení

Tento příkaz není podporován.

Viz také