lichh_2003 发表于 2004-11-30 15:09:00

求助：怎么样在VB中运行时去掉所有CAD工具栏？

求助：怎么样在VB中运行时去掉所有CAD工具栏？

lichh_2003 发表于 2004-11-30 15:36:00

大家快想想办法啊

雪山飞狐_lzh 发表于 2004-11-30 15:44:00

把工具条集合清空试试

lichh_2003 发表于 2004-11-30 15:45:00

问题是在VB 中怎么清空啊

雪山飞狐_lzh 发表于 2004-11-30 16:04:00

http://www.vba.cn/object/acad2004/idh_toolbars_collection.htm

lichh_2003 发表于 2004-11-30 16:12:00

用这个方法我试了一个上午没有试出来，能不能给个例子

雪山飞狐_lzh 发表于 2004-11-30 16:18:00

Sub tt()<BR>For Each i In Application.MenuGroups<BR>For Each j In i.Toolbars<BR>j.Delete<BR>Next j<BR>Next i<BR>End Sub<BR>

lichh_2003 发表于 2004-11-30 16:37:00

xiexie

pmq 发表于 2011-6-29 19:58:58

显示或隐藏CAD所有工具条
Dim MenuGrout0 As AcadMenuGroup
Set MenuGrout0 = ThisDrawing.Application.MenuGroups.Item(0)
For i = 0 To MenuGrout0.Toolbars.Count - 1
      MenuGrout0.Toolbars.Item(i).Visible = False　　'隐藏
   ‘ MenuGrout0.Toolbars.Item(i).Visible = True　　'显示
Next i
页: [1]
查看完整版本: 求助：怎么样在VB中运行时去掉所有CAD工具栏？