在VBA（Microsoft Access）中加粗Label的“Caption”属性的一部分

Question

如何在Microsoft Access标签的标题中加粗某个单词？

如果有帮助，文本本身就存​​储在Microsoft Access表中。

以下是一个例子。我有一个带有标签的Microsoft Access表单，在Form_Load()事件中，我将此标签的caption属性设置为DLookup查询中返回的值，如下所示：

Private Sub Form_Load()

    Me.Label0.Caption = DLookup("Field1", "Table1", "[ID] = 1")

End Sub

我的文字如下：

  

快速的棕色狐狸跳过懒狗

我想鼓励懒惰这个词。这可能吗？如果是这样，我该怎么做？

由于

Answer 1

您没有提及Access的版本，对于2007（AFAIK）和2010，您可以创建文本框并将数据选项卡上的文本格式设置为Rich Text。然后，您可以将控制源设置为：

="The quick <b>brown</b> fox"

更改一些属性，例如Locked和Enabled，您将拥有一个看起来像标签的文本框。

Answer 2

你想要这个有多糟糕？因为我有一个非常疯狂的答案，但它可能会奏效。

用Web浏览器控件替换标签，创建临时html文件，然后将Web浏览器指向该文件。你需要在基础表中添加一个字段（或者至少我已经这样做了）因为必须绑定控件或者你不能改变ControlSource - 我认为。

我在表单上放置了一个Web浏览器控件，关闭了滚动条，并且通常试图让它看起来像一个标签。我没有取得圆满成功，但也许你比我更擅长。

我在我的表中添加了一个名为“FakeLabel”的文本字段。 Web浏览器控件源应指向该字段。

出于测试目的，我在表单上添加了一个带有此代码的命令按钮

Private Sub Command113_Click()

    Dim sFile As String
    Dim lFile As String

    sFile = Environ("TEMP") & "\fakelabel.html"
    lFile = FreeFile

    Open sFile For Output As lFile

    Write #lFile, "The <strong>quick</strong> brown fox jumped over the <em>lazy</em> dog"

    Close lFile

    Me.Recordset.Edit
    Me.Recordset.Fields("FakeLabel").Value = sFile
    Me.Recordset.Update

    Me.WebBrowser112.Requery

End Sub

这是我点击按钮后的样子。如果你可以摆脱那个顶部填充，它可能看起来像一个标签。