6.3 툴바와 이미지 리스트 사용하기.

Presentation on theme: "6.3 툴바와 이미지 리스트 사용하기."— Presentation transcript:

1 6.3 툴바와 이미지 리스트 사용하기

2 툴바와 이미지 컨트롤 툴바 (ToolBar) 이미지컨트롤(ImageControl) 메뉴를 바 형식 커맨드버튼들로 표현
커맨드버튼에 이미지(아이콘 등)를 넣어 표현 수원과학대 컴퓨터정보과

3 구성 요소 추가(p217) [프로젝트] > [구성요소] 또는 Ctrl+T
Microsoft Windows Common Controls 6.0 Microsoft Rich Textbox Control 6.0 Microsoft Common Dialog Control 6.0 수원과학대 컴퓨터정보과

4 객체 만들기(p217) ① ToolBar 객체 ② Label 객체 ③ RichTextBox객체 BackStyle : 투명
④ Image List 객체 ⑤ Common Dialog 객체 (이름) comDlg 수원과학대 컴퓨터정보과

5 객체 만들기 (p218) 툴바의 [속성] 2018-12-30 수원과학대 컴퓨터정보과 Caption : 버튼에 표시
Key : 버튼의 이름 ToolTipText : 풍선도움말 수원과학대 컴퓨터정보과

6 객체 만들기 (p219) 6개의 삽입 단추들 Caption Key ToolTipText 1 파일열기 op 2 파일저장 sa 3
색상지정 co 4 글꼴지정 fo 5 인쇄하기 pr 6 종료하기 en 수원과학대 컴퓨터정보과

7 객체 만들기(p221) 이미지리스트의 [속성] 수원과학대 컴퓨터정보과

8 객체 만들기(p222) 툴바의 [속성] 수원과학대 컴퓨터정보과

9 객체만들기(p222) 툴바와 이미지리스트 작성후 수원과학대 컴퓨터정보과

10 코딩하기(p223) 툴바 더블클릭하여 코딩 버튼 하나하나에 해당되는 명령어들의 클릭 이벤트 프로시저를 호출한다.
각 프로시저는 따로 만들어야함. 수원과학대 컴퓨터정보과

11 코딩하기(p224) Command1_Click 이벤트 프로시저 생성 수원과학대 컴퓨터정보과

12 코딩하기(p224) Command2_Click 이벤트 프로시저 생성 파일 이름이 이미 존재할 경우 덮어쓸 것인지 유무확인
수원과학대 컴퓨터정보과

13 코딩하기(p224) Command3_Click 이벤트 프로시저 생성 수원과학대 컴퓨터정보과

14 코딩하기(p224) Command4_Click 이벤트 프로시저 생성 수원과학대 컴퓨터정보과

15 코딩하기(p225) Command5_Click 이벤트 프로시저 생성 수원과학대 컴퓨터정보과

16 코딩하기(p225) Command6_Click 이벤트 프로시저 생성 수원과학대 컴퓨터정보과

17 화면 구성 바꾸기 ScrollBars 속성을 2-rtfVertical로 바꾼다. 수원과학대 컴퓨터정보과

18 취소 버튼 처리 각 버튼들을 눌러 “취소”를 누르면, “취소” 에러 처리 이상 동작을 한다.
이는 취소에 대한 처리가 없고 “확인” 버튼에 대한 처리만 코딩했기 때문.. “취소” 에러 처리 Private Sub Command1_Click() On Error GoTo ERR_COM1 comDlg.CancelError = TRUE …. 우리가 넣었던 코드 … ERR_COM1 : End Sub 5개의 command버튼에 대해 모두 취소처리 수원과학대 컴퓨터정보과

19 취소 버튼 처리화면 열기버튼을 눌러 취소를 눌러본다. 수원과학대 컴퓨터정보과

20 리치텍스트 상자 글꼴 색상지정 버튼을 추가하지 않고 글꼴지정창의 색상을 이용해 RTBox의 글꼴색을 지정한다.
RTBox.SelColor = ComDlg.Color 수원과학대 컴퓨터정보과

21 함수와 프로시져 MsgBox를 함수로 쓰고자 할때 Msgbox를 프로시져로 쓰고자 할때 return값을 받아야 함.
반드시 인수를 괄호안에 넘겨줘야 함. MsgBox("정말 종료하시겠습니까?", vbQuestion + vbYesNo, "종료확인") Msgbox를 프로시져로 쓰고자 할때 return값을 받지 못함. 반드시 인수를 괄호 없이 넘겨줘야 함. MsgBox "종료", vbOKCancel, "종료" 수원과학대 컴퓨터정보과

