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

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()
For Each i In Application.MenuGroups
For Each j In i.Toolbars
j.Delete
Next j
Next i
End Sub

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

xiexie

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

显示或隐藏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

查看完整版本: 求助：怎么样在VB中运行时去掉所有CAD工具栏？