时间戳

首页 > 解决方案 > 将字体样式更改为 Richtextbox vb.net

vb.net - 将字体样式更改为 Richtextbox vb.net

问题描述

我需要更改字体样式并将其添加到 Richtextbox，这是我的代码，但我遇到了一些错误。请帮忙

Dim sb = New StringBuilder()

sb.AppendFormat(New Font("IDAutomationHC39M", 12,FontStyle.Regular).AppendLine("SCAN BARCODE: " & txtBarcode.Text)

RichTextBoxPrintCtrl1.Text = sb.ToString()

标签： vb.net

解决方案

要仅更改 RichTextBox 中部分文本的字体，您需要搜索所需的文本，然后计算其长度并选择它。此时您可以将所需的字体应用到 SelectionFont 属性。

Sub SetBarCodeText(searchText as String)
    Dim len As Integer = searchText.Length
    Dim pos As Integer = RichTextBoxPrintCtrl1.Find(searchText, 0, RichTextBoxFinds.NoHighlight)
    if pos >= 0 Then
        Dim start As Integer = pos
        Dim endpos As Integer = start + len
        RichTextBoxPrintCtrl1.Select(start, endpos - start)
        RichTextBoxPrintCtrl1.SelectionFont = new Font("IDAutomationHC39M", 12, FontStyle.Regular)
    End If
End Sub

你调用上面的方法

RichTextBoxPrintCtrl1.Text = "SCAN BARCODE: " & txtBarcode.Text
SetBarCodeText("SCAN BARCODE: " & txtBarcode.Text)

推荐阅读