Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged Dim b As FontStyle
我们提供的服务有:成都网站设计、成都做网站、微信公众号开发、网站优化、网站认证、海宁ssl等。为上千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的海宁网站制作公司
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
1、2和3:你怎么改的,就怎么恢复默认
3:textbox1.font=new
font(
字体
名称,字体大小,
字形
),字形有加粗常规倾斜
下划线
等几种。
1、2和3:你怎么改的,就怎么恢复默认
3:textbox1.font=new font(字体名称,字体大小,字形),字形有加粗常规倾斜下划线等几种。