VB2020编写的简易记事本.docVIP

Public Class 实训1 Private fileName As String ‘声明一个模块级变量，用于保存当前正在编辑的文件名 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ShowStatus() End Sub Private Sub mnu格式_自动换行_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu格式_自动换行.Click If mnu格式_自动换行.Checked = False Then mnu格式_自动换行.Checked = True TextBox1.WordWrap = True Else mnu格式_自动换行.Checked = False TextBox1.WordWrap = False End If End Sub Private Sub mnu文件_退出_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu文件_退出.Click Me.Close() End Sub Private Sub mnu帮助_关于_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 帮助_关于_Click MessageBox.Show(有待完善的简易记事本，版本1.0“，”关于记事本) End Sub Private Sub mnu文件_新建_Click（ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu文件_新建_Click SaveFileDialog1.Title = 新建文件 更改对话框的默认标题 SaveFileDialog1.InitialDirectory = C:\ SaveFileDialog1.Filter = txt files (*.txt)|*.txt* If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then 将对话框中的文件名称赋给变量，用户选择“保存”时仍采用该名称 fileName = SaveFileDialog1.FileName 使窗体标题栏显示出当前编辑的文件名 Me.Text = 简易记事本- fileName 清空文本框中的所有内容 TextBox1.Clear() 新建一个空内容文件 My.Computer.FileSystem.WriteAllText(fileName, , True) End If End Sub Private Sub 文件_打开_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 文件_打开_Click OpenFileDialog1.InitialDirectory = C:\ OpenFileDialog1.Filter = txt files (*.txt)|*.txt If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then fileName = OpenFileDialog1.FileName Me.Text = 简易记事本- fileName TextBox1.Text = fileName 文件名保存到模块级变量中 将文件