penggunaan multi checkbox pada vb.net atau vb 2008

Hello.... jumpa lagi di blog ini...  kangen juga ngblog dan para pembaca yang setia heheh.. ok tanpa basa basi langsung aja kita ke pembahasan. yaitu menggunakan multi checkbox... cekidot

1. Silahkan Desain Seperti Form di Bawah Ini




2.  name dari komponen yang di tambahkan di ganti jadi
  • Main Bola ganti name jadi bola
  • Bulu Tangkis ganti name jadi bulu
  • Catur ganti name jadi catur
  • Membaca ganti name jadi membaca
  • Proses gati name jadi proses 
3. Tahap selanjutnya kita akan memberikan syntax pada program. caranya double clik proses dan ketikkan syntax berikut :


Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        Dim q As String
        q = ""
        If bola.Checked = True Then
            q = bola.Text
        End If
        If bulu.Checked = True Then
            If q = "" Then
                q = bulu.Text
            Else
                q = q & vbCrLf & bulu.Text
            End If
        End If
        If membaca.Checked = True Then
            If q = "" Then
                q = membaca.Text
            Else
                q = q & vbCrLf & membaca.Text
            End If
        End If
        If catur.Checked = True Then
            If q = "" Then
                q = catur.Text
            Else
                q = q & vbCrLf & catur.Text
            End If
        End If
        If Not q = "" Then
            MsgBox(q, MsgBoxStyle.Information, "Hobbi Kamu")
        End If
    End Sub

Komentar

Postingan populer dari blog ini

cara menampilkan perulangan pada textbox menggunakan vb.net 2008