6.1 리치 텍스트 상자 사용하기.

Presentation on theme: "6.1 리치 텍스트 상자 사용하기."— Presentation transcript:

1 6.1 리치 텍스트 상자 사용하기

2 리치 텍스트 상자 리치 텍스트 상자란? 일반 텍스트 상자의 확장 해당 파일 비교 일반 텍스트 파일 부르거나 저장하는 기능
텍스트의 글꼴이나 모양 등을 좀더 다양하게 지정 해당 파일 txt, rtf(Rich Text Format)의 확장자를 가지는 파일을 읽을 수 있음. 비교 보조프로그램 속의 [메모장]과 [워드 패드] 메모장은 일반 텍스트 상자 격 워드패드는 리치 텍스트 상자 격 수원과학대 컴퓨터정보과

3 확장 컨트롤 추가 리치 텍스트 상자 컨트롤의 추가 [프로젝트] > [구성요소] (또는 Ctrl+T) > 컨트롤 탭
Microsoft Rich Textbox Control 6.0(SP4)를 찾아 check 후 확인 수원과학대 컴퓨터정보과

4 객체 만들기(p.205) 파일을 컨트롤 하기 위한 객체 삽입 DriveList, DirList, FileList, Label
Image, RichTextBox, CommandButton ⑥Label ①DriveList ②DirList ③FileList ④Image ⑤RichTextBox ⑦CommandButton 수원과학대 컴퓨터정보과

5 객체 속성 조정 객체 속성 리치텍스트박스의 속성 Appearance : 선/입체
ScrollBars : 스크롤바(없음/수직/수평/모두) Text : 입력 텍스트 객체명 속성명 속성값 RichTextBox1 Appearance 1-rtfThreeD ScrollBars 2-rtfVertical Text Image1 BorderStyle 1-단일고정 Command1 Caption 다른 이름으로 수원과학대 컴퓨터정보과

6 코딩하기(p.206) Drive1을 더블클릭하여 코딩 Dir1을 더블클릭하여 코딩 드라이브가 변경되면
디렉토리도 같이 바뀌어야 함. 디렉토리가 변경되면 디렉토리내 파일리스트도 같이 바뀌어야 함. 수원과학대 컴퓨터정보과

7 코딩하기(p.206) File1을 더블클릭하여 코딩
그림파일이면 이미지 창(Image1)에 그림을 표시(LoadPicture 함수)하고, Label1에 파일 이름을 표시함. 확장자가 txt면 RichTextBox1에 내용을 표시(LoadFile메소드)하고, Label1에 파일 이름을 표시함. 수원과학대 컴퓨터정보과

8 코딩하기(p.207) Command1 버튼을 더블클릭하여 코딩 변수 Irum에파일 이름을 입력받음.
파일 이름의 확장자(“.txt”)를 붙여줌 RichTextBox1의 SaveFile메소드를 사용하여 파일을 저장함. Label1에 파일 이름을 표시. 수원과학대 컴퓨터정보과

9 정리(p.207) 리치 텍스트상자의 주요 메소드 객체명.LoadFile(파일경로명, 파일타입)
객체명.SaveFile(파일경로명, 파일타입) FileType의 종류 rtfRTF : 값은 0, 기본 rtfText : 값은 1, 표준 텍스트 파일 수원과학대 컴퓨터정보과

10 추가기능 넣기-1 File1_Click Command1_Click 파일 확장자를 대소문자 상관없이 인식
입력한 파일이름에 확장자가 들어 있는 경우 “.txt”를 붙이지 않게 수정 수원과학대 컴퓨터정보과

11 추가기능 넣기-2 추가 기능 확장자 선택기능 : 모든파일/텍스트파일/그림파일 (콤보박스이용)
파일을 읽다가 다른 파일을 클릭하면 그림과 텍스트상자의 내용, 레이블의 내용을 지우게 처리 수원과학대 컴퓨터정보과

12 추가기능 - 1 확장자 대소문자 구분없이 루트 디렉토리인 경우 확인
LCase(Right(File1.Filename,3)) 사용 루트 디렉토리인 경우 확인 Dim 파일경로 As String ‘ 일반-선언부 If (Right(File1.Path,1) = “\”) Then 파일경로 = File1.Path & File1.FileName Else 파일경로 = File1.Path & “\” & File1.FileName End If RichTextBox1.LoadFile 파일경로, rtfText Label1.Caption = 파일경로 File1.Refresh 수원과학대 컴퓨터정보과

13 추가기능 - 2 파일 저장시 콤보박스 추가 Private Sub Form_Load() Combo1.AddItem "모든 파일"
If (LCase(Right(Irum,4)) <> “.txt”) Then Irum = Irum & “.txt” End If 콤보박스 추가 Private Sub Form_Load() Combo1.AddItem "모든 파일" Combo1.AddItem "텍스트파일" Combo1.AddItem "그림파일" End Sub 수원과학대 컴퓨터정보과

14 추가기능 - 2 다른 파일 클릭시 표시되던 자료가 지워지게.. Private Sub Combo1_Click()
Select Case Combo1.ListIndex Case 0: File1.Pattern = "*.*" Case 1: File1.Pattern = "*.txt" Case 2: File1.Pattern = "*.bmp;*.jpg;*.wmf" End Select End Sub 다른 파일 클릭시 표시되던 자료가 지워지게.. Private Sub File1_Click() RichTextBox1.Text = "" Image1.Picture = LoadPicture() 수원과학대 컴퓨터정보과

15 추가기능 - 3 디스크 에러 처리 On Error GoTo ERR_HANDLE Dir1.Path = Drive1.Drive
If Err.Number <> 0 Then MsgBox "에러번호 : " & Err.Number & vbCrLf & _ "에러내용 : " & Err.Description, _ vbCritical + vbOKOnly, "에러발생" End If 수원과학대 컴퓨터정보과

16 오늘의 과제 제출 제출 immuse@naver.com 제목 : 반-학번-이름-날짜
*.vbp, *.frm 두개를 zip으로 묶어서 제출 수원과학대 컴퓨터정보과