"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中的基本文件操作，如读取和写入文件，以及如何利用对话框进行文件选择，这些都是编写更复杂应用程序的基础。
我的内容管理
展开
