十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
太晚了,想不出什么好方法了。
成都创新互联是一家专业提供凤阳企业网站建设,专注与网站设计制作、成都网站建设、H5建站、小程序制作等业务。10年已为凤阳众多企业、政府机构等服务。创新互联专业网站制作公司优惠进行中。
发上来看看吧。
首先建立一个TextBox,我这里名字为TextBox2
然后放一个groupbox,在里头放两个Checkbox,checkbox1为粗体,checkbox2为斜体。
代码:
Dim Bold As Boolean
Dim Italic As Boolean
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked Then
Bold = True
If Italic Then
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Bold Or FontStyle.Italic)
Else
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Bold)
End If
Else
Bold = False
If Italic Then
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Italic)
Else
TextBox2.Font = New Font(TextBox2.Font, 0)
End If
End If
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked Then
Italic = True
If Bold Then
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Italic Or FontStyle.Bold)
Else
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Italic)
End If
Else
Italic = False
If Bold Then
TextBox2.Font = New Font(TextBox2.Font, FontStyle.Bold)
Else
TextBox2.Font = New Font(TextBox2.Font, 0)
End If
End If
End Sub
可以等等别人回答,看看有没有更好的方法。
我这儿没有.net,简单说下。响应Textbox的按键事件,事件中有一个参数 e ,e这个对象有几个成员,其中有一个是是否将按键传递到控件,有一个是按键码,你可以判断按键码是否合法从而确定是否将按键传递到Textbox去。
给点提示吧,已粗体为例(完全是我自己的方法,不知别人是怎么做的):
'先获取选择的字体信息(字体、大小、样式。。。)
Dim currentFont As System.Drawing.Font = RichTextBox1.SelectionFont
'在重新定义某种样式的时候,不丢失其他信息
RichTextBox1.SelectionFont = New Font(currentFont.FontFamily, currentFont.Size, FontStyle.Bold)
Me.RichTextBox1.SelectionFont = New Font("宋体", 14.25!, FontStyle.Bold Or FontStyle.Italic)
您好。修改FORM的Font属性就可以修改窗体和其中所有控件的字体。
Me.Font = New System.Drawing.Font("宋体", 10)
另外,FORM标题栏的TEXT字体和颜色是操作系统决定的,要想改变,只能调用系统的api函数,截获操作系统的消息来改变。
下面的网址有C#版本的重绘标题栏范例
软糖的回答满意吗,请及时采纳,谢谢。