언어공부/Visual Basic

Visual Basic 체크박스, 라디오버튼, 그룹박스 컨트롤

zzerou 2022. 5. 5. 13:08
체크박스 라디오박스
여러항목 선택 가능 한 항복 선택 가능
세가지 상태 사용 두가지 상태 사용
속성  
Chcked 선택여부
true : 선택된 경우 / false : 선택되지 않은 경우
체크박스 
특징
CheckState 체크박스 초기 선택 상태
Unchecked : 체크되지 않은 상태
Checked : 체크된 상태
Indeterminate : 체크되고 비활성화 상태
ThreeState indeterminate 사용 가능 여부 설정
true :  세가지 선택 상태 / false : 두가지 선택 상태
체크박스 예제

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
라디오버튼 예제

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If RadioButton1.Checked = True Then Label2.Text = RadioButton1.Text
        If RadioButton2.Checked = True Then Label2.Text = RadioButton2.Text
        If RadioButton3.Checked = True Then Label2.Text = RadioButton3.Text
        If RadioButton4.Checked = True Then Label2.Text = RadioButton4.Text
        If RadioButton5.Checked = True Then Label2.Text = RadioButton5.Text
        If RadioButton6.Checked = True Then Label2.Text = RadioButton6.Text
    End Sub
End Class
그룹박스 컨트롤 예제

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

        Dim str As String

        str = "연령은" + Chr(13)
        If RadioButton1.Checked = True Then str = str + RadioButton1.Text
        If RadioButton2.Checked = True Then str = str + RadioButton2.Text
        If RadioButton3.Checked = True Then str = str + RadioButton3.Text
        If RadioButton4.Checked = True Then str = str + RadioButton4.Text
        If RadioButton5.Checked = True Then str = str + RadioButton5.Text
        If RadioButton6.Checked = True Then str = str + RadioButton6.Text

        str = str + Chr(13) + "좋아하는 색은" + Chr(13)
        If CheckBox1.Checked = True Then str = 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)

        str = str + "입니다"
        Label2.Text = str
    End Sub

End Class