Chap 4. 컨트롤 배우기 2

Chap 4. 컨트롤 배우기 2

01. Shape 컨트롤/ Line 컨트롤 02. 수직/수평 스크롤바 컨트롤 03. 타이머 컨트롤 04. 이미지 컨트롤과 픽처박스 컨트롤 05. 파일 시스템 컨트롤 06. 컨트롤 배열

파일시스템 컨트롤 • 파일시스템 컨트롤 • 드라이브 리스트박스 컨트롤 • 드라이브명을 지정 • 디렉토리 리스트박스 컨트롤 • 드라이브 리스트박스에서 설정된 드라이브의 디렉토리 표시 • 파일 리스트박스 컨트롤 • 디렉토리 리스트박스 컨트롤에서 설정된 디렉토리에 있는 파일 표시

드라이브리스트박스 컨트롤(DriveListBox Control) • 드라이브리스트박스 컨트롤 • 특징 • 시스템의 모든 드라이브의 정보를 콤보박스 컨트롤의 목록에 자동으로 등록 • 프로그램 실행 중에 드라이브를 선택 가능 • 선택된 드라이브는 ListIndex 속성을 사용하여 위치 파악 • 디렉토리 리스트박스와 연결하여 주로 사용

드라이브리스트박스 컨트롤(DriveListBox Control) • 자주 사용하는 속성 • 드라이브 리스트박스 컨트롤과 디렉터리 리스트박스 컨트롤 연결 Dir1.Path=Drive1.Drive

[실습하기] 드라이브 명 표시하기 폼에 컨트롤 추가하고 속성 설정     컨트롤의 속성 설정

[실습하기] 드라이브 명 표시하기  선택한 드라이브에 대한 내용이 레이블 컨트롤에 표시되도록 이벤트 핸들러 작성  프로그램 실행 Private Sub Drive1_Change() Label1.Caption = Drive1.List(Drive1.ListIndex) End Sub

디렉터리 리스트박스 컨트롤(DirListBox Control) • 디렉터리 리스트 박스 컨트롤 • 특징 • 현재 드라이브의 디렉토리 구조를 리스트박스에 표시 • 다른 드라이브의 디렉토리 구조를 보고 싶음 • 파일 리스트박스, 드라이브 리스트박스와 함께 사용  폼에 추가된 디렉터리 리스트 박스 컨트롤 디렉터리 리스트박스 컨트롤

디렉터리 리스트박스 컨트롤(DirListBox Control) • 주요 속성

[실습하기] 디렉터리 표시하기 폼에 컨트롤 추가하기  각 컨트롤의 속성 설정   

[실습하기] 디렉터리 표시하기 드라이브를 변경하면 변경된 드라이브의 디렉토리 구조를 보여줄 수 있도록 이벤트 핸들러 작성  프로그램 실행 Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub

파일 리스트 박스 컨트롤 • 파일 리스트 박스 컨트롤(FileListBox Control) • 특징 • 현재 선택되어 있는 디렉토리의 파일 목록을 출력해 주는 컨트롤 • 디렉토리 리스트 박스, 드라이브 리스트 박스와 사용 • 디렉토리에 있는 파일이 보이도록 하려면 Path 속성 이용 • 구문 형식 File1.Path = Dir1.Path

파일 리스트 박스 컨트롤 • 주요 속성

파일 리스트 박스 컨트롤 • Pattern 속성 • 파일 리스트박스 컨트롤에 표시되는 파일의 조건을 와일드 카드(*)를 사용하여 설정하기 위해 사용 • 특정 확장자를 가진 파일만을 표시하거나, 여러 조건을 한꺼번에 설정 가능 • 특정 확장자를 가진 파일을 표시 • 여러 확장자를 가진 파일을 표시 File1.Pattern = "*. wmf" File1.Pattern = "*. wmf ; *.ico ; *.jpg"

파일 리스트 박스 컨트롤 • MultiSelect 속성 • 여러 개의 파일을 선택할 수 있게 함 • MultiSelect 속성의 값 • 0- 없음, 1- 단순형, 2- 확장형 사용 • MultiSelect 속성을 사용한 파일 선택

