乐筑天下

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

难道此论坛没人能解决此问题吗 ~~~~~~~!!!!!!!!!!!!!!!!!

[复制链接]

5

主题

19

帖子

1

银币

初来乍到

Rank: 1

铜币
39
发表于 2004-9-18 22:01:00 | 显示全部楼层 |阅读模式
难道此论坛没人能解决此问题吗 ~~~~~~~!!!!!!!!!!!!!!!!!!1~~~~~~[br]我想在中加个栏或者菜单,要求点击工具栏某个按钮(或者菜单项)后能弹出一个对话框,用来输入一些参数。请各位高手们指点,用vb做 可以实现改功能吗? 本人看到的一个例子是这样写的:
         Private Sub 添加菜单_Click()
Dim currmenugroup As AcadMenuGroup
        Set currmenugroup = acadapp.MenuGroups.Item(0)
       
        Dim newmenu As AcadPopupMenu
        Set newmenu = currmenugroup.Menus.Add("testmenu")
       
       
       
        Dim newmenuitem As AcadPopupMenuItem
        Dim openmacro As String
       
        openmacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)
       
        Set newmenuitem = newmenu.AddMenuItem(newmenu.Count + 1, "open", openmacro)
        newmenu.InsertInMenuBar (acadapp.MenuBar.Count + 1)
       
End Sub
但不知道 ,openmacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)这一行能否vb开发的插价来代替,如果可以代替的话,就可以实现弹出对话框来输入参数。
小弟 先谢了,各位大虾们帮帮小弟吧
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-9-18 22:48:00 | 显示全部楼层

可以解释一下插件是什么意思么?ActiveX Dll?Activex Control? 如果你仅仅要求弹出对话框,要这东东干什么?
你问的问题几天前都有回复,自己先搜索一下吧
(乖乖,怎么想扣分编程加分了,晕了)
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2004-9-19 08:32:00 | 显示全部楼层
如果你的过程写在模块中,而且过程前带Public,则可以把运行宏写成:复制代码
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-16 03:11 , Processed in 0.402232 second(s), 58 queries .

© 2020-2025 乐筑天下

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