- Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
- Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
- Private Const GWL_STYLE As Long = -16
- Private Const ES_NUMBER As Long = &H2000
- Private Sub Form_Load()
- Dim lOldStytle As Long
- Dim ret As Long
- lOldStytle = GetWindowLong(Text1.hwnd, GWL_STYLE)
- lOldStytle = lOldStytle Or ES_NUMBER
- ret = SetWindowLong(Text1.hwnd, GWL_STYLE, lOldStytle)
- End Sub
让TextBox只允许输入数字
最新推荐文章于 2023-04-11 09:14:25 发布
本文介绍如何使用VBA通过调用Windows API函数GetWindowLong和SetWindowLong来改变窗体中Text1文本框的样式,使其支持数值输入功能。
648

被折叠的 条评论
为什么被折叠?



