处理运行时创建的 OLEObject 命令按钮的事件

2024-01-30

我已经为这个问题苦苦挣扎了一段时间......我想做一些非常简单的事情。我想在运行时创建多个命令按钮,然后用一个过程处理这些命令按钮的事件。所以我构建了一个“withevents”类来处理自动化,但我的代码不起作用。当我运行 Test() 时,会创建 CommandButton,但是当我单击它时...没有消息框响应...我找不到错误...请提供任何帮助!

c测试类

Public WithEvents Button As MSForms.CommandButton

Public Sub Button_Click()
s = MsgBox("Hello", vbOKOnly)
End Sub

Module 1

Public TestCollection As Collection

Sub Test()

Set TestCollection = New Collection
Dim Btn As CommandButton
Dim OLEBtnObj As cTest
Set OLEBtnObj = New cTest
Set Btn = Sheet1.OLEObjects.Add(ClassType:="Forms.CommandButton.1", link:=False,_ DisplayAsIcon:=False, Left:=368.25, Top:=51, Width:=44.25, Height:=24).Object
Set OLEBtnObj.Button = Btn
TestCollection.Add Item:=OLEBtnObj

End Sub

我有一个相当不切实际的解决方案。要测试它,请将以下代码放入图纸类模块(见附图)。这Me.CodeName指的是代码名称 https://learn.microsoft.com/en-us/office/vba/api/excel.worksheet.codename的片材。

对于每个新的 Sheet1 按钮,将添加一个新处理的事件。该事件处理程序将执行公共事件处理程序并将单击的命令按钮的名称传递给它。

' Standard Module
Sub test()
  ' adds three buttons to Sheet1 with click-event handlers
  Sheet1.AddButton
  ActiveCell.Offset(5, 0).Activate
  Sheet1.AddButton
  ActiveCell.Offset(5, 0).Activate
  Sheet1.AddButton
End Sub

' Sheet1 Class Module
Option Explicit

' Add Microsoft Visual Basic For Applications Extensibility

Public Function AddButton() As MSForms.CommandButton
  Dim msFormsCommandButton As MSForms.CommandButton
  Set msFormsCommandButton = Me.OLEObjects.Add(ClassType:="Forms.CommandButton.1").Object
  CreateEventHandler msFormsCommandButton.Name
  Set AddButton = msFormsCommandButton
End Function

Private Sub CommonButton_Click(ByVal buttonName As String)
  MsgBox "You clicked button [" & buttonName & "]"
End Sub

Private Sub CreateEventHandler(ByVal buttonName As String)
    Dim VBComp As VBIDE.VBComponent
    Dim CodeMod As VBIDE.CodeModule
    Dim codeText As String
    Dim LineNum As Long
    
    Set VBComp = ThisWorkbook.VBProject.VBComponents(Me.CodeName)
    Set CodeMod = VBComp.CodeModule
    LineNum = CodeMod.CountOfLines + 1

    codeText = codeText & "Private Sub " & buttonName & "_Click()" & vbCrLf
    codeText = codeText & "  Dim buttonName As String" & vbCrLf
    codeText = codeText & "  buttonName = """ & buttonName & "" & vbCrLf
    codeText = codeText & "  CommonButton_Click buttonName" & vbCrLf
    codeText = codeText & "End Sub"
    CodeMod.InsertLines LineNum, codeText
End Sub

本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)

处理运行时创建的 OLEObject 命令按钮的事件 的相关文章

