Validasi VB NET

Membuat validasi merupakan hal yang sangat penting dalam melakukan kegiatan penggunaan aplikasi yang di bangun pada Visual Studio 2008 (VB. NET).

Berbagai komponen yang dapat di validasi pada umumnya seperti penggunaan TextBox, CombBox dan Button, dan masih banyak komponen yang lainnya tergantung pada penggunaan dan hasil yang di harapakan.
Disini ada contoh bagaimana cara melakukan yang namanya validasi pada komponen yang sudah dijelaskan diatas, ada 2 cara kita bisa pilih salah satu yang mungkin mudah untuk dipahami.
Cara 1 :
Rancangan Form yang Pertama:

Source code untuk Form yang Pertama:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call tutuptombol()
        Call tutuptextbox()
    End Sub

    Sub tutuptextbox()
        t1.Enabled = False
        t2.Enabled = False
        t3.Enabled = False
    End Sub

    Sub tutuptombol()
        b1.Enabled = True
        b2.Enabled = False
    End Sub

    Sub bukatombol()
        b1.Enabled = True
        b2.Enabled = True
    End Sub

    Private Sub t1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t1.TextChanged
        bukatombol()
        t2.Enabled = True
        t3.Enabled = True
    End Sub

    Private Sub b1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b1.Click
        t1.Enabled = True
        t2.Enabled = False
        t3.Enabled = False
    End Sub
End Class

Cara 2 :
Dengan menggunakan fungsi Boolean:
Rancangan Form yang Kedua:

Source code untuk Form2:

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        textboxaktif(False, False, False)
        tombolaktif(True, False, True)
    End Sub

    Sub textboxaktif(ByVal a As Boolean, ByVal b As Boolean, ByVal c As Boolean)
        t1.Enabled = a
        t2.Enabled = b
        t3.Enabled = c
    End Sub

    Sub tombolaktif(ByVal a As Boolean, ByVal b As Boolean, ByVal c As Boolean)
        b1.Enabled = a
        b2.Enabled = b
        b3.Enabled = c
    End Sub

    Private Sub b1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b1.Click
        textboxaktif(True, False, False)
    End Sub

    Private Sub t1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t1.TextChanged
        textboxaktif(True, True, True)
        tombolaktif(True, True, True)
        If t1.Text = "" Then
            textboxaktif(True, False, False)
            tombolaktif(True, False, True)
        End If
    End Sub

    Private Sub b3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b3.Click
        End
    End Sub
End Class

Semoga Bermanfaat