大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
1、2和3:你怎么改的,就怎么恢复默认
成都创新互联公司-专业网站定制、快速模板网站建设、高性价比黄平网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式黄平网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖黄平地区。费用合理售后完善,10年实体公司更值得信赖。
3:textbox1.font=new font(字体名称,字体大小,字形),字形有加粗常规倾斜下划线等几种。
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)