vb.net字体加粗 vb中字体加粗的代码

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

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

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

相关问答

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

Q2: 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

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

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

3：textbox1.font=new font(字体名称，字体大小，字形)，字形有加粗常规倾斜下划线等几种。

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

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

If RT1.SelBold = False Then

RT1.SelBold = True

Else

RT1.SelBold = False

End If

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

Q5: 请问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

关于vb.net字体加粗和vb中字体加粗的代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。