실습하기 3-7 체크박스 컨트롤로 원하는 색 출력하기

좋아하는 색을 선택하고 <확인>을 클릭하면 레이블 컨트롤에 선택한 색을 출력하는 프로그램

 

설정

 

 

원하는 색의 체크박스를 선택하고 <확인>을 클릭하면 선택한 색이 출력되도록 <확인>을 더블클릭하여 코드 작성

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim str As String

        If CheckBox1.Checked = True Then str = CheckBox1.Text & Chr(13)
        If CheckBox2.Checked = True Then str = str & CheckBox2.Text & Chr(13)
        If CheckBox3.Checked = True Then str = str & CheckBox3.Text & Chr(13)
        If CheckBox4.Checked = True Then str = str & CheckBox4.Text & Chr(13)
        If CheckBox5.Checked = True Then str = str & CheckBox5.Text & Chr(13)
        If CheckBox6.Checked = True Then str = str & CheckBox6.Text & Chr(13)

        Label2.Text = str
    End Sub
End Class

 

실행