让TextBox只允许输入数字

最新推荐文章于 2024-08-04 03:08:13 发布

转载最新推荐文章于 2024-08-04 03:08:13 发布 · 719 阅读

文章标签：

7 篇文章

订阅专栏

本文介绍如何使用VBA代码通过调用GetWindowLong和SetWindowLong函数来修改Windows窗口元素的样式属性，具体实现了在VBA环境下将指定文本框设置为仅接受数字输入的功能。

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