[비주얼 베이직 6.0] 제 19장 - 체크와 옵션

체크박스와 옵션 박스에 대해서 알아보겠습니다.

체크박스는 보기 중 여러 개를 선택해야 할 때 사용합니다. 옵션 박스는 하나만 선택해야 할 때 사용합니다.

무엇을 선택했는지 라벨에 띄우는 소스입니다. 마우스 오른쪽 클릭이 막혀있기 때문에, txt 파일로 올려드립니다. 아래 링크를 클릭하세요.

예제소스.txt

간단히 설명하자면 아래와 같습니다.

Private Sub Command1_Click()
a = Option1.Caption
b = Option2.Caption
c = Check1.Caption
d = Check2.Caption

If Option1.Value = True And Option2.Value = False Then
b = vbNullString
ElseIf Option1.Value = False And Option2.Value = True Then
a = vbNullString
Else
a = vbNullString
b = vbNullString
End If

If Check1.Value = 1 And Check2.Value = 1 Then
ElseIf Check1.Value = 1 And Check2.Value = 0 Then
d = vbNullString
ElseIf Check1.Value = 0 And Check2.Value = 1 Then
c = vbNullString
Else
c = vbNullString
d = vbNullString
End If

Label1.Caption = a & b & c & d
End Sub

Private Sub Command2_Click()
Option1.Value = False
Option2.Value = False
Check1.Value = 0
Check2.Value = 0
End Sub

Private Sub Form_Load()
Label1.Caption = vbNullString
Option1.Caption = "남자"
Option2.Caption = "여자"
Check1.Caption = "핸드폰인증"
Check2.Caption = "메일인증"
Command1.Caption = "확인"
Command2.Caption = "초기화"
End Sub

1. 커맨드 버튼을 누르면 a~d 변수에 각 요소의 이름을 대입합니다.

2. 조건문 IF로 각 경우의수를 확인하고 체크되지 않은 값은 빈칸을 대입해서 1번에서 대입해 둔 변수를 초기화합니다.

3. 라벨에 각 변수를 대입합니다.(화면에 보여줌)