Sdílet prostřednictvím

End – příkaz

  • Článek

Ukončí provádění okamžitě.

Syntaxe

End

Poznámky

Příkaz můžete umístit End kamkoli do procedury, aby se celá aplikace přestala spouštět. End zavře všechny soubory otevřené příkazem Open a vymaže všechny proměnné aplikace. Aplikace se zavře, jakmile žádné jiné programy neobsahují odkazy na své objekty a žádný z jeho kódu není spuštěn.

Poznámka:

Příkaz End náhle zastaví provádění kódu a nevyvolá ani Finalize metodu Dispose ani žádný jiný kód jazyka Visual Basic. Odkazy na objekty uchovávané jinými programy jsou neplatné. Pokud je End příkaz zjištěn v rámci Try nebo Catch bloku, ovládací prvek nepřejde do odpovídajícího Finally bloku.

Příkaz Stop pozastaví provádění, ale na rozdíl od Endněj nezavře žádné soubory ani vymaže žádné proměnné, pokud není zjištěn v kompilovaném spustitelném souboru (.exe).

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

Měli byste používat End střídmě a pouze tehdy, když potřebujete okamžitě zastavit. Běžné způsoby ukončení procedury (příkaz Return a příkaz Exit) nejen čistě zavřít proceduru, ale také dát volajícímu kódu příležitost zavřít čistě. Konzolová aplikace může například jednoduše Return z Main postupu.

Důležité

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

Když následuje další klíčové slovo, Příkaz koncového <klíčového slova> označuje 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á příkaz End k ukončení provádění kódu, pokud si ho uživatel vyžá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é