CodeItBetter Programming Another VB Programming Blog

How to Make a TextBox accept only digits using API

Posted on November 30, 2011
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
'Controls - How to Make a TextBox accept only digits using API
'Use the SetWindowLong API function to set the TextBox's extended style to
'include ES_NUMBER. Then subclass the control to monitor its messages.

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, _
    ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, _
    ByVal nIndex As Long) As Long
 
Private Const GWL_STYLE As Long = (-16)
Private Const ES_NUMBER As Long = &H2000
 
Private Sub Form_Load()
    Dim style As Long
 
    ' Get the current style.
    style = GetWindowLong(Text1.hwnd, GWL_STYLE)
 
    ' Add ES_NUMBER to the style.
    SetWindowLong Text1.hwnd, GWL_STYLE, style Or ES_NUMBER
End Sub
Filed under: Controls Leave a comment
Comments (0) Trackbacks (0)

No comments yet.


Leave a comment


 

No trackbacks yet.