如何解决Visual Basic richtextbox-将特定文本设置为斜体字体样式
|| 我创建了一个Richtextbox,它根据用户输入的变量以及一些基本格式生成文本,例如:name = txtname.text
richtextbox1.text = \"Hello my name is \" & name & \".\"
我想做的是像这样在显示斜体时在name变量中设置文本。
你好,我的名字是鲍勃。
我能找到的最好的选择范围,但没有运气。
干杯!
解决方法
尝试这个:
Me.RichTextBox1.Rtf = \"{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset0 Calibri;}} hello my name is \\i Bob\\i0 \\par}\"
如果使用写字板编写一些示例文本,将其保存为rtf格式,然后在记事本中打开文件,则将获得一些开始。您可以删除某些添加的写字板(例如生成它的程序),但看起来您至少必须保留代码页和至少一种字体。
, Dim BO As New Font(\"Arial\",12,FontStyle.italic) \' Italic
richtextbox1.text = \"Hello my name is \"
richtextbox1.selectionfont = BO
richtextbox1.appendtext(name)
希望这可以帮助
, 我写了一个例程来做到这一点:
Private Sub changeRTF(ByVal strToChange As String,ByRef richTextBox As RichTextBox,ByVal color As Color,Optional ByVal ital As Boolean = False,Optional ByVal bold As Boolean = False,Optional ByVal pointSize As Single = -1)
richTextBox.SelectionStart = richTextBox.Find(strToChange,RichTextBoxFinds.MatchCase)
If ital And bold Then
richTextBox.SelectionFont = New Font(richTextBox.Font,FontStyle.Bold + FontStyle.Italic)
Else
If ital Then richTextBox.SelectionFont = New Font(richTextBox.Font,FontStyle.Italic)
If bold Then richTextBox.SelectionFont = New Font(richTextBox.Font,FontStyle.Bold)
End If
richTextBox.SelectionColor = color
Dim originalFontFamily As FontFamily = richTextBox.SelectionFont.FontFamily
Dim originalFontStyle As FontStyle = richTextBox.SelectionFont.Style
If pointSize > 0 Then richTextBox.SelectionFont = New Font(originalFontFamily,pointSize,originalFontStyle)
End Sub
因此,您将创建文本,然后调用call4ѭ。
此代码的唯一问题是,它当前仅找到您要查找的字符串的第一个存在。我用它突出显示标题,因此到目前为止,这不是问题(我不重复标题)。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。