VB.NET，如何用代码实现改变字体、颜色、加粗，以及恢复默认?

1、2和3:你怎么改的,就怎么恢复默认

成都创新互联是一家专注于网站建设、成都网站设计与策划设计,柳江网站建设哪家好?成都创新互联做网站,专注于网站建设十年,网设计领域的专业建站公司;建站业务涵盖:柳江等地区。柳江做网站价格咨询:028-86922220

3:textbox1.font=new

font(

字体

名称，字体大小，

字形

)，字形有加粗常规倾斜

下划线

等几种。

VB.NET，如何用代码实现改变字体、颜色、加粗，以及恢复默认？

1、2和3：你怎么改的,就怎么恢复默认

3：textbox1.font=new font(字体名称，字体大小，字形)，字形有加粗常规倾斜下划线等几种。

VBText控件中使字体加粗和倾斜的代码是什么

VBText控件中使字体加粗和倾斜的代码是：

加粗 Label1.FontBold = True

斜体 Label1.FontItalic = true

拓展资料：

TextBox控件：

a.   控制Textbox输入格式，我想大多人都遇到这个问题，在TextBox作为输入接口时，有时我们希望用户只能输入数字、大写、字母等，一般的做法是对用户输入的字符这个检查。但是如果我们使用API，将很容易实现这些功能，比如：

1、只允许输入数字：

Const ES_NUMBER = H2000 

Public Function NumbersOnly(tBox As TextBox)

Dim DefaultStyle As Long

DefaultStyle = GetWindowLong(tBox.hwnd, GWL_STYLE)

NumbersOnly = SetWindowLong(tBox.hwnd, GWL_STYLE, DefaultStyle Or ES_NUMBER)

End Function

2、只允许大写：

Public Function UpperCaseOnly(tBox As TextBox)

Dim DefaultStyle As Long

DefaultStyle = GetWindowLong(tBox.hwnd, GWL_STYLE)

UpperCaseOnly = SetWindowLong(tBox.hwnd, GWL_STYLE, DefaultStyle Or ES_UPPERCASE)

End Function

3、只允许小写：

Public Function LowerCaseOnly(tBox As TextBox)

Dim DefaultStyle As Long

DefaultStyle = GetWindowLong(tBox.hwnd, GWL_STYLE)

LowerCaseOnly = SetWindowLong(tBox.hwnd, GWL_STYLE, DefaultStyle Or ES_LOWERCASE)

End Function

当然上边三个函数可以合成一个函数，因为他们方法是一样的，只是风格参数不同而已。

vb.net中如何将文本字体加粗

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

当前标题：vb.net_字体加粗 vb字体加粗后取消加粗
本文地址：http://myzitong.com/article/doedoss.html