第10章对话框和菜单 45p.pptVIP

第10章 对话框和菜单 10.1 通用对话框控件 10.2 菜单设计 ActiveX控件： 根据微软权威的软件开发指南MSDN（Microsoft Developer Network）的定义，ActiveX插件以前也叫做OLE（对象连接与嵌入）控件OCX控件，它是一些软件组件或对象，可以将其插入到WEB网页或其它应用程序中。 ActiveX控件是可重用的软件组件。使用它可以很快地在网址、应用程序以及开发工具中加入特殊的功能。ActiveX控件的使用者可以无需知道这些组件是如何开发的，便可以完成网页或应用程序的设计。 一、打开/另存为对话框 (6) CancelError属性 ①当CancelError为True时，用户单击“取消”按钮，将产生一个错误，错误号为32755（cdlCancel）以便程序判断。 ②当CancelError为False时，单击“取消”按钮，将不产生错误信息。 例10.1 显示“打开”对话框并运行选定的可执行文件。p257 Private Sub Command1_Click() Dim RetVal CommonDialog1.CancelError = True On Error GoTo Er 错误捕捉，参见第13章p326 ‘以下设置过滤器 CommonDialog1.Filter = All Files(*.*) |*.*|EXE文件(*.EXE) |*.EXE|BAT文件(*.BAT)|*.BAT CommonDialog1.FilterIndex = 2 ‘指定缺省过滤器 CommonDialog1.ShowOpen ‘显示打开对话框 ‘以下调用Shell函数打开指定的文件 RetVal = Shell(CommonDialog1.FileName, vbNormalFocus) Er: Exit Sub End Sub 10.1.2 颜色对话框 10.1.2 颜色对话框 “颜色对话框”控件的重要属性： DialogTitle， CancelError，Color，Flags。 Color: 用来设置初始颜色。 Flags: 用来设置对话框的选项，其中，属性值为cdlCCRGBInit或1时，使得Color属性定义的颜色在首次显示对话框时作为选定颜色。 例如： Private Sub Form_Load() CommonDialog1.ShowColor CommonDialog1.Color = H000000FF 红色 CommonDialog1.Flags = 1 End Sub 例10.2 显示“颜色”对话框，并把用户选择的颜色设置成窗体的背景色。 Private Sub Command1_Click() CommonDialog1.CancelError = True On Error GoTo ErrHandler CommonDialog1.Color = HFF0000 兰色 CommonDialog1.Flags = 1 设置Flags属性 CommonDialog1.ShowColor Color属性值作为窗体背景颜色 Form1.BackColor = CommonDialog1.Color ErrHandler: Exit Sub End Sub 10.1.3 字体对话框 “字体”对话框用来设定字体大小、样式、颜色。 CommonDialog1.Action = 4 或 CommonDialog1. ShowFont Private Sub Command1_Click( ) CommonDialog1.CancelError = True On Error GoTo ErrHandler 设置Flags属性 CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects 设置“字体”对话框的初始值 CommonDialog1.FontName = 隶书 CommonDialog1.FontSize = 50 CommonDialog1.FontBold = True CommonDialog1.FontItalic = True CommonDialog1.FontUnderline = True CommonDialog1.FontStrikethru = True CommonDialog1.