VB简易记事本实现代码分享

"VB简易记事本实现代码" 在VB（Visual Basic）中，创建一个简易记事本程序是一项基础但实用的任务，可以帮助初学者更好地理解VB的编程逻辑和控件应用。以下是一个VB简易记事本的实现代码，主要包括新建、打开、保存和关闭文件的功能。 1. 新建 (mNew_Click)： `mNew_Click` 事件处理函数用于清除文本框（Text1）中的文本，并更新窗体标题为“未命名”。这模拟了记事本的“新建”功能，清空当前文档并提供一个新的空白编辑空间。 ```vb Private Sub mNew_Click() Text1.Text = "" Form1.Caption = "未命名" End Sub ``` 2. 打开 (mopen_Click)： `mopen_Click` 事件处理函数调用了`CommonDialog1.ShowOpen`对话框让用户选择文件。如果用户选择了文件，代码将读取文件内容到文本框，并更新窗体标题。`CommonDialog1.FileName`返回选定的文件路径。 ```vb Private Sub mopen_Click() CommonDialog1.ShowOpen fname = CommonDialog1.FileName If fname <> "" Then Form1.Caption = fname ' 读取文件内容 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 ``` 3. 保存 (mSave_Click)： `mSave_Click` 事件处理函数负责保存文本框中的内容。如果窗体标题是“未命名”，则会弹出`CommonDialog1.ShowSave`对话框让用户指定文件名；否则，直接使用窗体标题作为文件名。然后，打开文件进行写入操作，并关闭文件。 ```vb Private Sub mSave_Click() If Form1.Caption = "未命名" Or Form1.Caption = "" Then CommonDialog1.ShowSave 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 ``` 4. 新建并保存 (mNewSave_Click)： `mNewSave_Click` 事件处理函数结合了新建和保存的功能，即创建一个新文件并立即保存。同样，如果用户没有指定文件名，它会使用`CommonDialog1.ShowSave`对话框让用户选择。 ```vb Private Sub mNewSave_Click() CommonDialog1.ShowSave If fname <> "" Then Form1.Caption = fname Open fname For Output As #1 Print #1, Text1.Text Close #1 End If End Sub ``` 这个简易记事本程序的菜单栏（MenuStrip）也通过代码创建，包括“文件”（mFile）菜单项，其中包含“新建”（mNew）、“打开”（mOpen）、“保存”（mSave）和可能的其他操作。`CommonDialog1` 控件用于打开文件对话框，使得用户能够方便地选择或保存文件。 通过这段代码，我们可以学习到VB中的基本文件操作，如读取和写入文件，以及如何利用对话框进行文件选择，这些都是编写更复杂应用程序的基础。