Chap 8. 공용 컨트롤

1. Chap 8. 공용 컨트롤

2. 01. 공용 컨트롤 사용하기 02. 공용 컨트롤 항목

3. 공용 컨트롤 사용하기 • 공용 컨트롤 • 특징 • 공용 대화상자(Common Dialog) 컨트롤처럼 사용 빈도가 높은 컨트롤을 윈도우에서 제공하는데 이를 공용 컨트롤(Common Control)이라 한다. • 비주얼 베이직 6.0에서는 3개의 공용 컨트롤 지원 • 공용 컨트롤도 도구상자에 추가해야 한다. 도구상자에 추가된 공용 컨트롤

4. 공용 컨트롤 항목들

5. [실습하기] 탭 페이지에 컨트롤 추가하기 • 도구상자에 추가된 컨트롤을 분류하기 위해 새로운 탭 페이지를 추가하여 그 안에 컨트롤을 추가할 수 있다. 도구 상자에서 마우스 오른쪽 버튼을 눌러 바로가기 메뉴에서 ‘탭 추가’ 항목 선택 ‘새 탭 이름’ 대화상자에 새로운 탭 이름을 입력 ‘공용 컨트롤’ 항목이 추가되었는지 확인

6. 01. 공용 컨트롤 사용하기02. 공용 컨트롤 항목

7. 슬라이더 컨트롤 • 슬라이더(Slider) 컨트롤 • 특징 • 스크롤바 컨트롤과 비슷하게 시각적으로 현재 위치를 나타낼 때 사용 • MouseDown이나 MouseUp과 같은 이벤트를 이용하여 값 범위 선택 가능 • 용도 • 그래프에서 점의 값을 설정. • 배열에 전달될 숫자의 범위 선택. • 폼, 필드나 그 외의 그래픽 개체의 크기 조정. 슬라이더의 속성들

8. 주요 속성

9. TickStyle 속성과 TickFrequency 속성 • TickStyle 속성 • 슬라이더 컨트롤의 눈금 위치 결정 • TickFrequency 속성 • 눈금 수를 조정하는 컨트롤 • TickFrequency 속성과 Min 속성, Max 속성을 함께 사용해서 컨트롤에 몇 개의 눈금이 나타나도록 할 것인지를 설정

10. 디자인 모드에서 설정하는 경우 • [보기]->[속성 페이지] 메뉴 이용 Min 속성이 0이고 Max 속성은 20으로, TickFrequency 속성은 5로 설정되어 있으면 값이 5씩 증가할 때마다 눈금이 하나씩 표시되므로 모두 4개의 눈금이 표시됨

11. SmallChange 속성과 LargeChange 속성 • 사용자가 마우스를 누를 때에 슬라이더 컨트롤의 증가 정도나 감소 정도를 결정 • SmallChange 속성 • <왼쪽 화살표(←)>나 <오른쪽 화살표(→)>키를 눌렀을 때에 이동하는 눈금 수 지정 • LargeChange 속성 • 사용자가 컨트롤을 누르거나 <PgUp>키 또는 <PgDn>키를 눌렀을 때에 이동하는 눈금 수 지정 • 범위 설정 • SelectRange 속성이 True로 설정되어 있으면 슬라이더 컨트롤에 범위가 표시됨

12. [실습하기] 도형 색 칠하기        

13. [실습하기] 도형 색 칠하기 Private Sub sldBlue_Scroll()     Shape1.BackColor = RGB(sldRed.Value, sldGreen.Value, sldBlue.Value) End Sub Private Sub sldGreen_Scroll()     Shape1.BackColor = RGB(sldRed.Value, sldGreen.Value, sldBlue.Value) End Sub Private Sub sldRed_Scroll()     Shape1.BackColor = RGB(sldRed.Value, sldGreen.Value, sldBlue.Value) End Sub

14. 프로그레스 바 컨트롤 • 프로그레스 바 컨트롤 • 특징 • 작업 진행 과정을 막대 그래프 형식으로 표현. • 컨트롤은 작업이 발생할 때 채워지는 프레임으로 구성 • 용도 • 네트워크를 통해 파일을 전송할 때 사용자에게 진행 과정 표시. • 수 초 이상이 소요되는 작업의 처리 상태 표시. • 채워지는 모양 • Scrolling 속성 이용

