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

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

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

[WEB]http://www.vba.cn/object/acad2004/idh_toolbars_collection.htm[/WEB]

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: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

账号		自动登录	找回密码
密码			注册