VB简易记事本实现代码
基于VB实现简易记事本,涵盖新建、打开、保存、另存为及退出功能。通过CommonDialog控件实现文件对话框,利用LineInput逐行读取并拼接文本,保存时根据窗体标题判断是否弹出另存为对话框。添加CommonDialog控件是功能运行的关键。
先说说几个注意点——这是一个完全用VB实现的简易记事本,代码量不大,但涵盖了文件操作的核心流程:新建、打开、保存、另存为,以及退出。它依赖CommonDialog控件来完成文件对话框的功能,这一点后面会特别提到。
咱们直接来看事件实现这段代码:

Text1.Text = ""
End
End Sub
Private Sub mNew_Click()
Text1.Text = ""
Form1.Caption = "未命名"
End Sub
Private Sub mopen_Click()
CommonDialog1.ShowOpen
Frame = CommonDialog1.FileName
If fname <> "" Then
Form1.Caption = fname
Text1.Text = ""
Open fname For Input As #1
b = ""
Do Until EOF(1)
Line Input #1, nextline
b = b & nextline & Chr(13) & Chr(10)
Loop
Close #1
Text1.Text = b
End If
End Sub
Private Sub mSa ve_Click()
If Form1.Caption = "未命名" Or Form1.Caption = "" Then
CommonDialog1.ShowSa ve
fname = CommonDialog1.FileName
Else
fname = Form1.Caption
End If
If fname <> "" Then
Form1.Caption = fname
Open fname For Output As #1
Print #1, Text1.Text
Close #1
End If
End Sub
Private Sub mNewSa ve_Click()
CommonDialog1.ShowSa ve
If fname <> "" Then
Form1.Caption = fname
Open fname For Output As #1
Print #1, Text1.Text
Close #1
End If
End Sub
这段代码的逻辑其实很清晰——每个菜单项都对应一个事件处理。
退出(mQuit)就不多说了,清空文本框然后结束程序。新建(mNew)也是清空文本框,同时把窗体的标题重置为“未命名”,这个细节很重要,因为它关系到后续保存时是否弹出“另存为”对话框的判断依据。
打开文件(mopen)用了CommonDialog的ShowOpen方法,获取用户选择的文件路径。这里有个小技巧:用Line Input逐行读取,然后拼接回完整的文本内容,最后赋值到文本框。为啥这么做?因为Line Input一次读一行,不会包含行尾的换行符,所以需要手动补上Chr(13) & Chr(10)——也就是回车换行。
保存(mSa ve)的逻辑稍微讲究一点。它先判断当前窗体标题是不是“未命名”,如果是,说明文件还没保存过,那就弹出“另存为”对话框让用户选路径;如果不是,那就直接用当前标题作为文件路径,直接覆盖保存。这个设计非常务实,避免了每次保存都弹出对话框的烦人操作。
另存为(mNewSa ve)就更直接了,无论如何都弹出对话框,让用户指定新的保存路径。
至于菜单的属性代码:
Caption = "文件"
Begin VB.Menu mNew
Caption = "新建"
End
Begin VB.Menu mOpen
Caption = "打开"
End
Begin VB.Menu mSa ve
Caption = "保存"
End
Begin VB.Menu mNewSa ve
Caption = "另存为"
End
Begin VB.Menu mQuit
Caption = "退出"
Shortcut = ^E
End
End
这段是标准的VB菜单定义,结构一目了然:一个“文件”主菜单,下面挂了五个子菜单项。注意退出项设置了快捷键 ^E(Ctrl+E),这在文本编辑器中是个比较经典的快捷键设置。
最后需要强调的是——一定别忘了添加CommonDialog控件。它就是整个文件对话框功能的核心支柱,没有它,打开和保存功能根本跑不起来。这个控件在VB的部件库中,需要手动勾选“Microsoft Common Dialog Control”才能使用。
Windows 10 是一款微软推出的经典操作系统,拥有硬件兼容性与多任务处理能力。它更偏向把系统状态查看和常用调节动作放在一起,适合需要持续观察和微调设备状态的场景。
极度公式是一款跨平台专业LaTeX公式识别编辑软件,支持OCR公式识别和多平台编辑。和使用说明,避免使用,享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时,它能把识别后的处理步骤接得更顺,资料录入这类场景会省下不少时间。
















