第6章 菜单、工具栏和状态.pptVIP

在“新建”菜单项中，编写的代码。使得文本框的内容被清空，等待重新开始输入文本内容。程序代码如下： Private Sub mnu_File_New_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles mnu_File_New.Click TextBox1.Text = End Sub 在“打开”菜单项中，编写的代码。利用OpenFileDialog的ShowDialog方法，选择需要读取的文本文件，并将文件内容读出显示到文本框中。程序代码如下： Private Sub mnu_File_Open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles mnu_File_Open.Click Dim filename As String Dim f As System.IO.FileStream Dim r As System.IO.StreamReader OpenFileDialog1.ShowDialog() 调用对话框 filename = OpenFileDialog1.FileN