vb.net取消粗体 vb字体加粗代码后还原代码

请问vb.net 中单击button一次加粗再次点击取消加粗的代码是怎样的？ 麻烦

Dim i As Integer

专注于为中小企业提供网站设计制作、网站设计服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业拜城免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了1000多家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

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

i = i + 1

If i = 1 Then

TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Bold)

Else

TextBox1.Font = New System.Drawing.Font(TextBox1.Font, FontStyle.Regular)

i = 0

End If

End Sub

VB.NET，如何用代码实现改变字体、颜色、加粗，以及恢复默认?

1、2和3:你怎么改的,就怎么恢复默认

3:textbox1.font=new

font(

字体

名称，字体大小，

字形

)，字形有加粗常规倾斜

下划线

等几种。

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

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

If RT1.SelBold = False Then

RT1.SelBold = True

Else

RT1.SelBold = False

End If

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

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 '设定回原来的字体