将部分粗体文本添加到vb.net中的richtextbox

Question

我使用Rich Text Box作为我程序的显示日志。该程序预先形成一个目录的大量副本，从源计算机到多个目标计算机。我希望在添加行时将计算机名称加粗到文本框中。我目前添加如下行：

rtbStatusLog.AppendText(My.Computer.Clock.LocalTime.ToString + " " + TargetName + ": File Copied: " + destinationFileName + vbCrLf)

我需要“目标名称”变量，后续：加粗，但没有别的。

我也希望这样做，因为如果可能的话会添加行，而不是在结尾选择结果并加粗。

Answer 1

富文本框有一个名为SelectionFont的属性。设置此属性的属性会更改文本的显示方式。

所以这样做：

Dim currentFont As System.Drawing.Font = rtbStatusLog.SelectionFont
Dim newFontStyle As System.Drawing.FontStyle

rtbStatusLog.SelectedText = My.Computer.Clock.LocalTime.ToString
rtbStatusLog.SelectionFont = New Font(currentFont.FontFamily,currentFont.Size,newFontStyle) 
rtbStatusLog.SelectedText = " " + TargetName + ": File Copied: " + destinationFileName + vbCrLf)

当您更改实际写入框中的SelectedText属性时。

Reference SelectedText

Reference SelectionFont