VB第6篇GUI应用程序开发.ppt

在【新建】菜单项中，编写相应的代码，使文本框的内容被清空，等待重新输入文本。程序代码如下： 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.FileName 获取选中的文件名 f = New System.IO.FileStream(filename, IO.FileMode.Open, IO.FileAccess.Read) r = New System.IO.StreamReader(f) TextBox1.Text = r.ReadToEnd() 读文件 r.Close() End Sub 在【保存】菜单项中，编写相应的代码。利用SaveFileDialog的ShowDialog方法，设置保存的文件名，并将文本框中的内容保存到该文件中。程序代码如下： Private Sub Mnu_File_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mnu_File_Save.Click Dim filename As String Dim f As System.IO.File Dim w As System.IO.StreamWriter SaveFileDialog1.ShowDialog() 调用对话框 filename = SaveFileDialog1.FileName 获取选中的文件名 w = f.CreateText(filename) w.Write(TextBox1.Text) 写文件 w.Close() End Sub ? 【退出】菜单项中，编写相应的代码，退出程序的运行。程序代码如下： Private Sub Mnu_File_Exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Mnu_File_Exit.Click End 结束程序的运行 End Sub ? 6.4.1 与MDI有关的属性和方法 1．指定MDI父窗体（IsMdiContainer） IsMdiContainer属性指定窗体是否为MDI父窗体。默认值为False，表示本窗体不是MDI父窗体；若为True，为MDI父窗体。IsMdiContainer属性可以在属性窗口中设置，也可以在程序中动态设置。设置该属性的语法格式如下： 窗体名称.IsMdiContainer = 值 2．指定MDI子窗体（MdiParent） MdiParent属性指定本窗体的父窗体，从而将本窗体设置为MDI子窗体。MdiParent属性不能在属性窗口中设置，只能在程序中动态设置。设置该属性的语法格式如下： 窗体名称.MdiParent = 父窗体名称 例如，指定当前窗体是Form2窗体的父窗体，Form2窗体为子窗体，方法示例如下： Dim NewDoc As New Form2() 创建Form2窗体的实例 NewDoc.MdiParent = Me 指定当前窗体为Form2的父窗体 3．判断MDI子窗体（IsMdiChild） IsMdiChild属性判断窗体是否为MDI子窗体，它是一个只读属性，不能设置它的值，只能在运行时读取该值。若为T