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

高手解答下谢谢... 高手解答下谢谢 展开
 我来答
蚂蚁爱吐槽
高粉答主

推荐于2019-09-04 · 说的都是干货,快来关注
知道大有可为答主
回答量:463
采纳率:100%
帮助的人:42.4万
展开全部

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.FontBold = True
斜体 Label1.FontItalic = true
下划线 Label1.FontUnderline = true
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2013-07-08
展开全部
Text1.FontBold = True
Text1.FontItalic = True
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式