VB开发记事本的功能(文本文档 (.pdfVIP

开发记事本的功能（文本文档(.txt)）

功能：VB开发记事本的功能（文本文档(.txt)），使其具

有记事本的各块功能

VB界面如下：

图二

1.电脑上必须要先MicrosoftVisualStudio(也就是VB软

件)

2.用VB软件设置窗口如上（图二）

3.各个Command对应的VB代码如下：

初始化

设置当前路径

ChDirApp.Path

ChDriveApp.Path

设置文本框的位置

txtEdit.Move0,0

初始Filename变量

FileType=1

设置窗体位置

Top=Screen.Height/2-Height/2

Left=Screen.Width/2-Width/2

EndSub

改变窗口大小

PrivateSubForm_Resize()

窗体大小改变时，相应的改变文本框大小

txtEdit.Width=ScaleWidth

txtEdit.Height=ScaleHeight

“文件”菜单

PrivateSubmnuFileItem_Click(IndexAsInteger)

OnErrorGoToerrhandler

设置过滤器

CMDialog1.Filter=Files(*.*)|*.*|TextFiles

设置缺省过滤器

CMDialog1.FilterIndex=2

SelectCaseIndex

根据菜单的索引选择相应的操作

Case0

如果index=0,新建文本文件

清空文

本框内容

记事本

设置记事本标题为记事本

Case1

如果index=1,打开文本文件

显示打开对话框

CMDialog1.ShowOpen

FileName=CMDialog1.FileName

OpenFile(FileName)

Case2

如果index=2,保存文件

如果文件尚未命名，则显示保存对话框

CMDialog1.ShowSave

FileName=CMDialog1.FileName

WriteFile(FileName)

Else

否则直接保存

SaveFile(FileName)

EndIf

Case3

如果index=3,另存文件

显示另存对话框

CMDialog1.ShowSave

FileName=CMDialog1.FileName

WriteFile(FileName)

无操作，分隔

Case5

End

EndSelect

errhandler:

错误处理

ExitSub

EndSub

“文件”菜单中的历史文件列表菜单

PrivateSubmnuFileArray_Click(IndexAsIn