Сообщение TVM_GETCOUNT

Const TV_FIRST = &H1100
Const TVM_GETCOUNT = (TV_FIRST + 5)

Сообщение TVM_GETCOUNT получает число узлов в TreeView

Возвращаемое значение

Сообщение TVM_GETCOUNT возвращает число узлов

Параметры

wParam
Установите равным 0
lParam
Установите равным 0

Пример

' Подсчитываем число узлов в TreeView
' Расположите на форме элемент TreeView
' (Project-Components-Microsoft Windows Common Controls 6.0)
Private Sub Form_Load()

Dim nodX As Node

Set nodX = TreeView1.Nodes.Add(, , "R", "Root")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3")
nodX.EnsureVisible
End Sub

Private Sub Command1_Click()

MsgBox "Число узлов: " & SendMessage(TreeView1.hwnd, _
        TVM_GETCOUNT, 0, ByVal 0)

End Sub

Категория

TreeView