让TextBox只允许输入数字

VBA文本框数字输入

最新推荐文章于 2020-10-27 11:07:35 发布

原创最新推荐文章于 2020-10-27 11:07:35 发布 · 4.8k 阅读

5 ·

CC 4.0 BY-SA版权

文章标签：

#textbox #function #basic #user

本文介绍了一段Visual Basic for Applications (VBA)代码，该代码用于设置Microsoft Office应用程序中的文本框为数字输入模式。通过调用Windows API函数GetWindowLong和SetWindowLong，可以修改文本框的样式属性，使其只能接受数字输入。

Visual Basic Code

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