看大家的学习热情这么高,我就将菜单制作在更新一次,添加如下内容: 1、添加二级下拉菜单 2、二级下拉菜单内添加系统程序“保存”和自定义程序 3、添加图标和间隔线美化程序 相信有了上面的讲解大家应该对菜单的制作有了初步的认识,下面我们就来加强和美化菜单。在计划菜单程序的下面添加如下代码: Set mymenuitem = mymenu.Controls.Add(Type:=msoControlPopup) '定义子菜单 mymenuitem.Caption = "文件(&F)" '确定菜单名称 With mymenuitem Set BER = .Controls.Add(Type:=msoControlButton) '定义二级子菜单 With BER .Caption = "保存" '确定二级子菜单名称 .BeginGroup = True '填加间隔线 .OnAction = "保存" '确定运行程序 .FaceId = 3 '确定图标 End With Set BER = .Controls.Add(Type:=msoControlButton) With BER .Caption = "工票查询"'确定二级子菜单名称 .BeginGroup = True'填加间隔线 .OnAction = "ShowMe'确定运行程序" .FaceId = 65'确定图标 End With Set mybar = Nothing'释放内存 Set mymenu = Nothing Set mymenuitem = Nothing Set BER = Nothing End With 更新文件
s2zKRzQv.rar
(9.56 KB, 下载次数: 737)
如果大家喜欢我将继续添加内容! |