单元十 对话框设计 单元十 对话框设计自 定 义 对 话 框 1通 用 对 话 框 2文 件 系 统 控 件 310.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 [ 模式
] [模式]表示模式风格，是一个整数。2. 调用应用程序函数Shell (1) Shell函数的语法格式为：Shel
l(〈文件名〉,〈窗口风格〉) 说明： ①〈文件名〉，包括路径。它必须是可执行文件，其扩展名为.exe、.com、.b
at或.pif，其他文件不能用Shell函数调用，省略时扩展名默认为.exe。 ②〈窗口风格〉决定程序所在窗口的风格。其值及
其对应的风格：1、5、9：表示正常方式，有焦点2：表示最小化方式（缺省），有焦点3：表示最大化方式，有焦点4、8：表示正常方式，无
焦点6、7：表示最小化方式，无焦点 (4) 编写事件代码。Private Sub Command1_Click() If Opt
ion1.Value Then x = Shell(Text1.Text, 1) ElseIf Option2.Valu
e Then x = Shell(Text1.Text, 3) ElseIf Option3.Value Then x
= Shell(Text1.Text, 2) End IfEnd Sub10.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.Fil
eName Frame1.Caption = "从打开对话框返回" Case 1 CommonDialo
g1.ShowSave Text1.Text = CommonDialog1.FileName Fra
me1.Caption = "从另存为对话框返回" Case 2 CommonDialog1.ShowColor
Text1.Text = "从颜色对话框返回" Text1.ForeColor = CommonDia
log1.Color Frame1.Caption = "从颜色对话框返回"Case 3 CommonDial
og1.Flags = 3 Or 256 CommonDialog1.ShowFont With Te
xt1 .FontName = CommonDialog1.FontName .FontSize =
CommonDialog1.FontSize .FontStrikethru = CommonDialog1.Fon
tStrikethru .FontBold = CommonDialog1.FontBold .Fon
tItalic = CommonDialog1.FontItalic .FontUnderline = Common
Dialog1.FontUnderline .ForeColor = CommonDialog1.Color
End With Text1.Text = "从字体对话框返回" Frame1.Caption = "从字
体对话框返回" End SelectEnd Sub10.2.2 通用对话框的相关知识1. 设置通用对话框属性在属性窗口中设置。
在代码中设置。在“属性页”对话框中设置。 3. 通用对话框的方法ShowOpen：显示文件打开对话框。ShowSave：显示
文件存储对话框。ShowColor：显示颜色对话框。ShowFont：显示字体对话框。ShowPrinter：显示打印对话框。Sh
owHelp：显示Windows帮助对话框。2. Action功能属性0—None：无对话框显示。1—Open：打开文件对话框。2
—Save As：另存为对话框。3—Color：颜色对话框。4—Font：字体对话框。5—Printer：打印对话框。6—Help
：Windows帮助对话框。10.3 文件系统控件10.3.1 驱动器列表框 在窗体上添加DriveListBox（驱动器列
表框）控件，并将其默认驱动器设置为C:。 (1) 单击工具箱中的DriveListBox控件，在窗体上拖动添加一个Drive1。
(2) 双击窗体上的Drive1控件，进入代码窗口。Private Sub Drive1_Change() Drive1.D
rive = "c:\" End Sub10.3.2 目录列表框在窗体上添加一个驱动器列表框和一个目录列表框，实现驱动器列表
框与目录列表框的同步显示。 (1) 建立用户界面。 在窗体上添加一个驱动器列表框控件和一个目录列表框控件。 (2) 编写事件
代码。Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub1
0.3.3 文件列表框在窗体建立驱动器列表框、目录列表框和文件列表框控件，并使三者同步显示。 (1) 建立用户界面。 在窗体上，添加一个驱动器列表框、一个目录列表框和一个文件列表框。 (2) 编写事件代码。Private Sub Dir1_Change() File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd Sub结束 |
|
