斜粗体是用 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 '设定回原来的字体
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
该参数枚举值,采用位运算,那么可以用Or把两者连接起来即可;
New Font(CurrentFont.FontFamily, CurrentFont.Size, FontStyle.Bold Or FontStyle.Italic)
vb.net 没用过,不过估计richtextbox控件应该有selbold这个属性
If RT1.SelBold = False Then
RT1.SelBold = True
Else
RT1.SelBold = False
End If
这样就行。如果没有这个属性就不会了