Vb.Net: Exit Sub

Exit Sub digunakan untuk menghentikan alur kode yang terdapat pada suatu prosedure pada kondisi tertentu sebelum alur aba-aba itu benar-benar tamat.

Exit sub mampu digunakan pada Event dan Sub Procedure, sementara pada function umumnya proses berakhir setelah terdapat Return.

Contoh penggunaan:
UI:

Code:
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, _
                ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "Tambah..."
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, _
                ByVal e As System.EventArgs) Handles Button1.Click

        ListBox1.Items.Clear()
        Tambah(CInt(TextBox1.Text))

    End Sub

    Private Sub Tambah(ByVal nilai As Integer)
        For i As Integer = 0 To nilai
            If i = 5 Then
                ListBox1.Items.Add("Sampai Batas")
                Exit Sub
            Else
                ListBox1.Items.Add("Nilai: " & i.ToString)
            End If
        Next
    End Sub

End Class

Runtime:

Click here if you like this article.



Sumber http://rani-irsan.blogspot.com