vb.net取消粗体 vb字体删除线代码

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

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

If RT1.SelBold = False Then

RT1.SelBold = True

Else

RT1.SelBold = False

End If

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

相关问答

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

Dim i As Integer

    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

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

该参数枚举值vb.net取消粗体，采用位运算vb.net取消粗体，那么可以用Or把两者连接起来即可vb.net取消粗体；

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

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

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

3:textbox1.font=new

font(

字体

名称，字体大小，

字形

)，字形有加粗常规倾斜

下划线

等几种。

Q4: VB.NET,Richtextbox的bold设置

斜粗体是用 Or 合并vb.net取消粗体；

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

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

Private OldFont As Font '旧vb.net取消粗体的字体

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

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

换回原来vb.net取消粗体的字体；

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

vb.net取消粗体的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb字体删除线代码、vb.net取消粗体的信息别忘了在本站进行查找喔。