15. 주요 속성

16. [실습하기] 작업 상태 표시하기      1초에 한번씩 진행 상태를 문자열과 프로그레스 바로 표시 폼에 컨트롤 추가하기 각 컨트롤의 속성 설정

17. Dim Time_Count As Integer Private Sub Form_Load()     Timer1.Enabled = False     Time_Count = 0 End Sub 시작 버튼을 누르 전에는 타이머가 작동하지 않도록 Form_Load 이벤트 핸들러 작성 Private Sub cmdDisp_Click()     Timer1.Enabled = True End Sub 시작 버튼을 누르면 타이머 이벤트가 발생하도록 cmdDisp 이벤트 핸들러 작성 Private Sub Timer1_Timer()     Time_Count = Time_Count + 1     lblDisp.Caption = Time_Count & "% 진행되었습니다."     ProgressBar1.Value = Time_Count     If Count = 100 Then         Timer1.Enabled = False     End If End Sub 타이머 이벤트 핸들러 작성

18. 상태 바 컨트롤 • 상태 바(status Bar) 컨트롤 • 특징 • 상위 폼의 아래 부분에 시간, 날짜 등을 표시하는 컨트롤 • 최대 16개의 패널(Panel) 개체 표시 가능 • 각 패널에 텍스트 또는 그림 포함 가능 • Style 속성을 이용하여 날짜, 시간, 키보드 상태 등의 공통 데이터 표시 가능 • 주요 속성

19. Style 속성에 따른 패널 모양 style = 0-sbrNormal style = 1-sbrSimple

20. 패널 개체의 속성

21. [실습하기] 패널 만들기  [보기]->[속성 페이지] 메뉴 선택 폼에 컨트롤 추가하기  [패널] 탭 선택 패널 순서 설정 툴 팁 설정 패널 종류 설정 패널 모양 설정 프로그램 실행 후

22. Panels 개체 사용하기 • 특징 • Panels 개체를 사용하여 패널을 추가/삭제 등 가능 • Add 메서드를 사용하여 패널 추가 • Remove 메서드를 사용하여 삭제 • Clear 메서드를 사용하면 전체 패널을 삭제 • 구문 형식 • 패널 추가 방법 • Add 메서드를 사용할 때 구성 요소에 값을 넣기 • StatusBar1.Panels.Add  ,  ,  , sbrDate • Add 메서드로 패널을 추가한 후 Item 개체의 Style 속성 사용 • StatusBar1.Panels.Add • StatusBar1.Item.Style=sbrDate Add(인덱스, 키, 텍스트, 스타일, 그림) Remove(인덱스) Clear

23. 이미지 리스트 컨트롤 • 이미지 리스트 컨트롤 • 특징 • 여러 개의 이미지를 사용할 수 있도록 담아두는 컨트롤 • 이미지 리스트 컨트롤을 폼에 추가하면 아이콘 모양으로 되어 있고 실행하면 화면에는 나타나지 않는다. • 독립적으로 사용하기 보다는 트리뷰, 리스트뷰, 툴바 등과 함께 사용(단독으로는 사용하지 못함) .  폼에 추가된 이미지 리스트 컨트롤

24. 이미지 읽어오는 방법 • [속성] 창의 [사용자 정의]를 선택한 후 버튼을 눌러 표시된 대화상자나 • [보기]->[속성 페이지] 메뉴를 선택하여 표시된 대화상자의 ‘이미지’ 탭 사용.  속성 페이지 대화상자

25.  그림 삽입 버튼을 사용하여 그림 삽입

26. ListImages 개체를 사용하여 이미지 삽입 • ListImages 개체 • 이미지를 추가하거나, 삭제 등이 가능 • Add 메소드를 이용하여 이미지 추가 • Remove 메소드를 사용하여 이미지 삭제 • Clear 메소드를 사용하여 전체 이미지 삭제 • 구문 형식 Add(인덱스, 키, 그림) Remove(인덱스) Clear

