6.2 공통 대화상자 사용하기.

Presentation on theme: "6.2 공통 대화상자 사용하기."— Presentation transcript:

1 6.2 공통 대화상자 사용하기

2 공통 대화상자 공통대화상자(Common Dialog Box)란? 윈도우 시스템에서 공통으로 사용되는 대화상자 6개
파일 열기 : File Open 파일 저장 : File Save 색상 지정 : Color 글꼴 지정 : Font 인쇄 : Print 도움말 : Help  윈도우시스템에 대한 전문지식이 필요하므로 제외 수원과학대 컴퓨터정보과

3 확장 컨트롤 추가 [프로젝트]>[구성요소] 또는 Ctrl+T
Microsoft Common Dialog Control 6.0 추가 네모난 아이콘이 생김. 타이머 처럼 폼에는 보이지만 실행시에는 보이지 않는다. 수원과학대 컴퓨터정보과

4 기능 설명 (p.209) 화면 구성 Label CommonDialog RichTextBox1 Command6 Command1
명령버튼을 만드는 순서에 따라 Tab을 눌렀을 때, 선택되는 순서가 결정된다. 관련속성 : TabIndex Command1에서 부터 Command6까지의 TabIndex를 살펴볼것 수원과학대 컴퓨터정보과

5 기능 설명 (p.209) 파일 열기 수원과학대 컴퓨터정보과

6 기능 설명 (p.209) 파일 저장 수원과학대 컴퓨터정보과

7 기능 설명 (p.209) 색상 지정 폼의 바탕색을 해당 색으로 바꾼다. 수원과학대 컴퓨터정보과

8 기능 설명(p.209) 글꼴 지정 리치텍스트 상자의 출력 글꼴을 바꾼다. 수원과학대 컴퓨터정보과

9 기능 설명 (p.209) 인쇄하기 해당 문서를 프린터로 출력한다. 수원과학대 컴퓨터정보과

10 객체 만들기(p.210) 객체 (이름) 지정 Label1 (이름) = comDlg (이름) = RTBox Command6
수원과학대 컴퓨터정보과

11 코딩하기(p.211) 파일 열기 버튼 더블클릭하여 코딩 파일 형식 목록에 표시될 항목 문자열 “|(shift+\)”로 분리
Filter에 지정된 파일 형식들 중에서 기본적으로 선택되는 항목 지정 (여기서는 두번째 항목(txt File)이 기본) 파일 열기 대화상자를 연다. 대화상자에 입력된 파일을 리치텍스트상자(RTBox)에 올리고(LoadFile 메소드), Label1에 파일 이름을 출력한다. 수원과학대 컴퓨터정보과

12 코딩하기(p.211) 공통 대화 상자의 메소드 메소드 기능 ShowOpen 파일 열기 대화상자 표시 ShowSave
다른이름으로 저장하기 대화상자 표시 ShowColor 색상 지정 대화상자 표시 ShowFont 글꼴 지정 대화상자 표시 ShowPrinter 인쇄하기 대화상자 표시 ShowHelp 도움말 대화상자 표시 수원과학대 컴퓨터정보과

13 코딩하기(p.212) 공통대화상자의 속성 속성 기능 Filter 대화상자의 “파일 형식”상자에 나열될 파일 형식
“ 파일형식명|확장자”로 지정한다. 동일 파일 형식에 여러 파일 확장자를 표시할 경우 “;”으로 분리한다. “All Files(*.*)|*.*|내문서|*.hwp;*.doc” FilterIndex Filter에 지정된 형식 중 기본으로 표시될 형식의 번호 FileName 선택된 파일의 이름 DefaultExt 대화상자에서 기본적으로 할당하는 확장자 수원과학대 컴퓨터정보과

14 코딩하기(p.212) 파일 저장 버튼 더블클릭하여 코딩 이미 존재하는 파일 이름을 지정한 경우 확인을 하게 하는 플래그
다른 이름으로 저장하기 창 보여줌 cdlOFNAllowMultiSelect 복수 개 파일의 선택 허용 cdlOFNHideReadOnly 읽기 전용 체크 상자 숨기기 cdlOFNOverwritePrompt 이미 존재하는 파일의 경우 확인 상자 표시 수원과학대 컴퓨터정보과

15 코딩하기(p.213) 색상 지정 버튼 더블클릭하여 코딩 색상 지정 창을 보여줌. 폼의 바탕색을 색상 지정 창에서 선택한
색으로 변경함. cdlCCFullOpen 색상 대화상자를 확대해서 옆에 색상을 더 구체적으로 지정할 수 있는 화면을 표시 (사용자 지정 색 만들기 옵션 선택 효과) 사용법) ComDlg.Flags = cdlCCFullOpen 수원과학대 컴퓨터정보과

16 코딩하기(p.213) 글꼴 지정 버튼 더블클릭하여 코딩 글꼴 지정 창을 보여줌.
공통대화상자에서 지정한 글꼴 속성으로 리치 텍스트 상자의 글꼴을 변경함 수원과학대 컴퓨터정보과

17 코딩하기(p.214) 공통대화상자의 글꼴 관련 속성 공통대화상자의 글꼴 관련 플래그 셋 중에 하나는 반드시 지정해야 함.
FontBold 굵게 FontItalic 기울임 FontStrikethru 취소선 FontUnderline 밑줄 FontName 글꼴 이름 FontSize 글꼴 크기 Color 글꼴의 색 cdlCFPrinterFonts 인쇄용 글꼴만 표시 cdlCFScreenFonts 화면용 글꼴만 표시 cdlCFBoth 인쇄용/화면용 글꼴 모두 표시 cdlCFEffects 취소선, 밑줄, 색 등 효과 상자 표시 셋 중에 하나는 반드시 지정해야 함. 수원과학대 컴퓨터정보과

