VB.NET中为RichTextBox设置字体样式报错求助

你的代码报错核心原因是错误地将Font对象直接和StringBuilder进行字符串拼接，而且RichTextBox的Text属性只能处理纯文本，无法保留字体样式。咱们一步步来修正：

原代码的问题点 #

• StringBuilder仅能处理字符串类型数据，你试图把Font实例直接传入AppendFormat，这会导致类型不匹配错误。
• 直接给RichTextBoxPrintCtrl1.Text赋值只能设置纯文本，字体样式根本不会被应用。

正确实现代码 #

要给RichTextBox添加带指定字体的内容，需要利用它的选区字体设置功能，示例代码如下：

' 先清空控件内容（按需选择，不需要可以去掉）
RichTextBoxPrintCtrl1.Clear()

' 定义条码字体（确保系统已安装该字体）
Dim barcodeFont As New Font("IDAutomationHC39M", 12, FontStyle.Regular)

' 设置当前选区的字体，然后追加带格式的文本
RichTextBoxPrintCtrl1.SelectionFont = barcodeFont
RichTextBoxPrintCtrl1.AppendLine("SCAN BARCODE: " & txtBarcode.Text)

' 如果后续要恢复默认字体，可添加这行
' RichTextBoxPrintCtrl1.SelectionFont = RichTextBoxPrintCtrl1.Font

额外注意事项 #

• 请确认系统中已经安装了IDAutomationHC39M字体，如果未安装，控件会自动 fallback 到系统默认字体，条码样式无法正常显示。
• 如果需要添加多段不同格式的文本，只需要重复设置SelectionFont后调用AppendText/AppendLine即可。

内容的提问来源于stack exchange，提问作者Mamouz