第10章 对话框设计电子课件 中职 高教版 Visual Basic程序设计（第4版）

第10章 对话框设计电子课件 中职 高教版 Visual Basic程序设计（第4版） 单元十 对话框设计 单元十 对话框设计 自 定 义 对 话 框 1 通 用 对 话 框 2 文 件 系 统 控 件 3 10.1 自定义对话框 对话框也是窗体的一种，可以使用添加窗体的方法创建对话框，对话框的外观和功能都由用户自己来设定，这就是自定义对话框。 建立自定义对话框的方法为： (1) 设计对话框界面。设计对话框窗体，向窗体中添加相应的控件，调整控件布局，设置窗体和控件的属性。 (2) 利用窗体的Show方法，将窗体以模式对话框或无模式对话框的方式显示出来。 10.1.1 创建自定义对话框的步骤 (1) 单击“工程”菜单→“添加窗体”命令，在弹出的“添加窗体”对话框中选择“对话框”或“窗体”，单击“打开”按钮新建一个窗体对象。 (2) 按需要向窗体中添加所需的控件。对于有输入要求的对话框，至少应放置一个文本框用于数据输入。 一般对话框应包含一个退出该对话框的命令按钮。 (3) 设置窗体或控件对象的属性。对话框与一般的窗体在外观上不太一样，一般地，对话框没有控制菜单按钮和最大化、最小化按钮，不能改变它的大小。因此，应修改对话框的属性。 (4) 编写事件代码，组织各对象之间的关系。 10.1.2 自定义对话框的程序设计 建立自定义对话框，使其能通过输入文件名（含路径）执行指定的程序，并能控制运行后对话框的风格。 (1) 单击“文件”菜单→“新建工程”命令，建立一个新工程文件，新建一个窗体对象。 (2) 在窗体上加载控件。在窗体上添加一个Frame1控件，选中该Frame1控件添加一个Text1控件；在窗体上添加3个单选钮Option1～Option3，1个命令按钮Command1。 (3) 设置对象属性。 单击窗体，设置自定义对话框（即窗体）的边界风格。 10.1.3 自定义对话框的相关知识 1. 用Show方法显示对话框 对自定义对话框可以使用Show方法显示出来。Show方法的语法格式为： [ 窗体名. ] Show [ 模式 ] [模式]表示模式风格，是一个整数。 值 常量 说明 1 VbModal 模式 0 VbModeless 无模式（若Style参数缺省时，表示无模式） 2. 调用应用程序函数Shell (1) Shell函数的语法格式为： Shell(〈文件名〉,〈窗口风格〉) 说明： ①〈文件名〉，包括路径。它必须是可执行文件，其扩展名为.exe、.com、.bat或.pif，其他文件不能用Shell函数调用，省略时扩展名默认为.exe。 ②〈窗口风格〉决定程序所在窗口的风格。其值及其对应的风格： 1、5、9：表示正常方式，有焦点 2：表示最小化方式（缺省），有焦点 3：表示最大化方式，有焦点 4、8：表示正常方式，无焦点 6、7：表示最小化方式，无焦点 (4) 编写事件代码。 Private Sub Command1_Click() If Option1.Value Then x = Shell(Text1.Text, 1) ElseIf Option2.Value Then x = Shell(Text1.Text, 3) ElseIf Option3.Value Then x = Shell(Text1.Text, 2) End If End Sub 返回目录 10.2 通用对话框 10.2.1 通用对话框的程序设计 单击窗体上的相应按钮，将分别弹出相应的通用对话框。 (1) 建立应用程序用户界面。 ① 选择“新建”工程，进入窗体设计器。 ② 首先增加一个Commondialog1控件。 ③ 在窗体上添加一个Frame1（框架）控件和一个命令按钮控件数组Command1(0)～Command1(3)。然后，选定框架Frame1，在其中增加一个文本框Text1。 (2) 设置对象属性。 (3) 编写事件代码。 Private Sub Command1_Click(Index As Integer) n = Index Select Case n Case 0 CommonDialog1.Filter = "所有文件(*.*)|*.*|文本文件(*.TXT)|*.txt" CommonDialog1.FilterIndex = 1 CommonDialog1.ShowOpen Text1.Text = CommonDialog1.F