18 코딩하기(p.215) 인쇄하기 버튼 더블클릭하여 코딩 인쇄 창을 보여줌. 인쇄할 매수를 지정 인쇄관련 속성 기능
FromPage 인쇄 시작 페이지 지정 TopPage 인쇄 끝 페이지 지정 Copies 인쇄 매수 지정 수원과학대 컴퓨터정보과

19 코딩하기(p.215) 종료하기 버튼 더블클릭하여 코딩 수원과학대 컴퓨터정보과

20 추가 기능 - 1 화면 재구성 필터 수정 파일 열기 버튼 레이블 : BackStyle 투명설정
리치텍스트 상자 : 수직 스크롤바 설정 필터 수정 all files -> 모든파일 txt files -> 텍스트파일 : *.frm 도 포함시킴 파일 열기 버튼 frm 또는 txt 파일만 열고 다른 파일을 열기 시도하면 에러 출력 수원과학대 컴퓨터정보과

21 추가 기능 - 1 Private Sub Command1_Click() Dim 확장자 As String
RTBox.Text = "" Image1.Picture = LoadPicture() Label1.Caption = "" ComDlg.Filter = "모든파일|*.*|텍스트파일|*.txt;*.frm" ComDlg.FilterIndex = 2 ComDlg.ShowOpen 확장자 = LCase(Right(ComDlg.FileName, 3)) If (확장자 = "txt" Or 확장자 = "frm") Then RTBox.LoadFile ComDlg.FileName Label1.Caption = ComDlg.FileName Else MsgBox "확장자가 frm 또는 txt 파일만 열 수 있습니다.", _ vbInformation + vbOKOnly, "열수없는 파일" End If End Sub 수원과학대 컴퓨터정보과

22 추가기능 - 2 폼을 늘려서 이미지 컨트롤 추가 파일열기를 클릭시.. BorderStyle : 1-단일고정
Stretch : true 파일열기를 클릭시.. 모든파일 / 텍스트파일 / 그림파일 로 설정 그림파일 : *.jpg, *.bmp, *.wmf 확장자가 jpg, bmp, wmf 파일인 경우 이미지가 보이게 (loadpicture()사용) 6장1을 참조 수원과학대 컴퓨터정보과

23 추가기능 - 2 Dim 확장자 As String RTBox.Text = ""
Image1.Picture = LoadPicture() Label1.Caption = "" ComDlg.Filter = "모든파일|*.*|텍스트파일|*.txt;*.frm|그림파일|*.bmp;*.jpg;*.wmf" ComDlg.FilterIndex = 2 ComDlg.ShowOpen 확장자 = LCase(Right(ComDlg.FileName, 3)) If (확장자 = "txt" Or 확장자 = "frm") Then RTBox.LoadFile ComDlg.FileName Label1.Caption = ComDlg.FileName ElseIf (확장자 = "bmp" Or 확장자 = "jpg" Or 확장자 = "wmf") Then Image1.Picture = LoadPicture(ComDlg.FileName) Else MsgBox "텍스트 파일(txt/frm) 또는 그림파일(bmp/jpg/wmf)만 열 수 있습니다.", vbInformation + vbOKOnly, "열 수 없는 파일" End If 수원과학대 컴퓨터정보과

24 추가기능 - 3 색상지정 버튼 취소를 눌렀을 때 배경이 검정으로 변함
이유 : 취소를 인식하지 않고 색상값이 RGB(0,0,0) 즉, 검정색이 넘어오기 때문 comdlg.CancelError 를 true로 설정하여 취소 버튼이 눌리면 에러처리 루틴으로 건너뛰게 해주어야 함 취소버튼이 리턴하는 에러 값 : 수원과학대 컴퓨터정보과

25 추가기능 - 3 Private Sub Command3_Click() On Error GoTo CLR_ERR
‘ 공통대화상자의 취소 버튼을 에러 처리하여 정상수행되지 않게 함 ComDlg.CancelError = True ComDlg.ShowColor Form1.BackColor = ComDlg.Color ComDlg.CancelError = False CLR_ERR: If Err.Number <> 0 And Err.Number <> Then MsgBox "에러번호 : " & Err.Number & vbCrLf & _ "에러내용 : " & Err.Description, vbCritical + vbOKOnly, _ "에러발생" End If End Sub 수원과학대 컴퓨터정보과

26 추가기능 - 4 Command7 컨트롤 배열을 생성한다.
(복사 > 붙여넣기 > 컨트롤배열 작성 ? > 예선택) Command8 컨트롤 배열을 생성한다. 수원과학대 컴퓨터정보과

27 추가기능 - 4 컨트롤배열 Command7(0) ~ Command7(3) 생성
이벤트프로시져에 Index를 넘겨준다. Private Sub Command7_Click(Index As Integer) RTBox.BackColor = Command7(Index).BackColor End Sub Private Sub Command8_Click(Index As Integer) RTBox.SelColor = Command8(Index).BackColor 수원과학대 컴퓨터정보과

28 추가기능 - 5 종료버튼 Private Sub Command6_Click() Dim ans As Integer
ans = MsgBox("정말 종료하시겠습니까?", vbQuestion + vbYesNo, _ "종료확인") If ans = vbYes Then End End If End Sub 수원과학대 컴퓨터정보과