jacky789 发表于 2006-8-29 20:42:00

叫出userform1

如何在Thisdrawing中使用"addmenu"呼叫userform表单show？？

雪山飞狐_lzh 发表于 2006-8-30 10:26:00

?不懂说明白点

jacky789 发表于 2006-8-30 23:08:00

<P>也就是说使用vbide-&gt;（插入）--&gt;自订表单&lt;＝＝</P>
<P>在vba中有模组也有表单还有一个thisdrawing.....</P>
<P>在Thisdrawing中使用：下式可呼叫模组中的程序</P>
<P>Set mel = newMenu.AddMenuItem(newMenu.Count + 1, "do(&amp;O)" &nbsp;&amp; "-vbarun" + Chr(32) + "getit.cc" + Chr(32))</P>

<P>而要如何才能在Thisdrawing中使用上式或创建菜单指令呼叫自订表单(form)出来？？</P>

中世纪骑士 发表于 2006-9-8 15:13:00

<P>你的意思是：创建自定义菜单，然后通过点击菜单弹出form窗体是么？要是这样，你可以写下面的代码</P>
<P>dim macro as string</P>
<P>macro="-vbarun show"</P>
<P>Dim menuItem**** As AcadPopupMenuItem<BR>&nbsp;&nbsp;&nbsp;&nbsp; Set menuItem**** = newMenu.AddMenuItem(newMenu.Count + 1, "****", Macro)</P>
<P>这里的****表示你的菜单项的名称，比如打开就可以写menuItemopen</P>
<P>然后再写一个宏</P>
<P>sub show</P>
<P>userform1.show</P>
<P>end sub</P>
<P>最后建议你多看看以前的帖子，也可以找到答案</P>
页: [1]
查看完整版本: 叫出userform1