乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 35|回复: 2

[VBA求助]请高手帮忙响应我的工具条

[复制链接]

3

主题

3

帖子

1

银币

初来乍到

Rank: 1

铜币
15
发表于 2007-4-18 21:26:00 | 显示全部楼层 |阅读模式
各位高手:
我有一段创建条的程序,也有段VBA运行对话框的程序,我想把弹出对话框的功能在工具条里实现请高手指点,不甚感激!!!!
Sub InsertMenuItem()
'定义变量
  Dim CurrMenuGroup As AcadMenuGroup
  Dim MenuItem As AcadPopupMenuItem
  Dim MacroStr As String
  Dim NewMenu As AcadPopupMenu
'设置下拉菜单群组
Set CurrMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
     
     '创建新F拉菜单列
Set NewMenu = CurrMenuGroup.Menus.Add("我的菜单项")
'指定宏字符串"E5C Esc-DPEN"的vB对应值
MacroStr = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32)
Set MenuItem = NewMenu.AddMenuItem(NewMenu.Count + 1, "打开", MacroStr)
CurrMenuGroup.Menus.InsertMenuInMenuBar "打开", 0
End Sub
Sub NewMenuItem()
'定义变量
  Dim NewMenuGroup As AcadMenuGroup
  Dim NewMenu As AcadPopupMenu
  Dim NewMenuItem As AcadPopupMenuItem
  Dim MacroStr As String
Set CurrMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
Set NewMenu = CurrMenuGroup.Menus.Add("我的菜单项")
MacroStr = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(3)
Set MenuItem = NewMenu.AddMenuItem(NewMenu.Count + 1, "打开", MacroStr)
NewMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)
End Sub
如何和下面代码集成起来

回复

使用道具 举报

0

主题

2

帖子

1

银币

初来乍到

Rank: 1

铜币
2
发表于 2007-4-19 16:39:00 | 显示全部楼层

请问谁下载了这个帖子以前上传的一个文件,请告之我,哪个上有个问题要调试,请留下你的QQ我将把完善的发给你
我的QQ是332587251
回复

使用道具 举报

0

主题

2

帖子

1

银币

初来乍到

Rank: 1

铜币
2
发表于 2007-4-19 18:21:00 | 显示全部楼层
我刚才的QQ留错了是332387251请大家注意
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-7 14:01 , Processed in 1.394345 second(s), 59 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表