VBA 技巧：如何将 ListBox 的字体属性复制到 Label

如何将 ListBox 的字体属性（如粗体、斜体和大小）复制到 Label 上？

VBA 中直接将 ListBox 的字体属性复制到 Label 会失败，因为 VBA 运行时可能存在一个与 Font 对象创建和缓存相关的 Bug。

解决方法

可通过使用控制变量来复制字体属性，参考以下步骤：

步骤 1：声明控制变量

先声明两个控制变量，分别代表源 ListBox 和目标 Label。

Dim ctrlFrom As Control, ctrlTo As Control

步骤 2：设置控制变量

将 ListBox 和 Label 分别赋值给相应的控制变量。

Set ctrlFrom = Me.ListBox1
Set ctrlTo = Me.Label1

步骤 3：复制字体属性

使用控制变量访问并复制字体属性。

ctrlTo.Font.Name = ctrlFrom.Font.Name
ctrlTo.Font.Bold = ctrlFrom.Font.Bold
ctrlTo.Font.Italic = ctrlFrom.Font.Italic
ctrlTo.Font.Size = ctrlFrom.Font.Size

为了方便使用，可以将上述代码封装一下，请参考以下完整示例代码。

示例代码

Sub copyFont(fromCtrl As Control, toCtrl As Control)
    toCtrl.Font.Name = fromCtrl.Font.Name
    toCtrl.Font.Size = fromCtrl.Font.Size
    toCtrl.Font.Bold = fromCtrl.Font.Bold
    toCtrl.Font.Italic = fromCtrl.Font.Italic
End Sub

Sub Label_Activate()
    Dim ctrlFrom As Control, ctrlTo As Control
    Set ctrlFrom = Me.ListBox1
    Set ctrlTo = Me.Label1
    copyFont ctrlFrom, ctrlTo
End Sub

注意事项

建议将 copyFont 子程序调用放置在 Activate 事件中，而不是 Initialize 事件中。因为在 Initialize 事件中，控件可能还没有完全准备就绪。