tkodwang 发表于 2007-6-19 12:17:00

[求助]关于2006中开发人员手册中的一个例子

<pre class="prog_in">2006中开发人员手册中有一个增加工具条和按钮例子，我在下面加了一句保存（红色部分）</pre><pre class="prog_in">Sub Ch6_AddButton()</pre><pre class="prog_in">    Dim currMenuGroup As AcadMenuGroup</pre><pre class="prog_in">    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)</pre><pre class="prog_in"></pre><pre class="prog_in">    ' 创建新工具栏</pre><pre class="prog_in">    Dim newToolbar As AcadToolbar</pre><pre class="prog_in">    Set newToolbar = currMenuGroup.Toolbars.Add("TestToolbar")</pre><pre class="prog_in"></pre><pre class="prog_in">    ' 向新工具栏添加按钮</pre><pre class="prog_in">    Dim newButton As AcadToolbarItem</pre><pre class="prog_in">    Dim openMacro As String</pre><pre class="prog_in"></pre><pre class="prog_in">    ' 给宏指定“ESC ESC _open”的 VB 等价值</pre><pre class="prog_in">    openMacro = Chr(3) + Chr(3) + "_open "</pre><pre class="prog_in">    Set newButton = newToolbar.AddToolbarButton _</pre><pre class="prog_in">                   ("", "NewButton", "Open a file.", openMacro)</pre><pre class="prog_in">
                <font color="#ff0000">currMenuGroup.Save acMenuFileCompiled</font></pre><pre class="prog_in_end">End Sub</pre><pre class="prog_in_end">此代码在2004中运行后，即使关闭cad再次打开，新增的工具栏也存在</pre><pre class="prog_in_end">但是2006却不行，关了在开就没了，请达人指教，谢谢啦</pre>

烟雨.江南 发表于 2007-6-19 14:18:00

<p class="element-desc"><b>在CAD2006VBA的帮助文档Save Method中有这么一句：</b></p><p class="element-desc"><b>Note</b> This method has no effect for menu groups.</p><p class="element-desc">意思是说，Save方法对菜单组已经不再可用。</p>

烟雨.江南 发表于 2007-6-19 14:19:00

<p class="element-desc"><b>在CAD2006VBA的帮助文档Save Method中有这么一句：</b></p><p class="element-desc"><b>Note</b> This method has no effect for menu groups.</p><p class="element-desc">意思是说，Save方法对菜单组已经不再可用。</p>
页: [1]
查看完整版本: [求助]关于2006中开发人员手册中的一个例子