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
当然上边三个函数可以合成一个函数,因为他们方法是一样的,只是风格参数不同而已。
推荐于2017-10-02
斜体 Label1.FontItalic = true
下划线 Label1.FontUnderline = true
2013-07-08
Text1.FontItalic = True
广告 您可能关注的内容 |