(精品)第10章对话框设计.ppt
第第第第1010章章章章 对话框设计对话框设计对话框设计对话框设计第第10章章 对话框设计对话框设计自自 定定 义义 对对 话话 框框 1 1 1 1通通 用用 对对 话话 框框 2 2 2 2文文 件件 系系 统统 控控 件件 3 3 3 310.1 自定义对话框 对话框也是窗体的一种，可以使用添加窗体对话框也是窗体的一种，可以使用添加窗体的方法创建对话框，对话框的外观和功能都由用的方法创建对话框，对话框的外观和功能都由用户自己来设定，这就是自定义对话框。户自己来设定，这就是自定义对话框。建立自定义对话框的方法为：建立自定义对话框的方法为：(1)设计对话框界面。设计对话框窗体，向设计对话框界面。设计对话框窗体，向窗体中添加相应的控件，调整控件布局，设置窗窗体中添加相应的控件，调整控件布局，设置窗体和控件的属性。体和控件的属性。(2)利用窗体的利用窗体的Show方法，将窗体以模式对方法，将窗体以模式对话框或无模式对话框的方式显示出来。话框或无模式对话框的方式显示出来。10.1.1 创建自定义对话框的步骤(1)单击单击“工程工程”菜单菜单“添加窗体添加窗体”命令，在弹出的命令，在弹出的“添加窗体添加窗体”对话框中选择对话框中选择“对话框对话框”或或“窗体窗体”，单击，单击“打开打开”按钮新建一个窗体对象。按钮新建一个窗体对象。(2)按需要向窗体中添加所需的控件。对于有输入要求按需要向窗体中添加所需的控件。对于有输入要求的对话框，至少应放置一个文本框用于数据输入。的对话框，至少应放置一个文本框用于数据输入。一一般对话框应包含一个退出该对话框的命令按钮。般对话框应包含一个退出该对话框的命令按钮。(3)设置窗体或控件对象的属性。对话框与一般的窗体设置窗体或控件对象的属性。对话框与一般的窗体在外观上不太一样，一般地，对话框没有控制菜单按钮在外观上不太一样，一般地，对话框没有控制菜单按钮和最大化、最小化按钮，不能改变它的大小。因此，应和最大化、最小化按钮，不能改变它的大小。因此，应修改对话框的属性。修改对话框的属性。(4)编写事件代码，组织各对象之间的关系。编写事件代码，组织各对象之间的关系。10.1.2 自定义对话框的程序设计建立自定义对话框，使其能通过输入文件名（含建立自定义对话框，使其能通过输入文件名（含路径）执行指定的程序，并能控制运行后对话框路径）执行指定的程序，并能控制运行后对话框的风格。的风格。(1)单击单击“文件文件”菜单菜单“新建工程新建工程”命令，建立一命令，建立一个新工程文件，新建一个窗体对象。个新工程文件，新建一个窗体对象。(2)在窗体上加载控件。在窗体上添加一个在窗体上加载控件。在窗体上添加一个Frame1控件，选中该控件，选中该Frame1控件添加一个控件添加一个Text1控件；在窗体上添加控件；在窗体上添加3个单选钮个单选钮Option1Option3，1个命令按钮个命令按钮Command1。(3)设置对象属性。设置对象属性。单击窗体，设置自定义对话框（即窗体）的单击窗体，设置自定义对话框（即窗体）的边界风格。边界风格。10.1.3 自定义对话框的相关知识1.用Show方法显示对话框 对自定义对话框可以使用对自定义对话框可以使用Show方法显示出来。方法显示出来。Show方法的语法格式为：方法的语法格式为：窗体名窗体名.Show 模式模式 模式模式表示模式风格，是一个整数。表示模式风格，是一个整数。值常量说明1VbModal模式0VbModeless无模式（若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 IfEnd 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.FileName Frame1.Caption=从打开对话框返回从打开对话框返回 Case 1 CommonDialog1.ShowSave Text1.Text=CommonDialog1.FileName Frame1.Caption=从另存为对话框返回从另存为对话框返回 Case 2 CommonDialog1.ShowColor Text1.Text=从颜色对话框返回从颜色对话框返回 Text1.ForeColor=CommonDialog1.Color Frame1.Caption=从颜色对话框返回从颜色对话框返回Case 3 CommonDialog1.Flags=3 Or 256 CommonDialog1.ShowFont With Text1 .FontName=CommonDialog1.FontName .FontSize=CommonDialog1.FontSize .FontStrikethru=CommonDialog1.FontStrikethru .FontBold=CommonDialog1.FontBold .FontItalic=CommonDialog1.FontItalic .FontUnderline=CommonDialog1.FontUnderline .ForeColor=CommonDialog1.Color End With Text1.Text=从字体对话框返回从字体对话框返回 Frame1.Caption=从字体对话框返回从字体对话框返回 End SelectEnd Sub10.2.2 通用对话框的相关知识1.设置通用对话框属性在属性窗口中设置。在代码中设置。在“属性页”对话框中设置。3.通用对话框的方法ShowOpen：显示文件打开对话框。：显示文件打开对话框。ShowSave：显示文件存储对话框。：显示文件存储对话框。ShowColor：显示颜色对话框。：显示颜色对话框。ShowFont：显示字体对话框。：显示字体对话框。ShowPrinter：显示打印对话框。：显示打印对话框。ShowHelp：显示：显示Windows帮助对话框。帮助对话框。2.Action功能属性0None：无对话框显示。：无对话框显示。1Open：打开文件对话框。：打开文件对话框。2Save As：另存为对话框。：另存为对话框。3Color：颜色对话框。：颜色对话框。4Font：字体对话框。：字体对话框。5Printer：打印对话框。：打印对话框。6Help：Windows帮助对话框。帮助对话框。返回目录10.3 文件系统控件10.3.1 驱动器列表框 在窗体上添加在窗体上添加DriveListBox（驱动器列表框）（驱动器列表框）控件，并将其默认驱动器设置为控件，并将其默认驱动器设置为C:。(1)单击工具箱中的单击工具箱中的DriveListBox控件，在窗体上拖动添加一个控件，在窗体上拖动添加一个Drive1。(2)双击窗体上的双击窗体上的Drive1控件，进入代码窗口。控件，进入代码窗口。Private Sub Drive1_Change()Drive1.Drive=c:End Sub10.3.2 目录列表框在窗体上添加一个驱动器列表框和一个目录列表在窗体上添加一个驱动器列表框和一个目录列表框，实现驱动器列表框与目录列表框的同步显示。框，实现驱动器列表框与目录列表框的同步显示。(1)建立用户界面。建立用户界面。在窗体上添加一个驱动器列表框控件和一个在窗体上添加一个驱动器列表框控件和一个目录列表框控件。目录列表框控件。(2)编写事件代码。编写事件代码。Private Sub Drive1_Change()Dir1.Path=Drive1.Drive End Sub10.3.3 文件列表框在窗体建立驱动器列表框、目录列表框和文件列在窗体建立驱动器列表框、目录列表框和文件列表框控件，并使三者同步显示。表框控件，并使三者同步显示。(1)建立用户界面。建立用户界面。在窗体上，添加一个驱动器列表框、一个目在窗体上，添加一个驱动器列表框、一个目录列表框和一个文件列表框。录列表框和一个文件列表框。(2)编写事件代码。编写事件代码。Private Sub Dir1_Change()File1.Path=Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path=Drive1.DriveEnd Sub返回目录本章结束本章结束返回目录
