Slutsats
Avslutar körningen omedelbart.
Syntax
End
Kommentarer
Du kan placera instruktionen End var som helst i en procedur för att tvinga hela programmet att sluta köras. End stänger alla filer som öppnas med en Open instruktion och rensar alla programvariabler. Programmet stängs så snart det inte finns några andra program som innehåller referenser till dess objekt och ingen kod körs.
Kommentar
Instruktionen End stoppar kodkörningen plötsligt och anropar Dispose inte metoden eller Finalize eller någon annan Visual Basic-kod. Objektreferenser som innehas av andra program är ogiltiga. Om en End instruktion påträffas inom ett Try eller Catch flera block skickas inte kontrollen till motsvarande Finally block.
Instruktionen Stop pausar körningen, men till skillnad från Endstänger den inte några filer eller rensar några variabler, såvida den inte påträffas i en kompilerad körbar fil (.exe).
Eftersom End avslutar programmet utan att ta hand om några resurser som kan vara öppna bör du försöka stänga rent innan du använder det. Om ditt program till exempel har öppna formulär bör du stänga dem innan kontrollen når -instruktionen End .
Du bör använda End sparsamt och endast när du behöver sluta omedelbart. De normala sätten att avsluta en procedur (return-instruktion och slututtryck) stänger inte bara proceduren rent utan ger även anropskoden möjlighet att stänga rent. Ett konsolprogram kan till exempel helt enkelt Return från proceduren Main .
Viktigt!
- End instruktionen Exit anropar -metoden för Environment klassen i System namnområdet. Exit kräver att du har UnmanagedCode behörighet. Om du inte gör det uppstår ett SecurityException fel.
När slutnyckelordsinstrukeringen> följs av ytterligare ett nyckelord <anges slutet av definitionen av lämplig procedur eller blockering. Till End Function exempel avslutar definitionen av en Function procedur.
Exempel
I följande exempel används -instruktionen End för att avsluta kodkörningen om användaren begär det.
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
Utvecklaranteckningar för smarta enheter
Den här instruktionen stöds inte.
