Halaman

Rabu, 04 April 2012

Radio Button pada VB2010

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