的命令行。在标签Labell上显示“放弃操作”,并忽略产生错误的那一行命令与标号之间的 所有语句。 Private Sub Commandl Click() On Error GoTo ErrorHandler 错误捕获语句 CommonDialog1.CancelError=True '使选取“取消”按钮时能对出错做出响应 CommonDialog1.ShowColor Text1.ForeColor=CommonDialogl.Color'设置颜色 Exit Sub 无错误时正常退出本过程 以下为错误处理的语句 ErrorHandler: IfEr.Number=32755 Then Labell.Caption="放弃操作 End Sub 8.在使用CommonDialog控件控制字体选择时出现下图6-7所示错误 这是由于没有设置CommonDialog控件的Flags属性,或属性值不正确。通常设置该值 为&H103,表示屏幕字体、打印机字体两者皆有之,并在字体对话框中出现删除线、下划线、 颜色等元素。注意数字前的符号&H,表示十六进制。 字体 襟氨餐蓊蓄德打开“字体”文件夹以便安装宇体。 确定 图6-7字体提示框 9.窗体菜单名、顶层菜单与菜单项的区别 通常出现在菜单栏上的菜单对象叫做菜单名,菜单名以下拉列表形式包含的内容为菜单 项。菜单项可以包括菜单命令、分隔条和子菜单标题。当菜单名没有菜单项时称为“顶层菜 单”,可直接对应一个应用程序。菜单名、顶层菜单与菜单项都是在菜单编辑器中定义,它 们的区别在于: (1)菜单名、顶层菜单不能定义快捷键,而菜单项可以有快捷键。 (2)当菜单包含有热键字母(菜单标题中“&”后的字母)时,按At+热键字母可选 择窗体顶部菜单栏中的菜单项,当子菜单打开时,按热键字母选择子菜单中的菜单项。如果 子菜单没有打开时,按热键字母无法选择其中的菜单项。 (3)尽管所有的菜单项都能响应Cick事件,但是菜单栏中的菜单名通常不需要编写 事件过程。 10.动态菜单创建后不显示 创建动态菜单必须结合菜单项数组,样本菜单项的属性设置如下表所示: Name Caption Index Visible 必需的 可以没有 0 False 表中Index为0,表示样本菜单项是数组的第一个元素,其下标为0。样本菜单项的Name 属性是必需的,它作为数组的名称。Visible可以设为True,如果设为False表示初始时该菜 单项不可见。9:^#-² 85 ª7³F82ñÊËdY^9:-èè K78# -!+5 ; E>? # ,D(,/ CÊË®¯78 ,0(+ C5ð7ð84gÑʴѵì !" (*& 0 C_`PQ ,*!+5 CCÊË4i²¶Ñ³¢ CHOÊËÛÜ78 ,/ 2 ),'+50A..(" 85 $ 01³F1 , !+5 # #8 E"EFGHI*)JK $ LM./ ·'ä,ÇK_` $% & [\2a[\t/i«#²_`ct OF/ 2¡ÌÍRÕ<SyRÎÏÐKÃ2ñR?ÑÒÓÔÕÖÔÕ PQ¸×Ø#áRÄèF/2¡¹º]ë# %A R( % NOP@QRS ²Ñ»ª2¼´2H½ ¡1¥0¾O @#@GH9:ÕþT-ù#qÇK@4O7./ 82GÙÚìYZì r#Õ./@' ?¼23 ¿øÀ,L opÕ.//g¼ 2*@GHK # opqKÁ RÂo-ù?7F8¿RÂp42 GÁ RÂG5 6.1»?@2q<=42Á RÂ56?@#
{ ÇK<=42Á RÂC56>?@# opÃÄK@gµì E 4%2~'»?²/ X 4%¢ # & TUVWX4YM ï#AWX}Å@á2e³@[\_`
¡L ' $ ) * 5 W GHÇK & ¡? ) * O 2¡e³@'á YZ×Ø2>-O #e³@ ' [\'W23Oá#5 GH_O (+2
{_O & ¡4c @/GÅ#