Download presentation
Presentation is loading. Please wait.
1
6.2 공통 대화상자 사용하기
2
공통 대화상자 공통대화상자(Common Dialog Box)란? 윈도우 시스템에서 공통으로 사용되는 ( ) 6개
윈도우 시스템에서 공통으로 사용되는 ( ) 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) 공통 대화 상자의 메소드 메소드 기능 파일 열기 대화상자 표시 다른이름으로 저장하기 대화상자 표시
색상 지정 대화상자 표시 글꼴 지정 대화상자 표시 인쇄하기 대화상자 표시 도움말 대화상자 표시 수원과학대 컴퓨터정보과
13
코딩하기(p.212) 공통대화상자의 속성 속성 기능 대화상자의 “파일 형식”상자에 나열될 파일 형식
“ 파일형식명|확장자”로 지정한다. 동일 파일 형식에 여러 파일 확장자를 표시할 경우 “;”으로 분리한다. “모든파일(*.*)|*.*|일반문서|*.txt;*.rtf” Filter에 지정된 형식 중 기본으로 표시될 형식의 번호 선택된 파일의 이름 (경로포함) 선택된 파일의 이름 (파일이름만) DefaultExt 대화상자에서 기본적으로 할당하는 확장자 수원과학대 컴퓨터정보과
14
코딩하기(p.212) 파일 저장 버튼 더블클릭하여 코딩 이미 존재하는 파일 이름을 지정한 경우 확인을 하게 하는 플래그
다른 이름으로 저장하기 창 보여줌 cdlOFNAllowMultiSelect 복수 개 파일의 선택 허용 cdlOFNHideReadOnly 읽기 전용 체크 상자 숨기기 cdlOFN 이미 존재하는 파일의 경우 덮어쓰기 확인 상자 표시 수원과학대 컴퓨터정보과
15
코딩하기(p.213) 색상 지정 버튼 더블클릭하여 코딩 cdlCC 색상 지정 창을 보여줌.
폼의 바탕색을 색상 지정 창에서 선택한 색으로 변경함. cdlCC 색상 대화상자를 확대해서 옆에 색상을 더 구체적으로 지정할 수 있는 화면을 표시 (사용자 지정 색 만들기 옵션 선택 효과) 사용법) ComDlg.Flags = cdlCCFullOpen 수원과학대 컴퓨터정보과
16
코딩하기(p.213) 글꼴 지정 버튼 더블클릭하여 코딩 글꼴 지정 창을 보여줌.
공통대화상자에서 지정한 글꼴 속성으로 리치 텍스트 상자의 글꼴을 변경함 수원과학대 컴퓨터정보과
17
코딩하기(p.214) 공통대화상자의 글꼴 관련 속성 공통대화상자의 글꼴 관련 플래그 FontBold 굵게 FontItalic
기울임 FontStrikethru 취소선 FontUnderline 밑줄 FontName 글꼴 이름 FontSize 글꼴 크기 Color 글꼴의 색 cdlCFPrinterFonts 인쇄용 글꼴만 표시 cdlCFScreenFonts 화면용 글꼴만 표시 cdlCF 인쇄용/화면용 글꼴 모두 표시 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 = "" Label1.Caption = "" ComDlg.Filter = "( )" ComDlg.FilterIndex = 2 ComDlg.ShowOpen 확장자 = ( ) If ( ) Then RTBox.LoadFile ComDlg.FileName Label1.Caption = ComDlg.FileName Else ( ) "확장자가 txt, rtf, frm인 파일만 열 수 있습니다.", _ 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 = "( )" ComDlg.FilterIndex = 2 ComDlg.ShowOpen 확장자 = ( ) If ( ) Then RTBox.LoadFile ComDlg.FileName Label1.Caption = ComDlg.FileName ElseIf ( ) Then Image1.( ) = ( )(ComDlg.FileName) Else MsgBox "텍스트 파일(txt/rtf/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.( ) = True ComDlg.ShowColor Form1.BackColor = ComDlg.Color ComDlg. ( ) = False CLR_ERR: If ( ) <> 0 And ( ) <> 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.( ) = Command7(Index).( ) End Sub Private Sub Command8_Click(Index As Integer) RTBox.( ) = Command8(Index).( ) 수원과학대 컴퓨터정보과
28
추가기능 - 5 종료버튼 Private Sub Command6_Click()
If MsgBox("정말 종료하시겠습니까?", vbQuestion + vbYesNo, _ "종료확인") = vbYes Then ( ) End If End Sub 수원과학대 컴퓨터정보과
Similar presentations