이벤트 구현 코드:
다음과 같이 코드 코드를 복사합니다.
비공개 구독 mQuit_Click()
텍스트1.텍스트 = ""
끝
서브 끝
비공개 구독 mNew_Click()
텍스트1.텍스트 = ""
Form1.Caption = "제목 없음"
서브 끝
비공개 구독 moopen_Click()
CommonDialog1.ShowOpen
프레임 = CommonDialog1.FileName
fname <> ""이면
Form1.Caption = fname
텍스트1.텍스트 = ""
#1로 입력할 fname 열기
b = ""
EOF까지 수행(1)
라인 입력 #1, nextline
b = b & nextline & Chr(13) & Chr(10)
고리
#1 닫기
Text1.Text = b
종료 조건
서브 끝
비공개 구독 mSave_Click()
Form1.Caption = "제목 없음" 또는 Form1.Caption = ""인 경우
CommonDialog1.ShowSave
fname = CommonDialog1.FileName
또 다른
fname = Form1.Caption
종료 조건
fname <> ""이면
Form1.Caption = fname
#1로 출력하기 위해 fname 열기
인쇄 #1, 텍스트1.텍스트
#1 닫기
종료 조건
서브 끝
비공개 구독 mNewSave_Click()
CommonDialog1.ShowSave
fname <> ""이면
Form1.Caption = fname
#1로 출력하기 위해 fname 열기
인쇄 #1, 텍스트1.텍스트
#1 닫기
종료 조건
서브 끝
CommonDialog 컨트롤을 사용해야 합니다!
속성 코드:
다음과 같이 코드 코드를 복사합니다.
VB.Menu mFile 시작
캡션 = "파일"
VB 시작.메뉴 mNew
캡션 = "새로 만들기"
끝
VB.Menu mOpen 시작
캡션 = "열기"
끝
VB 시작.메뉴 mSave
캡션 = "저장"
끝
VB 시작.메뉴 mNewSave
캡션 = "다른 이름으로 저장"
끝
VB 시작.메뉴 mQuit
캡션 = "나가기"
단축키 = ^E
끝
끝