Developer.com content and product recommendations are editorially independent. We may make money when you click on links to our partners. Learn More.
This treeview tip again uses the SendMessage API call to find the edit window in the treeview and then send a message to it, the ES_NUMBER message to only allow numbers.
Private Declare Function SendMessage _
Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal _
wParam As Long, _
lParam As Any) As Long
Private Const TV_FIRST = &H1100
Private Const TVM_GETEDITCONTROL = _
TV_FIRST + 15
Private Const ES_NUMBER = &H2000
Private Sub NumbersOnly(tvw As Treeview)
Dim lngHwnd As Long
lngHwnd = SendMessage(tvw.hwnd, _
TVM_GETEDITCONTROL, _
0, 0)
If lngHwnd <> 0 Then
SendMessage lngHwnd, ES_NUMBER, 0, 0
End If
End Sub
