VBA私有字符串变量未在文本标签显示，用户窗体参数传递问题

这个问题我之前也碰到过，核心原因是UserForm的Initialize事件触发时机早于你设置MyProp属性的时机。

当你创建窗体实例（比如用New关键字，或者直接调用Show）时，Initialize事件会立刻执行，这时候你还没给MyProp赋值，私有变量msMsg还是默认的空字符串，所以txtLabel1.Caption只会显示"hello"，看不到你后续设置的内容。

解决方法1：调整控件初始化逻辑，移到属性赋值后执行 #

我们可以把更新标签的逻辑单独抽成一个公共方法，在设置MyProp后手动调用，或者在Property Let里自动触发：

修改后的用户窗体代码：

Private msMsg As String

Private Sub CommandButton1_Click()
    MsgBox msMsg
End Sub

' 移除Initialize事件里的标签初始化代码，换成公共方法
Public Sub UpdateLabelText()
    txtLabel1.Caption = "hello" & msMsg
End Sub

Property Let MyProp(sText As String)
    msMsg = sText
    ' 赋值后自动更新标签
    UpdateLabelText
End Property

外部调用代码：

Sub ShowMyForm()
    ' 必须先创建实例，再设置属性
    Dim frm As InformationMissing
    Set frm = New InformationMissing
    
    ' 设置属性，此时会自动触发标签更新
    frm.MyProp = " World!"
    
    ' 显示窗体
    frm.Show
    
    Set frm = Nothing
End Sub

解决方法2：改用Activate事件（慎用） #

如果你的窗体只会被显示一次，也可以把标签初始化代码移到Activate事件里——这个事件是在窗体每次被激活时触发，也就是Show之后：

Private msMsg As String

Private Sub CommandButton1_Click()
    MsgBox msMsg
End Sub

Private Sub UserForm_Activate()
    txtLabel1.Caption = "hello" & msMsg
End Sub

Property Let MyProp(sText As String)
    msMsg = sText
End Property

但要注意：如果窗体被隐藏后再次显示，Activate会再次触发，可能导致重复执行初始化逻辑，所以这种方法只适合简单场景。

关键注意点 #

一定要避免直接使用窗体的默认实例（比如直接写InformationMissing.MyProp = "xxx"），因为默认实例会在第一次被引用时自动创建并触发Initialize事件，这时候你还没设置属性，自然看不到效果。必须用New关键字手动创建实例，控制属性赋值和事件触发的顺序。

内容的提问来源于stack exchange，提问作者Alex955