Radio button merupakan salah satu control yang terdapat pada VB2010. Penggunaan radio button berbeda dengan check box. Jika chexk box dapat memilih lebih dari 1 pilihan, sedangkan radio button hanya bisa memilih 1 pilihan dari beberapa pilihan.
Contoh1:
Masukkan 3 buah radio button dan 1 buah label, kemudian ketikkan code berikut:
Public Class Form1
Dim strColor As String
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
strColor = "Merah"
Label1.Text = strColor
Label1.ForeColor = Color.Red
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
strColor = "Hijau"
Label1.Text = strColor
Label1.ForeColor = Color.Green
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
strColor = "Kuning"
Label1.Text = strColor
Label1.ForeColor = Color.Yellow
End Sub
End Class
Contoh2:
Masukkan 2 buah label dan 7 buah radio button, kemudian ketik code berikut:
Public Class Form1
Dim strColor As String
Dim strSize As String
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
strColor = "Merah"
Label1.Text = strColor
Label1.ForeColor = Color.Red
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
strColor = "Hijau"
Label1.Text = strColor
Label1.ForeColor = Color.Green
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
strColor = "Kuning"
Label1.Text = strColor
Label1.ForeColor = Color.Yellow
End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
strSize = "XL"
Label2.Text = strSize
End Sub
Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
strSize = "L"
Label2.Text = strSize
End Sub
Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
strSize = "M"
Label2.Text = strSize
End Sub
Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChanged
strSize = "S"
Label2.Text = strSize
End Sub
End Class
untuk mendapatkan file pdf-nya klik download
Tidak ada komentar:
Posting Komentar