vba如何在类模块按名字取指定窗体上的label

在 VBA 中，可以使用 `Controls` 属性来访问窗体上的控件，例如 `Labels`。下面是一个示例代码：

Private Function GetLabelValue(ByVal formName As String, ByVal labelName As String) As String
    Dim frm As Form
    Dim lbl As Label
    
    '获取窗体对象
    Set frm = Forms(formName)
    
    '获取标签对象
    Set lbl = frm.Controls(labelName)
    
    '返回标签的值
    GetLabelValue = lbl.Caption
End Function

在上面的代码中，`GetLabelValue` 函数接收两个参数：窗体名称和标签名称。它首先使用 `Forms` 集合对象来获取指定名称的窗体对象。然后，它使用 `Controls` 属性来获取指定名称的标签对象，并返回标签的 `Caption` 属性值。

你可以根据需要修改此代码。例如，你可以将 `GetLabelValue` 函数改为接受窗体对象和标签对象作为参数，而不是名称。