[비주얼베이직][비주얼베이직] Richtextbox 활용 문서편집기

소개

공부하실때 참고하세요...

본 예제는 길벗출판사 비주얼베이직 따라잡기 책을 보고 배운내용으로
활용하여 제작했습니다.

수업진도는 10주차(10번째) 정도면 충분히 제작할수있는 것입니다.
(본인이 수업10번째 비베 배우고 있습니다.)

이미지는 비주얼스튜디오6.0 에서 쓰인것 입니다.
비주얼스튜디오6.0프로그램이 있었으면 좋겠네요.

폼 디자인 보시는면 다 아실테고. 주석은 달아놓았습니다.
학교마다 다르겠지만 수업진도 차근히 따라오셨다면 알아보실겁니다.

툴바사용. 상태표시줄사용. 메뉴표시줄사용.
리치텍스트박스 . 콤보박스. 텍스트박스.

책예제 이외에 달아본 기능은.

1.새문서 열기 저장 종료 할때 저장여부를 묻습니다.
따로 변수을 이용하면 되긴해요. 코드 참조하시고요.

2.연습문제에있던것들... 정렬(속성사용법알수있고요.)
메뉴표시줄에서는 보이고 오른쪽마우스 팝업메뉴에서는 안보입니다.(간단한 속성이고요.)

3.연습문제에있던것(답이없어서..) 도구모음클릭시.상태표시줄에 설명나오고요.

4.툴바에다 콤보박스 달아놓아서 글꼴과 크기 바꿀수있게.(응용이나활용가능하고요.)

5.문자열찾는 함수사용하여서 찾기 기능(변수활용할수있죠)

6.저장과 다른이름으로 저장 구분되고요.

7.툴바나 상태표시줄을 보이게 안보이게 할수있게 보기메뉴 넣어놨어요.(메뉴표시줄 속성 활용)

8.일반 메모장과 다른점은 CommonDialog 에서 취소관련된 속성을 붙여서 확인 메시지창이 뜨죠.(아시겠죠?메시지창안나오게해도되고요...)

...잘 활용하셔셔 Microsoft wordpad 을 정확히 모방할수있는 실력이 되시길...;;

컴파일 실행환경

비주얼스튜디오 6.0 비주얼베이직 6.0 설치시 기본으로 하는 그래픽 폴더 필.

본문내용

Private Sub mnu종료_Click()

If txtchange = True Then `텍스트 내용 변경시 저장 여부
Remsg = MsgBox("파일의 내용이 변경되었습니다." & vbCrLf & _
"변경된 내용을 저장하시겠습니까?", vbYesNoCancel + vbExclamation, _
Caption) `VbYesNoCancel은 메시지창 예아니오취소 버튼.. vbExclamation 은 느낌표이미지, Caption 은 메시지창 Title

Select Case Remsg
Case Is = vbYes `저장후 종료,
Call mnu저장_Click
If CancelErr = False Then `저장대화상자에서 취소시에는 종료하지 않게 한다.
End
End If
Case Is = vbNo
End
End Select
Else
End
End If
End Sub
Private Sub mnu편집_Click()
If Len(Clipboard.GetText) = 0 Then `클립보드을 비우면 붙여넣기와 비우기가 활성이 안된다.
mnu붙여넣기.Enabled = False
mnu클립.Enabled = False
Else
mnu붙여넣기.Enabled = True
mnu클립.Enabled = True
End If

End Sub

참고자료

· 없음