VBA使用ListView控件时提示“库没有注册”解决方法

操作系统Win7,64位

Office365(Office2013)


在使用Excel VBA开发窗体界面时,需要用到列表控件,由于ListBox功能太简单,打算使用ListView,在附加控件里增加了ListView这个按钮,但是把ListView拖进窗体时,提示“库没有注册”,网上一般都说用运行“regsvr32 MSCOMCTL.OCX”注册,但是解决不了我的问题。


后来误打误撞,在Excel的编辑界面,选择开发工具,点击插入,在ActiveX控件里面选择ListView,直接绘制在表格上,居然成功了!然后在VBA里面添加该控件,也没有报错。



在附加控件那里,是可以找到ListView控件的,也就是说注册过,可能兼容性有些问题。如果真没有注册该控件,在附加控件的界面里是找不到ListView的。所以,各种说不清的原因。


欢迎各位网友留言交流。



  • 0
    点赞
  • 5
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VBAListView控件是一种常用的界面元素,用于显示和管理数据列表。而ListView控件右键菜单能够为用户提供更多的操作选项和便利性。下面将针对VBAListView控件右键菜单进行详细解答。 首先,要为ListView控件添加右键菜单,需要借助VBA的ContextMenu对象,并通过代码动态创建菜单项。代码示例如下: ```VBA Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then '判断是否为右键单击事件 Dim menu As CommandBarPopup Set menu = CommandBars.Add(Name:="Context Menu", Position:=msoBarPopup).CommandBarPopup With menu.Controls.Add(Type:=msoControlButton) .Caption = "菜单项1" .OnAction = "菜单项1的代码" End With With menu.Controls.Add(Type:=msoControlButton) .Caption = "菜单项2" .OnAction = "菜单项2的代码" End With menu.ShowPopup End If End Sub ``` 在以上代码中,我们通过判断鼠标点击事件,如果是右键单击,则创建一个名为"Context Menu"的右键菜单,并添加两个菜单项,为菜单项指定对应的代码。 在菜单项的代码中,你可以编写相应的逻辑,实现需要的功能。例如,点击"菜单项1"可以执行某个函数或方法,点击"菜单项2"可以执行另一个函数或方法。 需要注意的是,以上的代码只是基础的示例,你可以根据自己的需求进行扩展和适应。可以根据ListView控件的选中项进行更加智能的菜单生成,或者添加更多的菜单项等等。 总之,通过VBA的ContextMenu对象和ListView控件的鼠标事件,我们可以为ListView添加右键菜单,以提供更多的交互和操作选项,提高用户体验。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值