Akhiri Pernyataan
Segera mengakhiri eksekusi.
Sintaks
End
Keterangan
Anda dapat menempatkan pernyataan End di mana saja di dalam prosedur untuk memaksa seluruh aplikasi berhenti berjalan. End menutup file apa pun yang dibuka dengan pernyataan Open dan menghapus semua variabel aplikasi. Aplikasi ditutup segera setelah tidak ada program lain yang mengacu ke objeknya dan tidak ada kodenya yang berjalan.
Catatan
Pernyataan End menghentikan eksekusi kode secara tiba-tiba, dan tidak memanggil metode Dispose atau Finalize, atau kode Visual Basic lainnya. Referensi objek yang dipegang oleh program lain tidak valid. Jika pernyataan End ditemukan di dalam blok Try atau Catch, kontrol tidak diteruskan ke blok Finally yang sesuai.
Pernyataan Stop ini menangguhkan eksekusi, tetapi tidak seperti End, pernyataan tidak menutup file apa pun atau menghapus variabel apa pun, kecuali jika ditemukan dalam file yang dapat dieksekusi (.exe) yang dikompilasi.
Karena End mengakhiri aplikasi Anda tanpa menanganii 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 pernyataan End.
Anda harus menggunakan End dengan hemat, dan hanya saat Anda perlu segera berhenti. Cara normal untuk mengakhiri prosedur (Pernyataan Return (Pengembalian) dan Pernyataan Exit (Keluar)) tidak hanya menutup prosedur dengan bersih tetapi juga memberi kepada kode panggilan kesempatan untuk menutup dengan bersih. Aplikasi konsol, misalnya, hanya Return dapat berasal dari prosedur Main.
Penting
Pernyataan End memanggil metode Exit dari kelas Environment di namespace System. Exit mengharuskan Anda memiliki izin UnmanagedCode. Jika tidak, terjadi kesalahan SecurityException.
Saat diikuti dengan kata kunci tambahan, Pernyataan < Kata kunci > End (Akhiri) menguraikan akhir definisi prosedur atau blok yang sesuai. Misalnya, End Function mengakhiri definisi prosedur Function.
Contoh
Contoh berikut menggunakan pernyataan End 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.
