VBA入门到进阶常用知识代码总结69

tiansdk320

于 2020-02-17 22:46:20 发布

阅读量461

点赞数

分类专栏： VBA 文章标签： vba

本文链接：https://blog.csdn.net/tiansdk320/article/details/104366749

版权

本文通过实例介绍了VBA中类模块处理不同事件的方法，包括按钮点击事件、工作表图片点击事件、命令菜单点击事件以及取消隐藏列的处理。通过创建类模块为控件绑定事件，实现更灵活的交互功能。

摘要由CSDN通过智能技术生成

第69集类模块事件
340、按钮事件
Dim mycombar(1 To 6) As New Combarclass
Private Sub UserForm_Initialize()
Dim x As Integer
For x = 1 To 6
Set mycombar(x).com = Me.Controls(“CommandButton” & x)
Next x
End Sub
插入类模块：Combarclass
Public WithEvents com As MSForms.CommandButton '表示窗体的按钮对象
Private Sub com_Click()
MsgBox com.Caption
End Sub
341、工作表事件
模块中代码：
Dim p(1 To 4) As New 工作表控件
Sub 创建图片类()
Dim x As Integer
For x = 1 To 4
Set p(x).im = Sheet1.OLEObjects(“image” & x).Object '表示工作表的图片控件
Next x
End Sub
插入类模块：工作表控件
Public WithEvents im As Image
Private Sub im_Click()
MsgBox “你点击了” & im.Name
End Sub
342、命令菜单事件
窗体中代码：
Dim c(1 To 4) As New 菜单命令类
Sub 添加快捷菜单()
Dim mypup As CommandBar
Dim com As CommandBarButton
Dim x