[실습하기] 그래픽 뷰어 만들기           11 12 폼에 컨트롤 추가하기

[실습하기] 그래픽 뷰어 만들기  이벤트 핸들러 작성 드라이브 리스트박스를 변경했을 경우 디렉토리 리스트박스의 내용이 변경되도록 이벤트 핸들러 Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub 디렉토리 리스트박스의 정보를 파일 리스트박스로 전송하도록 이벤트 핸들러 Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub

[실습하기] 그래픽 뷰어 만들기 Form_Load 이벤트 핸들러 Private Sub Form_Load() cboExtend.AddItem "GIF 파일(*.gif)", 0 cboExtend.AddItem "JPG 파일(*.jpg)", 1 cboExtend.AddItem "아이콘 파일(*.wmf *.ico)", 2 cboExtend.AddItem "모든 파일(*.*)" cboExtend.ListIndex = 0 optStretch.Value = True End Sub

[실습하기] 그래픽 뷰어 만들기 콤보 박스 이벤트 핸들러 Private Sub cboExtend_Click() Select Case cboExtend.ListIndex Case 0 File1.Pattern = "*.gif" Case 1 File1.Pattern = "*.jpg" Case 2 File1.Pattern = "*.wmf*.ico" Case 3 File1.Pattern = "*.*" End Select End Sub

[실습하기] 그래픽 뷰어 만들기 파일 리스트박스에서 파일을 선택한 경우 선택된 그림 표시 Private Sub File1_Click() FilePath$ = File1.Path If Right(FilePath$, 1) = "\" Then Path$ = Left(FilePath$, 2) End If If optStretch.Value = True Then Image1.Stretch = True Else Image1.Stretch = False End If Image1.Picture = LoadPicture(FilePath$ & "\" & File1.FileName) End Sub 종료 버튼 이벤트 핸들러 Private Sub cmdExit_Click() End End Sub

[실습하기] 그래픽 뷰어 만들기  프로그램 실행

01. Shape 컨트롤/ Line 컨트롤 02. 수직/수평 스크롤바 컨트롤 03. 타이머 컨트롤 04. 이미지 컨트롤과 픽처박스 컨트롤 05. 파일 시스템 컨트롤 06. 컨트롤 배열

컨트롤 배열 • 컨트롤 배열 • 특징 • 컨트롤을 복사하면 컨트롤 배열을 만들 수 있음 복사/붙여넣기

컨트롤 배열 • 디자인 모드에서 컨트롤 배열 작성하기 • 컨트롤 배열 작성 방법 • 1. 하나 이상의 컨트롤에 같은 이름을 지정하기. • 2. 기존의 컨트롤을 복사한 다음 폼에 붙여넣기 • 3. 컨트롤의 Index 속성을 Null 이외의 값으로 설정.

[실습하기] 같은 이름 사용하여 컨트롤 배열 작성 폼에 컨트롤 추가하고 첫 번째 배열의 Name 속성 설정

[실습하기] 같은 이름 사용하여 컨트롤 배열 작성  두 번째 컨트롤의 Name속성을 첫 번째 컨트롤의 Name 이름 속성과 동일하게 설정  두 번째 컨트롤의 이름 설정  컨트롤 배열 작성 메시지 상자

[실습하기] 같은 이름 사용하여 컨트롤 배열 작성 동일한 이름을 가진 컨트롤이 컨트롤 배열로 생성됨  컨트롤 배열로 생성된 첫 번째 컨트롤과 두 번째 컨트롤

[실습하기] 컨트롤을 복사하여 컨트롤 배열 생성 폼에 컨트롤 추가하기  컨트롤을 선택하고 [편집]->[복사], [편집]->[붙여넣기] 메뉴 실행하여 컨트롤 배열 메시지 상자 표시

[실습하기] 컨트롤을 복사하여 컨트롤 배열 생성  Yes를 선택하면 컨트롤의 인덱스가 1로 설정됨

[실습하기] 계산기 만들기       ⑨   폼에 컨트롤 추가하기

[실습하기] 계산기 만들기

[실습하기] 계산기 만들기  프로그램 실행

Chap 4. 컨트롤 배우기 2