Cara Menggunakan RadioButton VB

Cara menggunakan radio buttun di Vb.Net, pertama sobat coba buat form nya dulu seperti ini, untuk cara kerjanya jika sobat mengklik salah satu button dengan kode warna tertentu maka warna form akan ikut berubah dengan warna radio button yang sobat pilih. Untuk tampilan form di bawah ini karena yang di pilih warna lime maka form'nya juga akan berwarna lime.
Jika sobat tertari untuk mencobanya sobat bisa lihat source kode radio button nya di bawah.

  Source Code :
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        If Me.RadioButton1.Checked = True Then
            Me.BackColor = Color.Lime
        Else
            Me.BackColor = Color.Gainsboro
        End If
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        If Me.RadioButton2.Checked = True Then
            Me.BackColor = Color.Gold
        Else
            Me.BackColor = Color.Gainsboro
        End If
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        If Me.RadioButton3.Checked = True Then
            Me.BackColor = Color.Cyan
        Else
            Me.BackColor = Color.Gainsboro
        End If
    End Sub


Private Sub RadioButton4_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        If Me.RadioButton4.Checked = True Then
            Me.BackColor = Color.Gray
        Else
            Me.BackColor = Color.Gainsboro
        End If
    End Sub

    Private Sub RadioButton5_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
        If Me.RadioButton5.Checked = True Then
            Me.BackColor = Color.LightSkyBlue
        Else
            Me.BackColor = Color.Gainsboro
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.RadioButton1.Checked = False
        Me.RadioButton2.Checked = False
        Me.RadioButton3.Checked = False
        Me.RadioButton4.Checked = False
        Me.RadioButton5.Checked = False
        Me.BackColor = Color.Gainsboro
    End Sub


    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        Me.BackColor = Color.Gainsboro
        Me.RadioButton1.Checked = False
        Me.RadioButton2.Checked = False
        Me.RadioButton3.Checked = False
        Me.RadioButton4.Checked = False
        Me.RadioButton5.Checked = False
        Me.Button1.BackColor = Color.Khaki
    End Sub

Sobat suka tulisan ini..?

	Dapatkan Tulisan Gratis Via Email!
Follow Fajar345!