VBA 将用户窗体控件作为参数传递

Question

我想让用户表单标签的.Caption由位于另一个模块中的 Sub 修改。

  Private Sub UserForm_Activate()

    Dim Vs_Label as string
    Label_S.Caption = "something"

    Call ChangeLabel(Vs_Label)
    Label_S.Caption = Vs_Label

    Call ChangeLabel(Label_S.Caption)
  end

  Sub ChangeLabel(Vs_Label)
    Vs_Label = "something else"
  end

第一次调用该过程时，它返回Vs_Label = "something else"。 第二次调用该过程时，它返回Label_S.Capiton = "something"。

有人可以向我解释这里发生了什么吗？

Answer 1

Sub ChangeLabel(Vs_Label)

首先，让我们通过使所有修饰符和类型显式来使事情更清楚。

Public Sub ChangeLabel(ByRef Vs_Label As Variant)

我们有一个名为Vs_Label的局部变量，其初始值为vbNullString 。

 Dim Vs_Label as String Label_S.Caption = "something"

此时Vs_Label仍然是vbNullString ，而Label_S.Caption是“东西”。

 Call ChangeLabel(Vs_Label)

现在我们将Vs_Label变量指针传递给过程，该过程将其分配给“其他东西”。 请注意，这将是等效的，并且可以说是更清晰的代码：

ChangeLabel Vs_Label

这条语句返回后， Vs_Label是“somethign else”，而Label_S.Caption仍然是“something”。

 Label_S.Caption = Vs_Label

现在Vs_Label和Label_S.Caption都包含“别的东西”。

 Call ChangeLabel(Label_S.Caption)

这个调用现在不同了：我们传入的不是变量引用，而是成员表达式。

因此，成员表达式被评估（“别的东西”），并且对该值的引用（调用者没有坚持）被传递给过程，该过程将它分配给“别的东西”（没有变化）， . ..然后引用被丢弃：第二次调用没有任何影响。

所以在程序结束时Vs_Label和Label_S.Caption都是“别的东西”。

为了使标签的Caption成为“某物”，在该代码的末尾，您需要有不同的代码。

在过程顶部附近放置一个断点 (F9)，运行代码，然后使用 F8 逐步执行并检查您的标签和变量：您会发现此代码与为什么标签显示“无关”某物”。

在您正在查找的两个位置验证您正在使用的表单实例 - 并确保两个位置都使用相同的对象实例。 每次激活表单时， Activate处理程序都会运行 - 如果表单未显示为模式对话框，则每个实例可能会多次显示。