随机推荐

  • 将用户控件属性绑定到自定义类

    在我的应用程序中我使用的是usercontrol称为 ChannelControls 我在主窗口上实例了 6 次 public partial class ChannelControls UserControl CMiXData cmixd
  • 根据 Haskell 列表中 n 的条件删除元素 n-1、n 和 n+1

    假设我有一个包含所有整数的列表2 to 20 2 20 我想使用函数过滤列表f x 或者它是一个谓词 我不太习惯 Haskell 编程中使用的所有术语 如果元素在位置n对于该函数等于 truef 我想删除位置上的元素n 1 n and n
  • char 的 a += b 运算符的实现与 a = a + b 相同吗? [复制]

    这个问题在这里已经有答案了 发现一个有趣的问题 以下代码运行时会产生不同的结果 char c a c a passed c c a Cannot implicitly convert type int to char An explicit
  • Discord.py - 使用命令更改前缀

    我想创建一个命令 管理员可以更改命令的前缀 例如 他们可以将其更改为 而不是使用 并且只有 才能工作 我可以设置只有管 理员才能使用该命令的权限 我环顾四周 通过文档和互联网 但没有找到任何东西 而且我不知道如何做到这一点 您应该使用com
  • 将片段添加到列表视图项中

    我想为列表视图中的每个项目都有一个片段 因为我想分离出一些逻辑 我为每个项目使用一个视图持有者 如果视图不存在 我将创建一个新片段并将其添加到容器中 holder mMyFragment new MyFragment mActivity t
  • SQL Server:如何检查字段是否具有“NULL”或“NOT NULL”约束?

    谁能告诉我是否有一种方法可以以编程方式确定 Micorosft SQL Server 数据库表字段是否具有 NULL 或 NOT NULL 约束 我需要这个 以便我可以部署一个可以安全重新运行的补丁 所以我正在寻找这样的东西 概念 伪代码
  • HiltAndroidApp/HiltViewModel IDE 中的“未解析的参考”,但它仍然可以构建而不会出现错误

    所以我按照以下步骤进行操作https developer android com training dependency injection hilt android https developer android com training
  • 将正斜杠替换为双引号内的双反斜杠

    我拼命地尝试替换正斜杠 用双反斜杠括在双引号 but a echo var sed s sed s g 不起作用 我不知道为什么 它总是只替换一个反斜杠而不是两个 When 是您想要替换为的正则表达式的一部分s 替代 命令sed 您可以在命
  • Java Regex - 使用单个美元捕获字符串,但当它有两个连续的美元时则不会

    我已经发布this https stackoverflow com questions 58821727 java regex java util regex search for dollar sign早点问 但这还没有结束 那里适用的所
  • 如何解决500内部服务器错误? [关闭]

    Closed 这个问题需要多问focused help closed questions 目前不接受答案 当我使用 ajax 调用时 我收到 500 内部服务器错误 是什么导致了这个问题 如何解决呢 调试 修复和解决来自 Ajax 调用的服
  • 结构一字节对齐与架构的对齐要求冲突?

    我之前发过一个问题here https stackoverflow com questions 13881487 should i worry about the alignment during pointer casting comme
  • Android - 使用我的应用程序打开 Gmail 附件

    我需要使用我的应用程序打开具有自定义扩展名的文件 当文件位于我的 SD 卡中时 我可以使用 Intent 过滤器来执行此操作 如果文件作为 Gmail 附件发送 我还可以查看 下载 和 预览 按钮 但是 当我单击下载 预览按钮时 我收到消息
  • 删除某些内容后如何在 OS X Yosemite 上恢复 python?

    我想我之前是通过homebrew安装了python 这不是一个好主意 但我做到了 which python Library Frameworks Python framework Versions 2 7 bin python sudo r
  • 如何在标准 ML 中检查整数的以 2 为底的表示形式? [复制]

    这个问题在这里已经有答案了 我正在尝试在 SML 中实现重复平方算法 我希望它是尾递归的 目标是将所有 x k 相乘 其中 k 是 2 m 2 m 是 n 的二进制表示形式中的 1 例如 对于 x 25 计算 x 1 x 8 x 16 因为
  • 打印两次

    我出于教学目的编写了一个简单的程序 除了打印出名称和您选择的计算答案的部分之外 一切正常 if 语句似乎执行了两次 就好像它在前进之前向后退了一步 它将打印出 您想继续吗 但不会提示用户输入是 否 而是会再次打印出计算的答案 然后询问他们是
  • CodeDom:编译部分类

    我正在尝试编译文本文件中的代码以更改 WinForms 应用程序主窗体上的 TextBox 中的值 IE 将另一个带有方法的分部类添加到调用表单中 该表单有一个按钮 button1 和一个文本框 textBox1 文本文件中的代码是 thi
  • 错误:_handle onLaunch iOS 9 中的特定操作

    我在 iOS 9 上收到以下错误 UIApplication handleNonLaunchSpecificActions forScene withTransitionContext completion unhandled action
  • PHP - 将 MS Word 特殊字符(^l、^p、^s)更改为“,”

    所以我拥有的是一个 MS Word docx 文件 其中包含一些未真正排序的数据 示例输出 1 姓氏 名字 地址 城市 州邮政编码 通过执行 Ctrl Shift 我可以查看文件中存在的所有特殊字符 ETC 然后用 替换它们作为分隔符 然后
  • MDX SSAS - 最大测量日期

    只需要在多维数据集中的所有测量中获取最大日期即可 例如 DateID is a Dimention Measure First Measure Second Measure 如何获取列表MAX DateID 来自我的立方体中的所有措施 以下
  • 处理运行时创建的 OLEObject 命令按钮的事件

    我已经为这个问题苦苦挣扎了一段时间 我想做一些非常简单的事情 我想在运行时创建多个命令按钮 然后用一个过程处理这些命令按钮的事件 所以我构建了一个 withevents 类来处理自动化 但我的代码不起作用 当我运行 Test 时 会创建 C