22 종료버튼 기능 메시지 박스 질의 정말 종료하시겠습니까? : 예 / 아니오 Private Sub Command6_Click()
If MsgBox("정말 종료하시겠습니까?", vbQuestion + vbYesNo, "종료확인") = vbYes Then End End If End Sub Private Sub Command6_Click() If MsgBox("정말 종료하시겠습니까?", vbQuestion + vbOKCancel, "종료확인") = vbOK Then End End If End Sub 수원과학대 컴퓨터정보과

23 추가기능 - 1 버튼의 추가 색상지정과 글꼴지정 사이에 코딩 “RTB색상” 버튼 추가 key값 : rtbcolor
이미지 : “색상지정” 버튼과 같게 코딩 Toolbar1_ButtonClick 이벤트 수정 Command3_1_Click 이벤트 프로시져 생성 flags세팅 : cdlccfullopen 수원과학대 컴퓨터정보과

24 코딩 Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Key Case "open" Call Command1_Click Case "save" Call Command2_Click Case "color" Call Command3_Click Case "rtbcolor" Call Command3_1_Click Case "font" Call Command4_Click Case "print" Call Command5_Click Case "exit" Call Command6_Click End Select End Sub 수원과학대 컴퓨터정보과

25 코딩 rivate Sub Command3_1_Click() On Error GoTo ERR_COM3_1
ComDlg.CancelError = True ComDlg.Flags = cdlCCFullOpen ComDlg.ShowColor RTBox.BackColor = ComDlg.Color ERR_COM3_1: End Sub 수원과학대 컴퓨터정보과

26 코딩 색상창의 설정 플래그 사용자 정의 색을 포함한 색상창 사용자 정의 색 구역을 사용하지 못하는 설정
ComDlg.Flags = cdlCCFullOpen 사용자 정의 색 구역을 사용하지 못하는 설정 ComDlg.Flags = cdlCCPreventFullOpen 수원과학대 컴퓨터정보과

27 추가기능 - 2 파일 열기에서 확장자가 그림파일인 경우 폼2를 열어서 그림을 보여주도록 작성 폼2 : Image를 사용
폼1으로 돌아가려면 이미지를 클릭 Form2_Load시 : AutoSize를 True로 설정 이미지 크기에 맞추어서 폼의 크기를 조정한다. 수원과학대 컴퓨터정보과

28 화면구성 수원과학대 컴퓨터정보과

29 폼1 코딩 Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button) Select Case Button.Key Case "open" Call Command1_Click Case "picture" Call command1_1_click : End Select End Sub 수원과학대 컴퓨터정보과

30 폼1 코딩 Private Sub Command1_Click() Dim 확장자 As String
On Error GoTo ERR_COM1 ComDlg.CancelError = True ComDlg.Filter = "모든파일(*.*)|*.*|텍스트파일(*.txt)|*.txt" ComDlg.FilterIndex = 2 ComDlg.ShowOpen 확장자 = LCase(Right(ComDlg.FileName, 3)) If (확장자 = "txt") Then RTBox.LoadFile ComDlg.FileName Label1.Caption = ComDlg.FileName Else MsgBox "텍스트파일이 아닙니다!!!", vbExclamation + vbOKOnly, _ "볼 수 없는 파일" End If ERR_COM1: End Sub 수원과학대 컴퓨터정보과

31 폼1 코딩 Private Sub Command1_1_Click() Dim 확장자 As String
On Error GoTo ERR_COM1 ComDlg.CancelError = True RTBox.Enabled = False ComDlg.Filter = "모든파일(*.*)|*.*|그림파일(*.bmp;*.jpg;*.wmf)|*.bmp;*.jpg;*.wmf" ComDlg.FilterIndex = 2 ComDlg.ShowOpen 확장자 = LCase(Right(ComDlg.FileName, 3)) If (확장자 = "jpg" Or 확장자 = "bmp" Or 확장자 = "wmf") Then Form2.Picture1.Picture = LoadPicture(ComDlg.FileName) Form2.Caption = ComDlg.FileTitle Form2.Show Else MsgBox "그림파일이 아닙니다!!!", vbExclamation + vbOKOnly, _ "볼 수 없는 파일" End If RTBox.Enabled = True ERR_COM1: End Sub 수원과학대 컴퓨터정보과

32 폼2 코딩 Private Sub Form_Load() Picture1.AutoSize = True End Sub
Private Sub Picture1_Click() Unload Me Form1.Show Private Sub Picture1_GotFocus() Me.Width = Picture1.Width Me.Height = Picture1.Height 수원과학대 컴퓨터정보과