27. [실습하기] 이미지 리스트 만들기 폼에 컨트롤 추가하기 폼 실행 시 이미지를 불러오도록 Form_Load 이벤트 핸들러 작성 Private Sub Form_Load()     Dim My_ImageList As ListImage     Set My_ImageList = ImageList1.ListImages.Add(1, "이미지1", _                        LoadPicture("g:\vb\example\image\xmas08-1.gif"))     Set My_ImageList = ImageList1.ListImages.Add(2, "이미지2", _                        LoadPicture("g:\vb\example\image\bg-191-1.gif")) End Sub 실행해보자. 지금은 아무것도 보이지 않는다. 왜냐하면 단독으로 사용하지 않기 때문에….

28. 툴 바 컨트롤 • 툴 바(Tool Bar) 컨트롤 • 특징 • 응용 프로그램과 연결된 도구 모음을 만들 때 사용하는 버튼 컬렉션이 들어 있어 동일한 크기의 여러 개의 버튼을 묶어서 관리하도록 함으로써 편하게 사용할 수 있도록 하는 컨트롤 • 툴바에 이미지를 삽입하기 위해서는 이미지 리스트 컨트롤에 이미지가 등록되어 있어야 한다.

29. 주요 속성

30. 툴 바 컨트롤의 버튼 모양 • Style 속성을 사용하여 두 가지로 표현 • [보기]->[속성 페이지]를 선택하여 표시된 ‘속성 페이지’ 대화상자의 단추(Button) 탭에서 설정 Style = 0 - tbrStandard Style = 0 - tbrFlat  [단추] 탭

31. [단추] 탭의 속성

32. 실습하기] 도구 모음 만들기 툴 바 컨트롤 이미지리스트 컨트롤 폼에 컨트롤 추가하기  [보기]->[속성 페이지] 대화상자의 [일반] 탭 선택

33. 실습하기] 도구 모음 만들기  [단추] 탭을 누르고 버튼 이미지와 텍스트 등 설정 2. Index 확인 1. 단추 삽입 버튼 클릭 3. Caption 삽입 이미지리스트 이름 선택 4. 툴 팁 삽입 5. Image 인덱스 삽입 스타일 설정 6. 적용 버튼 클릭

34. 두 번째 버튼을 삽입하려면 위 과정을 반복한다. 버튼의 오른쪽에 버튼 부메뉴를 작성해보자. ButtonMenus 항목을 선택한다. 1.Style 속성을 5-tbrDropDown으로 설정 2. 단추 메뉴 삽입 버튼 클릭 3. Index 설정 4. 부메뉴 텍스트 입력 확인 버튼을 클릭하면 드롭다운 화살표가 표시된다.

35. Buttons 개체 • 특징 • 버튼 삽입, 삭제 가능 • Add 메소드를 이용하여 버튼 추가 • Remove 메소드를 사용하여 버튼 삭제 • Clear 메소드 사용하여 전체 버튼 제거 • 구문 형식 • ButtonMenus 개체 • 툴바 컨트롤의 버튼 개체에서 드롭다운되는 메뉴 표시 • 버튼 개체의 Style 속성이 ‘5-tbrDropdown’으로 설정되어야 함 툴바컨트롤이름.Buttons.Add(인덱스, 키, 캡션, 스타일, 그림) 툴바컨트롤이름.Buttons.Remove(인덱스) 툴바컨트롤이름.Clear 툴바컨트롤이름.ButtonMenus.Add(인덱스, 키, 캡션, 스타일, 그림) 툴바컨트롤이름.ButtonMenus.Remove(인덱스) 툴바컨트롤이름.Clear

36. 이미지 콤보 컨트롤 • 이미지 콤보 컨트롤 • 특징 • 콤보 박스에 이미지와 문자열을 함께 넣을 수 있는 컨트롤 • ComboItems 개체 • 이미지 콤보에 이미지를 추가하기 위해서는 사용 • 용도 • 폼의 목록 항목 상태를 나타내는 들여쓰기 및/또는 다른 그래픽을 사용하는 목록 작성 • 드롭다운 목록 유형으로 사용자에게 계층적 정보 제공 • 표시 향상 기능이나 지시자를 표준 드롭다운 목록에 추가 • 향상된 개체 기본 속성, 메서드 및 코드의 구조를 사용하는 표준 모양을 가진 콤보 상자 표시

