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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

종료버튼 기능 메시지 박스 질의 정말 종료하시겠습니까? : 예 / 아니오 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 2018-12-30 수원과학대 컴퓨터정보과

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

코딩 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 2018-12-30 수원과학대 컴퓨터정보과

코딩 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 2018-12-30 수원과학대 컴퓨터정보과

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

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

화면구성 2018-12-30 수원과학대 컴퓨터정보과

폼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 2018-12-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 2018-12-30 수원과학대 컴퓨터정보과

폼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 2018-12-30 수원과학대 컴퓨터정보과

폼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 2018-12-30 수원과학대 컴퓨터정보과