将变量从 class 模块传递给用户窗体

Question

嘿，我正在尝试设计一个代码，其中许多命令按钮调用相同的用户窗体。我已经创建了 class 模块并让它工作，以便它们都调用用户窗体，但我需要从 class 模块传递到用户窗体初始化的按钮名称。我已经尝试使用属性 get 和 public 函数，但无法正常工作。我要传递的变量是字符串形式的“ScreenShotCap” 谁能帮忙？

CLASS 模块代码

Option Explicit

Public ScreenShotCap As String
Public WithEvents CmdBtn As MSForms.CommandButton


Property Set obj(btns As MSForms.CommandButton)

'Defines the property of the object called
    Set CmdBtn = btns
    
End Property


Private Sub CmdBtn_Click()

'Gets the button caption
    ScreenShotCap = CmdBtn.Name

'Loads the userform
    ufScreenshot.Show
  
End Sub

用户代码

Private Sub UserForm_Initialize()

Dim btnNo As Variant
Dim imNo1, imNo2, imNo3 As Integer


'Gets the number of the button
    btnNo = Right(ScreenShotCap, 1)

'Sets the image number
    imNo1 = Int(btnNo + 2)
    imNo2 = Int(btnNo + 3)
    imNo3 = Int(btnNo + 4)
    
'Loads the image from MSForms into userform
    If ScreenShotCap = Worksheets("SW_TEST").OLEObjects("CommandButton1").Name Then
        Application.ScreenUpdating = False
            Me.Image1.Picture = Worksheets("SW_TEST").OLEObjects("Image1").Object.Picture
            Me.Image2.Picture = Worksheets("SW_TEST").OLEObjects("Image2").Object.Picture
            Me.Image3.Picture = Worksheets("SW_TEST").OLEObjects("Image3").Object.Picture
        Application.ScreenUpdating = True
    Else
        Application.ScreenUpdating = False
            Me.Image1.Picture = Worksheets("SW_TEST").OLEObjects("Image" & imNo1).Object.Picture
            Me.Image2.Picture = Worksheets("SW_TEST").OLEObjects("Image" & imNo2).Object.Picture
            Me.Image3.Picture = Worksheets("SW_TEST").OLEObjects("Image" & imNo3).Object.Picture
            
        'after any change vba has to be told to refresh the UserForm for the change to appear
            Me.Repaint
        Application.ScreenUpdating = True
    End If
  
End Sub

Answer 1

将 UserForm_Initialize() 中的代码移动到带有参数的新子中，或者将其重命名为：

Public Sub LoadButtonImage(ScreenShotCap As String)

然后在你的 CmdBtn_Click() sub:

Load ufScreenshot.Show
ufScreenshot.LoadButtonImage CmdBtn.Name 
uScreenshot.Show

将变量从 class 模块传递给用户窗体

Passing a variable from class module to userform

vba

pass-by-reference

pass-by-value

userform

first-class-modules