现在的位置: 首页 > 综合 > 正文

让TextBox只允许输入数字

2013年12月01日 ⁄ 综合 ⁄ 共 586字 ⁄ 字号 评论关闭
  1. Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As LongByVal nIndex As LongAs Long
  2. Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As LongByVal nIndex As LongByVal dwNewLong As LongAs Long
  3. Private Const GWL_STYLE As Long = -16
  4. Private Const ES_NUMBER As Long = &H2000
  5. Private Sub Form_Load()
  6.     Dim lOldStytle As Long
  7.     Dim ret As Long
  8.     lOldStytle = GetWindowLong(Text1.hwnd, GWL_STYLE)
  9.     lOldStytle = lOldStytle Or ES_NUMBER
  10.     ret = SetWindowLong(Text1.hwnd, GWL_STYLE, lOldStytle)
  11. End Sub

抱歉!评论已关闭.