Office中国论坛/Access中国论坛

标题: 【求助】变量定义的问题 [打印本页]

作者: 鱼儿游游 时间: 2011-11-16 14:30
标题: 【求助】变量定义的问题
本帖最后由鱼儿游游于 2011-11-16 14:32 编辑

下面的代码能生成一项菜单，缺点是要先引用：Microsoft office 11.0 Object library对象库

Dim iBar As CommandBar
Dim iButton As CommandBarButton
Dim iCombo As CommandBarComboBox
Set iBar = Application.CommandBars.Add(Name:=("menuTreeView"), Position:=msoBarPopup, Temporary:=True)
With iBar
      Set iButton = .Controls.Add(Type:=msoControlButton)
      iButton.Caption = "增加  选定节点子节点(&A)"
      iButton.OnAction = "Get_PopupMenuSelection"
      iButton.Tag = "ADD"
      iButton.FaceId = 240
End with

求助问题：不用先引用Microsoft office 11.0 Object library对象库，代替上述代码中的变量定义？

类似定义ADO记录一样：
用
DIM rst As Object
Set rst = CreateObject("ADODB.Recordset")

代替：
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset

作者: andymark 时间: 2011-11-16 14:37
原则上是可以的: CreateObject("XX")
但要知道具体xx叫啥

作者: 鱼儿游游 时间: 2011-11-16 14:47
是呀，我就是不知道那个“XX"是什么？

作者: yehf 时间: 2011-11-16 14:48
Access,Excel,Word等等的Application里面也有CommandBars和Commandbar对象的啊,不需要引用Microsoft office 11.0 Object library对象库

作者: 鱼儿游游 时间: 2011-11-16 14:49
要引用的，不然出错。

作者: t小宝 时间: 2011-11-16 15:31
把 CommandBar 这些对象用 Object 代替，msoBarPopup 这些常数用实际数值代替就可以了。

Dim iBar As Object  'CommandBar
Dim iButton As Object  'CommandBarButton
Dim iCombo As Object  'CommandBarComboBox
Set iBar = Application.CommandBars.Add(Name:=("menuTreeView"), Position:=5, Temporary:=True)
With iBar
      Set iButton = .Controls.Add(Type:=1)
      iButton.Caption = "增加  选定节点子节点(&A)"
      iButton.OnAction = "Get_PopupMenuSelection"
      iButton.Tag = "ADD"
      iButton.FaceId = 240
End With

作者: 鱼儿游游 时间: 2011-11-16 16:12
我试试，多谢小宝。{:soso_e181:}

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)