从品牌网站建设到网络营销策划,从策略到执行的一站式服务
斜粗体是用 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
这样就行。如果没有这个属性就不会了
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图