在VBA中加粗标签Caption属性的一部分（Microsoft Access）

如何在Microsoft Access标签的标题中加粗某个单词？在VBA中加粗标签Caption属性的一部分（Microsoft Access）

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

一个例子如下。我有一个Microsoft Access形式的标签，在Form_Load()事件中，我这个标签的标题属性设置为一个使用DLookup查询，像这样的返回值：

Private Sub Form_Load() 

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

End Sub

我的文字如下：

敏捷的棕色狐狸跳过懒狗

我想壮胆字懒。这可能吗？如果是这样，我该怎么做？

谢谢

来源

2012-08-10 JMK

从我所了解和研究的情况看，似乎不可能。解决方法是创建3个单独的标签，并将您希望为粗体的单词放入设置为粗体的标签中。 – 2012-08-10 16:58:27

是的，这是我最终的方法，但它感觉错了！ – JMK 2012-08-10 17:29:05

你不提的Access版本，2007年（据我所知）和2010年，你可以创建一个文本框，并设置文本格式的数据选项卡富文本上。然后，您可以设置控件来源到：

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

更改几个属性，如锁定和启用，你将有一个文本框，看起来就像一个标签。

来源

2012-08-10 19:57:18 Fionnuala

哦，是的，这比网页控制更好。 :)我没有想到在数据属性选项卡上看 - 放置文本格式是一个奇怪的地方。不错，但是。 – 2012-08-10 20:21:46

@DickKusleika感谢，可怜的版本依赖，对于早期版本，我想你的想法是更好的选择。 – Fionnuala 2012-08-10 20:34:31

道歉，我用2007年。谢谢你，这工作得很好！ – JMK 2012-08-11 11:52:03

你想要这个怎么样？因为我有一个非常疯狂的答案，但它可能工作。

用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

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

access form with web control serving as label

来源

2012-08-10 18:04:13

+1为了创造力，我和Remou的回答一起去了，但我一定会记住这一点，我相信它会派上用场！ Thankyou – JMK 2012-08-11 11:53:27

+1，我现在用它来为我的数据库保存一个简单的更新日志（'新功能？'）。主表单上的一个按钮打开一个小的弹出窗口，其中包含指向changelog.html的Web浏览器控件，存储在服务器上。更新和格式化变更日志比使用标签更容易。 – 2015-07-23 11:01:26

在VBA中加粗标签Caption属性的一部分（Microsoft Access）

回答

相关问题