（6）为各个菜单添加Click事件过程。
5
设计界面
6
程序代码
Private Sub MnuFileExit_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MnuFileExit.Click
Me.CColorDilaog控件 （3）合理命名这些控件的Name属性。 （4）设计主菜单的顶层菜单为文件、样式及输入3项。
文件菜单下有3项，分别为打开、保存和退出。 样式菜单下有2项为字体和颜色。 输入菜单下没有子项。
（5）再放置一个TextBox控件到窗体上，并将MultiLine属 性设为True。命名各菜单项和TextBox控件的Name属性
End Sub
9
Private Sub MnuStyleFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuStyleFont.Click
FontDialog.ShowDialog() TxtShow.Font = FontDialog.Font
End Sub
11
Private Sub MnuInput_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles MnuInput.Click
Dim strName As String Dim strClass As String strName = InputBox("请输入姓名") strClass = InputBox("请输入班级", , , 70, 90) TxtShow.Clear() TxtShow.Text = "姓名：" + strName + vbCrLf TxtShow.Text += "班级：" + strClass + vbCrLf
End Sub
12
11.2对话框
（1）对话框
一种特殊的窗体 让用户对程序作出一定的配置或某种选择，如打印对
话框。 用来显示一些信息，如关于对话框，用来描述应用程
序的名称和版权信息。
13
（2）对话框分类 模态对话框
在该对话框关闭之前，用户不能对程序的其他部分进 行操作。
非模态对话框
在该对话框关闭之前，用户可以对程序的其他部分进 行操作。
14
（3）窗体的常用方法 Show
用来显示一个已经装入内存的窗体。 例如，Form2.Show() 显示窗体Form2
第11章 FORM窗体和对话框
1
教学内容
理解窗体的概念 掌握通用对话框的使用 熟悉MDI程序的编写
2
11.1 引例
例11-1 创建多个标准的对话框。 分析 标准对话框控件在工具箱中可以找到。
3
要求
（1）单击输入菜单显示一个InputBox对话框，提 示用户输入姓名和班级。输入的姓名和班级将被 显示在TextBox控件中。
（2）单击样式菜单下的字体和颜色菜单将分别弹 出字体和颜色选择对话框，可以设置TextBox中 的字体和颜色。
（3）单击文件菜单下的打开和保存菜单项将弹出 打开文件和保存文件的对话框，选择了文件后将 给出一个消息框显示选择的文件名及路径。没有 编写打开和保存文件的实际代码。
4
步骤
（1）新建项目DialogExample （2）分别添加MainMenu、OpenFileDialog、SaveFileDialog、
MessageBox.Show(strFileName, "Open File", _ MessageBoxButtons.OK, rmation Else MessageBox.Show("没有选择任何文件!", "Errors", _ MessageBoxButtons.OK, MessageBoxIcon.Error) End If
7
Private Sub MnuFileOpen_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MnuFileOpen.Click
OpenFileDialog.ShowDialog() Dim strFileName As String strFileName = OpenFileDialog.FileName If strFileName > "" Then
End Sub
10
Private Sub MnuStyleColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuStyleColor.Click
ColorDialog.ShowDialog() TxtShow.ForeColor = ColorDialog.Color
MessageBox.Show(strFileName, "Save File", _ MessageBoxButtons.OK, rmation)
Else MessageBox.Show("没有选择任何文件!", "Errors", _
MessageBoxButtons.OK, MessageBoxIcon.Error) End If
End Sub
8
Private Sub MnuFileSave_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MnuFileSave.Click
SaveFileDialog.ShowDialog() Dim strFileName As String strFileName = SaveFileDialog.FileName If strFileName > "" Then