Article ID: 182231
Article Last Modified on 5/13/2003
TreeView1.Nodes(40000) refers to node 40000.
Option Explicit
Private Const TVM_GETCOUNT = &H1105&
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 Sub Command1_Click()
Dim lngCnt As Long
Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(, , "R", "Root")
For lngCnt = 1 To 32766
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C" & lngCnt, _
"Child " & lngCnt)
If lngCnt Mod 1000 = 0 Then 'refresh
Text1.Text = lngCnt
DoEvents
End If
Next
Text1.Text = TreeView1.Nodes.Count
MsgBox "Nodes count: " & TreeView1.Nodes.Count
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C" & lngCnt, _
"Child " & lngCnt)
MsgBox "Nodes count: " & TreeView1.Nodes.Count
MsgBox "Actual Node Count: " & SendMessage(TreeView1.hwnd, _
TVM_GETCOUNT, 0, ByVal 0)
End Sub
Additional query words: scroll bar maximum limitation kbVBp400bug kbVBp500bug kbVBp600bug kbControl kbVBp kbdsd kbDSupport
Keywords: kbbug kbpending kbgrpdsvb KB182231