新Visual Basic程序设计教程 项目式 教学课件 陈秀莉 王体英 项目四用户界面设计.pptVIP

任务9 使用通用对话框 如何利用用用对话框实现下图所示的运行界面，单击设置字体命令按钮可以设置字体、字形、大小。 任务实施步骤 （1）启动VB集成开发环境，在窗体上建立一个命令和一个通用对话框。 （2）设置控件的主要属性。 （3）编写程序代码，如下： Private Sub Command1_Click() CommonDialog1.Flags = 3 CommonDialog1.FontName = Command1.FontName CommonDialog1.ShowFont Command1.FontBold = CommonDialog1.FontBold Command1.FontItalic = CommonDialog1.FontItalic Command1.FontName = CommonDialog1.FontName Command1.FontSize = CommonDialog1.FontSize End Sub 相关知识点 通用对话框（CommonDialog） 控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作，通过运行 Windows 帮助引擎控件还能显示帮助。为了在应用程序中使用 CommonDialog 控件，应将其添加到窗体上并设置属性。控件显示的对话由控件的方法决定。运行时，调用相应方法后将显示对话框或执行帮助引擎；设计时在窗体上将 CommonDialog 控件显示成一个图标，此图标的大小不能改变。 添加通用对话框控件 在一般情况下，启动VB后，在工具箱中没有通用对话框控件。为了把通用对话框控件加到工具箱中，其操作步骤如下： （1）执行“工程”菜单中的“部件”命令，打开“部件”对话框。 （2）在对话框中，选择“控件”选项卡，然后在控件列表框中，选择“Microsoft Common Dialog Control 6.0”。 （3）单击“确定”按钮，通用对话框立即被加到工具箱中。 通用对话框的方法 对话框类型 Action属性值 方法 打开 1 ShowOpen 另存为 2 ShowSave 颜色 3 ShowColor 字体 4 ShowFont 打印 5 ShowPrinter 帮助 6 ShowHelp 各类对话框所需要的Action属性值和方法 随堂练习 同学们试着使用通用对话框设置字体颜色 任务10 使用控件数组 如何利用控件数组实现下图所示的运行界面，分别拖动3个滚动条可改变图片颜色。 任务实施步骤 （1）启动VB集成开发环境，在窗体上建立一个图片框、3个垂直滚动条构成控件数组分别用于调整红、绿、蓝三元色的值（0-255），3个文本框构成控件数组分别显示3个滚动条的值 （2）设置控件的主要属性。 （3）编写程序代码，如下： Private Sub VScroll1_Scroll(Index As Integer) Text1(Index).Text = VScroll1(Index).Value Picture1.BackColor = RGB(VScroll1(0).Value, VScroll1(1).Value, VScroll1(2).Value) End Sub 相关知识点 1．控件数组的概念 控件数组是由一组相同类型的控件组成。它们共用一个控件名，绝大部分的属性也相同，但有一个属性不同，即Index属性的值不同。当建立控件数组时，系统给每个元素赋一个唯一的索引号(Index)，通过属性窗口的Index属性，可以知道该控件的下标是多少，第1个元素下标是0。例如，控件数组Command(3)表示控件数组名为Command的第4个元素。控件数组共享同样的事件过程，所以适用于若干个控件执行相似的操作。一个控件数组至少包含一个元素，最多可达32768个。 2．创建控件数组 控件数组是通过设置对象的Index属性来创建的，识别控件数组中的每个元素就是通过Index属性，它相当于数组中的下标。 （1）窗体上画出某控件，可进行控件名的属性设置，这是建立的第一个元素。 （2）选中该控件，进行“复制”和“粘贴”操作，系统会提示（假设先画了一个‘Command1’命令按钮）： （3）“已经有一个控件为“Command1”。创建一个控件数组吗？” （4）单击Yes按钮后，就建立了一个控件数组元素，进行若干次“粘贴”操作，就建立了所需个数的控件数组元素。 任务11 ProgressBar控件和Slider控件 如何利用ProgressBar控件实现下图所示的用于显示下载进度的界面 任务实施步骤 （1）启动VB集成开发环境，在窗体上建立一个进度条、一个标签和一个计时器。 （2）设置控件的主要属