会计学“通用对话框”是一种ActiveX控件，它随同VB提供(tígōng)给程序设计人员。启动VB后，在工具箱中没有对话框控件，需要把它加到工具箱中。控件添加步骤：(1)打开“工程”菜单，选择“部件”命令。(2)打开“控件”选项卡，并选中“MicrosoftCommonDialogControl6.0”复选框。(3)单击“确定”按钮，控件出现在工具箱中。ActiveX控件：CommonDialog控件与“打开/另存为”对话框有关(yǒuguān)的属性：(2)FileName属性设置(shèzhì)或返回要打开或保存的文件的路径及文件名。例如：H:\exefile\db.exe(4)Filter属性指定(zhǐdìng)在对话框中显示的文件类型。可以设置多个文件类型，供用户在对话框的“文件类型”的下拉列表中选择。格式如下：对话框名.Filter=描述符1|过滤器1|描述符2|过滤器2…(5)FilterIndex属性指定默认的过滤器，其设置值为一个整数。Filter属性设置多个(duōɡè)过滤器后，每个都有一个索引值。第一个过滤器的索引值为1，第二个过滤器的索引值为2…(6)CancelError属性①当CancelError为True时，用户(yònghù)单击“取消”按钮，将产生一个错误，错误号为32755（cdlCancel）以便程序判断。②当CancelError为False时，单击“取消”按钮，将不产生错误信息。Shell函数成功执行后，返回一个任务标识（taskid）且必须赋给一个变量x=shell（”c:\vb98\myvb1.exe”,3）不可以省略“x=”Shell函数采用异步方式执行其他程序，即shell启动的程序可能还没有(méiyǒu)执行完，就已执行了Shell函数后面的语句例如:PrivateSubcommand1_click()m%=InputBox("shuru1~3")SelectCasemCase1:x=Shell("H:\exefile\db.exe",1)Case2:x=Shell("H:\exefile\jxzd.exe",1)Case3:x=Shell("H:\exefile\pz.exe",1)EndSelectEndSub例10.1显示(xiǎnshì)“打开”对话框并运行选定的可执行文件。p257PrivateSubCommand1_Click()DimRetValCommonDialog1.CancelError=TrueOnErrorGoToEr'错误捕捉，参见第13章p326‘以下设置过滤器CommonDialog1.Filter="AllFiles(*.*)|*.*|EXE文件(*.EXE)|*.EXE|BAT文件(*.BAT)|*.BAT"CommonDialog1.FilterIndex=2‘指定缺省过滤器CommonDialog1.ShowOpen‘显示打开对话框‘以下调用(diàoyòng)Shell函数打开指定的文件RetVal=Shell(CommonDialog1.FileName,vbNormalFocus)Er:ExitSubEndSub“颜色对话框”可以(kěyǐ)用来在调色板中选择颜色，或者创建并选定自定义颜色。CommonDialog1.Action=3或CommonDialog1.ShowColor10.1.2颜色(yánsè)对话框例10.2显示“颜色”对话框，并把用户(yònghù)选择的颜色设置成窗体的背景色。10.1.3字体(zìtǐ)对话框通用(tōngyòng)对话框的属性设置：(1)Color属性：设定字体颜色的初始值。为了使用此属性，必须先将Flags属性设置为cdlCFEffects/256(允许中划线、下划线和颜色）。(2)FontName属性：字体的名称(3)FontBold属性：粗体(4)FontItalic属性：斜体(5)FontStrickethru属性：删除线(6)FontUnderline属性：下划线(7)FontSize属性：字体大小为了显示“字体(zìtǐ)”对话框，Flags属性设置为下述VB常数之一：①cdlCFScreenFonts（屏幕支持的字体(zìtǐ)）②cdlCFPrinterFonts（打印机支持的字体(zìtǐ)）③cdlCFBoth（即可以是屏幕字体(zìtǐ)又可以是打印机字体(zìtǐ)）例10.3初始化并显示“字体(zìtǐ)”对话框，然后根据用户的选择设置文本框的字体(zìtǐ)属性。PrivateSubCommand1_Click()CommonDialog1.Cancel