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` 函数改为接受窗体对象和标签对象作为参数，而不是名称。

相关问题

Vba创建一个带图片和label的窗体

要在 VBA 中创建一个带图片和 Label 的窗体，可以使用 VBA 的用户界面工具包（UserForm）。UserForm 是 VBA 中的一个对象，可以用来创建自定义的窗体，可以添加各种控件，如图片、标签、文本框、按钮等等。

以下是一个示例代码，可以创建一个带图片和 Label 的窗体：

1. 首先，在 VBA 窗口中右键单击项目，选择插入 -> 用户界面 -> 用户窗体，创建一个新的 UserForm。

2. 在 UserForm 上添加一个图片控件和一个标签控件，分别命名为 Image1 和 Label1。

3. 在 UserForm 的代码窗口中添加以下代码：

Private Sub UserForm_Initialize()
    ' 设置窗体标题
    Me.Caption = "My Form"
    
    ' 设置图片控件的图片
    Me.Image1.Picture = LoadPicture("C:\Users\Username\Desktop\image.jpg")
    
    ' 设置标签控件的文本
    Me.Label1.Caption = "Hello, World!"
End Sub

在 UserForm 的 Initialize 事件中，设置了窗体的标题、图片控件的图片和标签控件的文本。需要注意的是，这里的图片路径需要根据实际情况进行修改。

4. 在 VBA 窗口中添加一个模块，并添加以下代码：

Sub ShowMyForm()
    Dim myForm As New UserForm1 ' UserForm1 是创建的 UserForm 的名称
    myForm.Show
End Sub

这段代码创建了一个 UserForm1 的实例并显示出来。

5. 最后，在 VBA 窗口中运行 ShowMyForm 子过程，即可显示出新创建的带图片和 Label 的窗体。

需要注意的是，创建的 UserForm 可以通过添加其他控件和修改事件来实现更多的功能，例如添加按钮、文本框等等。

写一段vba代码，使用类模块实现在用户窗体上生成十个动态标签控件，并且当点击任一个标签控件时，使其高亮显示，而同时其他标签控件回复原来的颜色

在VBA中，你可以使用类模块来创建自定义控件并管理其样式。下面是一个简单的示例，说明如何在一个用户窗体上创建十个动态的Label控件，并实现点击事件高亮功能：

' 定义一个名为MyLabel的类模块
Option Explicit
Public Class MyLabel
    Private m_BgColor As Long ' 存储原始背景色
    Public Sub Initialize(ByVal Caption As String)
        Dim i As Integer
        For i = 1 To 10
            Set lblNew = Me.Controls.Add("Forms.Label.1", "Label" & i, True)
            lblNew.Caption = Caption & " " & i ' 添加编号到每个标签
            lblNew.Font.ColorIndex = RGB(0, 0, 0) ' 黑色文本
            ' 保存初始背景色以便复原
            m_BgColor = lblNew.BackColor
            ' 给标签添加单击事件处理程序
            AddHandler lblNew.Click, AddressOf lbl_Click
        Next i
    End Sub

    Private Sub lbl_Click(Sender As Object)
        If Not (Sender Is Nothing And TypeOf Sender Is Label) Then
            On Error Resume Next ' 避免错误处理
            Dim lblCurrent As MyLabel
            Set lblCurrent = DirectCast(Sender, MyLabel)
            ' 当前标签设置为高亮
            lblCurrent.BackColor = RGB(255, 255, 0) ' 示例黄色高亮
            ' 其他标签恢复原始颜色
            For Each lblOther In Me.Controls
                If Not lblOther Is lblCurrent Then
                    lblOther.BackColor = m_BgColor
                End If
            Next lblOther
        End If
    End Sub
End Class

' 使用该类模块，在用户窗体的初始化时创建动态标签
Private Sub UserForm_Initialize()
    Dim objClass As New MyLabel
    objClass.Initialize "这是第1个标签:"
End Sub

在这个例子中，`MyLabel` 类负责创建标签、存储初始背景色以及处理点击事件。在`UserForm_Initialize` 中，我们实例化这个类并在用户窗体加载时生成标签。