3장 종합문제 및 예제
QUESTION 3-1.
폼의 이름과 속성을 아래와 같이
바꾸어 디자인하고 폼 위에서
마우스를 눌렀을 때
'마우스 다운 이벤트 실행'이라는
메시지가 출력되는 프로그램을
작성하여라.
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "폼 마우스 다운 이벤트 실행" '폼에 마우스다운 이벤트 발생 시 출력
End Sub
QUESTION3-1.zipPROGRAM 3-1.
이벤트에 의해 동작되는 프로그램을
작성한다.
목표완성1.
[숫자 출력하기]를 클릭하면
숫자가 출력되고 [모든 내용 지우기]를
클릭하면 폼에 있는 모든 내용이
삭제되는 프로그램을 작성해보자.
QUESTION 3-2.
세 개의 레이블을 각각 클릭하면
레이블에 레이블의 이름이 출력되는
프로그램을 작성하여라.
Private Sub Label1_Click()
Label1.Caption = Label1.Name 'Label1의 이름을 Label1에 출력
End Sub
Private Sub Label2_Click()
Label2.Caption = Label2.Name 'Label2의 이름을 Label1에 출력
End Sub
Private Sub Label3_Click()
Label3.Caption = Label1.Name 'Label3의 이름을 Label1에 출력
End Sub
PROGRAM 3-3.
선택한 명령 버튼에 맞는
레이블 모양을 출력한다.
텍스트 박스를 이용하여
메시지를 표시한다.
학번과 이름을 입력한 후 [확인] 버튼을
클릭하면 레이블에 결과를 출력하고
[초기화] 버튼을 클릭하면 학번, 이름,
결과 창을 초기화하는 프로그램을 작성하여
보자.
체크 박스를 이용하여
자신의 관심 분야를 모두 고르는
프로그램을 작성한다.
남, 여 성별을 표시하는
프로그램을 작성한다.
목표완성3.
초급 컨트롤을 이용하여
라면 주문 프로그램을 작성해보자.
종합 문제.
회원가입 프로그램
Option Explicit
Private Sub Command1_Click()
Dim Temp As String
Temp = " <가입 정보>" & vbCr & "이름 : " & Text1.Text & Chr(13) & "나이 : " & Text2.Text & vbLf & "주소 : " & Text3.Text & Chr(10) & "성별 : "
' 개행문자 : Carriage Return (CR) => vbCr = chr(13)
' 개행문자 : Line Feed (LF) => vbLf = chr(10)
' 개행문자 : vbCrLf = vbNewLine = chr(13) & chr(10)
If Option1.Value = True Then
Temp = Temp & "남자"
ElseIf Option2.Value = True Then
Temp = Temp & "여자"
End If
Temp = Temp & vbNewLine & "취미 : "
If Check1.Value = 1 Then Temp = Temp & "바둑"
If Check2.Value = 1 Then Temp = Temp & " 영화"
If Check3.Value = 1 Then Temp = Temp & " 낚시"
If Check4.Value = 1 Then Temp = Temp & " 음악 듣기"
If Check5.Value = 1 Then Temp = Temp & " 독서"
If Check6.Value = 1 Then Temp = Temp & " 컴퓨터"
Label4.Caption = Temp
End Sub
