Bagikan melalui

Pernyataan Akhir

Menghentikan eksekusi segera.

Sintaksis

End

Komentar

Anda dapat menempatkan pernyataan di End mana saja dalam prosedur untuk memaksa seluruh aplikasi berhenti berjalan. End menutup file apa pun yang Open dibuka dengan pernyataan dan menghapus semua variabel aplikasi. Aplikasi ditutup segera setelah tidak ada program lain yang memegang referensi ke objeknya dan tidak ada kodenya yang berjalan.

Nota

Pernyataan menghentikan End eksekusi kode secara tiba-tiba, dan tidak memanggil Dispose metode atau Finalize , atau kode Visual Basic lainnya. Referensi objek yang dipegang oleh program lain tidak valid. End Jika pernyataan ditemui dalam blok Try atau Catch , kontrol tidak lolos ke blok yang Finally sesuai.

Pernyataan ini Stop menangguhkan eksekusi, tetapi tidak seperti End, pernyataan tidak menutup file apa pun atau menghapus variabel apa pun, kecuali jika ditemui dalam file yang dapat dieksekusi (.exe) yang dikompilasi.

Karena End mengakhiri aplikasi Anda tanpa menghadiri sumber daya apa pun yang mungkin terbuka, Anda harus mencoba menutup dengan bersih sebelum menggunakannya. Misalnya, jika aplikasi Anda membuka formulir apa pun, Anda harus menutupnya sebelum kontrol mencapai End pernyataan.

Anda harus menggunakan End dengan hemat, dan hanya ketika Anda perlu segera berhenti. Cara normal untuk mengakhiri prosedur (Pernyataan Pengembalian dan Pernyataan Keluar) tidak hanya menutup prosedur dengan bersih tetapi juga memberi kode panggilan kesempatan untuk menutup dengan bersih. Aplikasi konsol, misalnya, hanya Return dapat dari Main prosedur.

Penting

Pernyataan memanggil EndExit metode Environment kelas di System namespace layanan. Exit mengharuskan Anda memiliki UnmanagedCode izin. Jika tidak, terjadi SecurityException kesalahan.

Ketika diikuti dengan kata kunci tambahan, Pernyataan Kata kunci> Akhir < menguraikan akhir definisi prosedur atau blok yang sesuai. Misalnya, End Function mengakhiri definisi Function prosedur.

Contoh

Contoh berikut menggunakan End pernyataan untuk mengakhiri eksekusi kode jika pengguna memintanya.

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

Catatan Pengembang Perangkat Pintar

Pernyataan ini tidak didukung.

Lihat juga

  • Last updated on