vb.net中的richtextbox如何按一个按钮，如果选定文本是粗体，就变为非粗体；否则变为粗

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

创新互联专注于平顶山网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供平顶山营销型网站建设，平顶山网站制作、平顶山网页设计、平顶山网站官网定制、小程序设计服务，打造平顶山网络公司原创品牌,更为您提供平顶山网站排名全网营销落地服务。

Dim fon As String, fod As Single, fot As Boolean : fot = RichTextBox1.SelectionFont.Bold

fon = RichTextBox1.Font.Name : fod = RichTextBox1.Font.Size

If fot = True Then RichTextBox1.SelectionFont = New System.Drawing.Font(fon, fod, FontStyle.Regular)

If fot = False Then RichTextBox1.SelectionFont = New System.Drawing.Font(fon, fod, FontStyle.Bold)

End Sub

vb.net字体的粗体斜体同时显示怎么设置

该参数枚举值，采用位运算，那么可以用Or把两者连接起来即可；

New Font(CurrentFont.FontFamily, CurrentFont.Size, FontStyle.Bold Or FontStyle.Italic)

vb.net中如何将文本字体加粗

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged Dim b As FontStyle

If CheckBox1.Checked Then b = FontStyle.Bold Else b = FontStyle.Regular End If TextBox1.Font = New Font(TextBox1.Font.Name, TextBox1.Font.Size, t) End Sub

vb.net 字体设置

给点提示吧，已粗体为例（完全是我自己的方法，不知别人是怎么做的）：

'先获取选择的字体信息（字体、大小、样式。。。）

Dim currentFont As System.Drawing.Font = RichTextBox1.SelectionFont

'在重新定义某种样式的时候，不丢失其他信息

RichTextBox1.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, FontStyle.Bold)

VB.NET,Richtextbox的bold设置

斜粗体是用 Or 合并；

Ft = New Font("宋体", 9.0!, CType((FontStyle.Bold Or FontStyle.Italic), FontStyle))

也可以在设定粗体前先保存原有字体，可以方便还原；

Private OldFont As Font '旧的字体

OldFont = RichTextBox1.SelectionFont '保存当前字体 

RichTextBox1.SelectionFont = New Font("宋体", 9.0!, FontStyle.Bold) '9号加粗宋体

换回原来的字体；

RichTextBox1.SelectionFont = OldFont '设定回原来的字体

VB.net中代码如何写，当选中文本为粗体时单击按钮变成正常的，反之变为粗体，其它不要变？

vb.net 没用过，不过估计richtextbox控件应该有selbold这个属性

If RT1.SelBold = False Then

RT1.SelBold = True

Else

RT1.SelBold = False

End If

这样就行。如果没有这个属性就不会了

分享标题：vb.net工具栏粗体 vb粗体字属性
转载来源：http://kswjz.com/article/hhgggs.html