p 209 6 2 vbp Command 1 Label

기능 설명 (p. 209) ± 화면 구성 (6장 2. vbp) Command 1 Label 1 Command 2 Command 3 명령버튼을 만드는 순서에 따라 Tab을 눌렀을 때, 선택되는 순서가 결정된다. 관련속성 : Tab. Index Rich. Text. Box 1 Command 4 Command 1에서 부터 Command 6까지의 Tab. Index를 살펴볼것 Command 5 Common. Dialog 1 2022 -01 -25 Command 6 수원과학대 컴퓨터정보과 4

객체 만들기(p. 210) ± 객체 (이름) 지정 Label 1 Command 2 Command 3 (이름) = RTBox Command 4 Command 5 (이름) = com. Dlg 2022 -01 -25 수원과학대 컴퓨터정보과 Command 6 10

추가기능 - 3 Private Sub Command 3_Click() On Error Go. To CLR_ERR ‘ 공통대화상자의 취소 버튼을 에러 처리하여 정상수행되지 않게 함 Com. Dlg. Cancel. Error = True Com. Dlg. Show. Color Form 1. Back. Color = Com. Dlg. Color Com. Dlg. Cancel. Error = False CLR_ERR: If Err. Number <> 0 And Err. Number <> 32755 Then Msg. Box "에러번호 : " & Err. Number & vb. Cr. Lf & _ "에러내용 : " & Err. Description, vb. Critical + vb. OKOnly, _ "에러발생" End If 2022 -01 -25 End Sub 수원과학대 컴퓨터정보과 23

추가기능 - 4 ± 컨트롤배열 ® Command 7(0) ~ Command 7(3) 생성 ® Command 8(0) ~ Command 8(3) 생성 ® 이벤트프로시져에 Index를 넘겨준다. Private Sub Command 7_Click(Index As Integer) RTBox. Back. Color = End Sub Private Sub Command 8_Click(Index As Integer) RTBox. Sel. Color = End Sub 2022 -01 -25 수원과학대 컴퓨터정보과 25

추가기능 - 5 ± 종료버튼 Private Sub Command 6_Click() If Msg. Box("정말 종료하시겠습니까? ", vb. Question + vb. Yes. No, _ "종료확인") = vb. Yes Then End If End Sub 2022 -01 -25 수원과학대 컴퓨터정보과 26