18 December 2015

VB.NET: Exit Sub


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

Exit sub bisa digunakan pada Event dan Sub Procedure, sementara pada function biasanya 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.


0 comments: