FORM窗体和对话框.pptVIP

第11章 FORM窗体和对话框 教学内容 理解窗体的概念 掌握通用对话框的使用 熟悉MDI程序的编写 11.1 引例 例11-1 创建多个标准的对话框。 分析 标准对话框控件在工具箱中可以找到。 要求 （1）单击输入菜单显示一个InputBox对话框，提示用户输入姓名和班级。输入的姓名和班级将被显示在TextBox控件中。 （2）单击样式菜单下的字体和颜色菜单将分别弹出字体和颜色选择对话框，可以设置TextBox中的字体和颜色。 （3）单击文件菜单下的打开和保存菜单项将弹出打开文件和保存文件的对话框，选择了文件后将给出一个消息框显示选择的文件名及路径。没有编写打开和保存文件的实际代码。 步骤 （1）新建项目DialogExample （2）分别添加MainMenu、OpenFileDialog、SaveFileDialog、FontDialog以及ColorDilaog控件 （3）合理命名这些控件的Name属性。 （4）设计主菜单的顶层菜单为文件、样式及输入3项。 文件菜单下有3项，分别为打开、保存和退出。 样式菜单下有2项为字体和颜色。 输入菜单下没有子项。 （5）再放置一个TextBox控件到窗体上，并将MultiLine属性设为True。命名各菜单项和TextBox控件的Name属性 （6）为各个菜单添加Click事件过程。 设计界面 程序代码 Private Sub MnuFileExit_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MnuFileExit.Click Me.Close() End Sub 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 MessageBox.Show(strFileName, Open File, _ MessageBoxButtons.OK, MessageBoxIcon.Information Else MessageBox.Show(没有选择任何文件!, Errors, _ MessageBoxButtons.OK, MessageBoxIcon.Error) End If End Sub 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 MessageBox.Show(strFileName, Save File, _ MessageBoxButtons.OK, MessageBoxIcon.Information) Else MessageBox.Show(没有选择任何文件!, Errors, _ MessageBoxButtons.OK, MessageBoxIcon.Error) End If End Sub 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 Private Sub MnuStyleCol