在用户窗体中检测动态对象上的鼠标按下事件

Question

我在用户窗体的框架内有一个动态范围的选项按钮。 OptionButton 的数量根据表格中的列数而有所不同。每个按钮都根据列标签进行标记。当一个人选择一个选项时，我需要一个 ListBox 来填充在该表列中找到的项目。 填充选项按钮和 ListBox 很容易。我知道如何检测已知 Userformobjects 上的鼠标按下事件。但是按钮仅通过编码存在并且变化。如何在实际不存在的对象上检测 MouseDown？ 我已经尝试过为 Frame 创建 MouseDown 类的代码

Answer 1

您需要将您的控件包装在一个类模块中 - 例如，DynamicOptionButton：

Option Explicit
Private WithEvents ControlEvents As MSForms.OptionButton

Public Sub Initialize(ByVal ctrl As MSForms.OptionButton)
    If Not ControlEvents Is Nothing Then ThrowAlreadyInitialized
    Set ControlEvents = ctrl
End Property

Private Property Get AsControl() As MSForms.Control
    Set AsControl = ControlEvents
End Property

Private Sub ThrowAlreadyInitialized()
    Err.Raise 5, TypeName(Me), "Invalid Operation: This control is already initialized."
End Sub

Private Sub ControlEvents_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim parentForm As UserForm1 'todo: use your actual UserForm subtype
    Set parentForm = AsControl.Parent 
    'handle mousedown here.
End Sub

创建动态控件时，您需要一个模块级 Collection 来保存DynamicOptionButton 实例 - 否则它们将超出范围 当到达End Sub 时，您将永远无法处理他们的任何事件。

Private DynamicControls As Collection

Private Sub Class_Initialize()
    Set DynamicControls = New Collection
    'todo invoke CreateOptionButton
End Sub

Private Sub CreateOptionButton() 'todo parameterize
    Dim ctrl As MSForms.OptionButton
    Set ctrl = Me.Controls.Add(...)

    Dim wrapper As DynamicOptionButton
    Set wrapper = New DynamicOptionButton
    wrapper.Initialize ctrl

    DynamicControls.Add wrapper
End Sub