Visual Basic第9章 界面设计.pptVIP

⑸ Min、Max属性：设置对话框“大小”列表框中的最小值和最大值，该属性以点（Point）为单位。 ⑹ Flags属性：在显示字体对话框之前必须设置Flags，否则将发生不存在字体错误。Flags属性设置值如下 “字体”对话框（续） */132 完善例9-8程序，程序运行时，单击“字体”按钮，弹出 “字体”对话框，用户可以选择字体、字形、大小、颜色、下划线和删除线等一个或多个选项，单击“确定”按钮后，窗体中文本框的字体就变为用户所选字体。 图9-18 “字体”对话框 “字体”对话框（续） 【例9-9】字体对话框的应用。 */132 “字体”按钮的事件过程如下： Private Sub CmdFont_Click() CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth 设置对话框初始字体为宋体 CommonDialog1.FontName = 宋体 CommonDialog1.ShowFont 打开字体对话框 Text1.FontName = CommonDialog1.FontName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontUnderline = CommonDialog1.FontUnderline Text1.FontStrikethru =CommonDialog1.FontStrikethru Text1.ForeColor = CommonDialog1.Color End Sub */132 9.3 菜单设计 下拉菜单：常以菜单栏的形式出现在标题栏下面 弹出菜单(快捷菜单)：独立于菜单栏而显示在窗体上的浮动菜单，其菜单项取决于按下鼠标右键时指针所处的位置。 菜单的类型： */132 2. 显示与关闭自定义对话框 ⑴ 显示自定义对话框 例如： frmInput.Show 将frmInput窗体显示为非模式对话框 frmInput.Show 1 将frmInput窗体显示为模式对话框 自定义对话框（续） */132 ⑵ 卸载或隐藏自定义对话框 可以使用窗体的Unload语句卸载对话框或使用Hide方法隐藏对话框 例如： Unload frmInput 将frmInput对话框从内存中删除 frmInput.Hide 将frmInput对话框隐藏，对话框仍在内存中 自定义对话框（续） */132 9.2.2 通用对话框 VB提供了一组基于Windows的标准对话框界面，用户可以充分利用通用对话框在窗体上创建6种标准对话框，分别为： 打开 （Open） 另存为（Save As） 颜色 （Color） 字体 （Font） 打印 （Print） 帮助 （Help） 通用对话框不是标准控件，它属于VB的ActiveX控件，使用前需要添加到工具箱中。 */132 通用对话框控件添加到工具箱的方法： 工程→部件→控件标签→Microsoft CommDialog Control 6.0 通用对话框图标 通用对话框（续） */132 程序运行时，通用对话框图标是看不到的。 在程序中，通过设置Action属性值或调用通用对话框的Show方法可以建立不同类型的对话框。 在设计状态，窗体上显示通用对话框图标 只要把通用对话框加到工具箱中，就可以像使用标准控件一样把它添加到窗体中。 通用对话框（续） */132 表9.9 显示通用对话框的方法与Action属性设置 类型 Action属性 方法 无对话框 0 — “打开”对话框 1 ShowOpen “另存为”对话框 2 ShowSave “颜色”对话框 3 ShowColor “字体”对话框 4 ShowFont “打印”对话框 5 ShowPrinter “帮助”对话框 6 ShowHelp 通用对话框（续） */132 例如：在屏幕上显示“打开”对话框。 commondialog1.Action=1 或：co