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

MS Windows Common Controls 윈도우즈 공통 컨트롤 모음 툴바 (Toolbar) 이미지리스트 (ImageList) 상태표시줄 (StatusBar) 슬라이더 (Slider) 진행표시바 (ProgressBar) 탭스트립 (TabStrip) 트리뷰 / 리스트뷰 / 이미지콤보 2019-01-01 수원과학대 컴퓨터정보과

툴바와 이미지 컨트롤 툴바 (ToolBar) 이미지컨트롤(ImageControl) 메뉴를 바 형식 커맨드버튼들로 표현 버튼 하나에 이벤트프로시져 하나 이미지컨트롤(ImageControl) 커맨드버튼에 이미지(아이콘 등)를 넣어 표현 화면에 출력만 되고 기능은 없음 2019-01-01 수원과학대 컴퓨터정보과

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

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

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

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

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

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

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

코딩하기(p223) 툴바 더블클릭하여 코딩 버튼 하나하나에 해당되는 명령어들의 클릭 이벤트 프로시저를 호출한다. Select Case Button.Caption Case "파일열기" Call Command1_Click 버튼 하나하나에 해당되는 명령어들의 클릭 이벤트 프로시저를 호출한다. 각 프로시저는 따로 만들어야함. 2019-01-01 수원과학대 컴퓨터정보과

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

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

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

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

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

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

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

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

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

리치텍스트 상자 글꼴 색상지정 글꼴지정 버튼을 클릭했을 때 글꼴지정창의 색상을 이용해 RTBox의 글꼴색을 지정한다. RTBox.SelColor = ComDlg.Color 2019-01-01 수원과학대 컴퓨터정보과

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

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

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

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

코딩 Private Sub Command3_1_Click() On Error GoTo ERR_IGN ComDlg.Flags = ( ) ComDlg.( ) RTBox.BackColor = ComDlg.( ) ERR_IGN: End Sub 2019-01-01 수원과학대 컴퓨터정보과

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

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

화면구성 2019-01-01 수원과학대 컴퓨터정보과

폼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 2019-01-01 수원과학대 컴퓨터정보과

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

폼1 코딩 Private Sub Command1_1_Click() Dim 확장자 As String On Error GoTo ERR_COM1 ComDlg.Filter = "모든파일(*.*)|*.*|그림파일|*.bmp;*.jpg;*.wmf" ComDlg.FilterIndex = 2 ComDlg.ShowOpen 확장자 = LCase(Right(ComDlg.FileName, 4)) 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 ERR_COM1: End Sub 2019-01-01 수원과학대 컴퓨터정보과

폼2 코딩 Private Sub Form_Load() Picture1. ( ) = True ‘픽쳐박스 크기를 그림크기에 맞추어 변경 End Sub Private Sub Picture1_Click() ( ) Me ‘ 현재 폼 종료 Form1. ( ) ‘폼1 보여주기 Private Sub Form_Resize() Me.Width = Picture1.Width + (Me.Width - Me.ScaleWidth) Me.Height = Picture1.Height + (Me.Height - Me.ScaleHeight) End Sub 2019-01-01 수원과학대 컴퓨터정보과