37. 주요 속성 • ComboItems 개체 • 특징 • 콤보 박스에 이미지를 삽입/삭제 등 가능 • Add 메서드는 이미지 삽입 • Remove 메서드는 이미지 삭제 • Clear 메서드는 전체 이미지를 모두 삭제하는 기능 제공 • 구문 형식 이미지콤보이름.ComboItems.Add(Index, Key, Text, Image, SelImage, Indentation ) 이미지콤보이름.ComboItems.Remove(Index) 이미지콤보이름. Clear

38. Add 메소드의 구성 요소

39. [실습하기] 이미지 콤보 만들기 폼에 컨트롤 추가하기 이미지 리스트 컨트롤에 이미지 삽입

40. 이미지 콤보 컨트롤을 선택하고, 속성 페이지 대화상자에서 [일반] 탭을 선택한다. 이미지리스트 선택 콤보 박스에 보여질 문자열 선택

41. 폼이 실행될때 콤보박스에 이미지가 삽입되도록 Form_Load 이벤트 핸들러 작성 Private Sub Form_Load()     ImageCombo1.ComboItems.Add , , "첫번째 목록", 1     ImageCombo1.ComboItems.Add , , "두번째 목록", 2     ImageCombo1.ComboItems.Add , , "세번째 목록", 3     ImageCombo1.ComboItems.Add , , "네번째 목록", 4 End Sub 프로그램 실행

42. 트리뷰 컨트롤 • 트리뷰 컨트롤 • 특징 • 이미지와 문자열로 이루어진 Nodes 개체의 계층 구조를 트리 형식으로 표시 • 계층적인 트리구조를 표시하므로 조직 구조나 인덱스의 내용, 디스크의 디렉터리 같이 조직적으로 구성되어 있는 데이터를 표시하기 위해 주로 사용 • 이미지가 있는 트리뷰를 만들기 위해서는 이미지 리스트 컨트롤과 트리뷰 컨트롤을 폼에 추가하고 이미지 리스트 컨트롤에 이미지 삽입 • Nodes 개체 • 콤보박스에 노드(Node)를 추가하거나 삭제하기 위해 사용 • 사용 메소드 트리뷰개체이름.Nodes.Add(Relative, Relationship, Key, Text, Image, SelectedImage) 트리뷰개체이름.Nodes.Remove(인덱스) 트리뷰개체이름.Nodes.Clear

43. Add 메소드의 구성 요소

44. [실습하기] 이미지를 포함하는 트리뷰 만들기 폼에 컨트롤 추가하기 이미지 리스트 컨트롤에 이미지를 삽입

45. ‘속성 페이지’ 대화상자의 ‘일반’ 탭을 선택하고, ImageList 항목에 이미지 리스트를 등록 이미지리스트 등록

46. 폼을 실행하면 트리뷰가 보여지도록 Form_Load 이벤트 핸들러 작성 Private Sub Form_Load()    Dim My_Node As Node    Set My_Node = TreeView1.Nodes.Add(, , "List1", "이미지목록1", 1)    Set My_Node = TreeView1.Nodes.Add("List1", tvwChild, "image1", "이미지목록-1", 2)    Set My_Node = TreeView1.Nodes.Add("List1", tvwChild, "image2", "이미지목록-2", 3)    Set My_Node = TreeView1.Nodes.Add("image2", tvwChild, "image-2-1", _                                       "이미지목록-2-1", 4) End Sub 프로젝트를 실행

47. 리스트 뷰 컨트롤 • 리스트 뷰 컨트롤 • 특징 • 표준 아이콘, 작은 아이콘, 목록, 보고서 등 네 가지 유형으로 항목을 표시하는 컨트롤 • 아이콘과 텍스트를 함께 표시할 수도 있고, 열 머리글을 표시하거나 열 머리글 없이 항목 배치 가능

48. 리스트 뷰 컨트롤의 속성

49. View 속성 • 목록의 항목을 표시하기 위하여 어떻게 표시할 것인지 • 항목 표시 유형 0-lvwIcon 1-lvwSmalllIcon 2-lvwList 3-lvwReport

50. 리스트 뷰 컨트롤에 이미지 삽입하기 • ‘속성 페이지’ 대화상자의 ‘이미지 목록’ 탭에서 ‘이미지 아이콘 목록’ 항목을 설정 • View 속성에 따른 이미지 목록 등록