언어공부/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