devxlogo

ClearTreeViewNodes – Quickly delete all the nodes in a TreeView controls

ClearTreeViewNodes – Quickly delete all the nodes in a TreeView controls

Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _    (ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, _    ByVal lParam As Long) As LongPrivate Const WM_SETREDRAW As Long = &HBPrivate Const TV_FIRST As Long = &H1100Private Const TVM_GETNEXTITEM As Long = (TV_FIRST + 10)Private Const TVM_DELETEITEM As Long = (TV_FIRST + 1)Private Const TVGN_ROOT As Long = &H0' Quicky clear the treeview identified by the hWnd parameterSub ClearTreeViewNodes(ByVal hwnd As Long)    Dim hItem As Long        ' lock the window update to avoid flickering    SendMessageLong hwnd, WM_SETREDRAW, False, &O0    ' clear the treeview    Do        hItem = SendMessageLong(hwnd, TVM_GETNEXTITEM, TVGN_ROOT, 0)        If hItem <= 0 Then Exit Do        SendMessageLong hwnd, TVM_DELETEITEM, &O0, hItem    Loop        ' unlock the window    SendMessageLong hwnd, WM_SETREDRAW, True, &O0End Sub

See also  How HealthStream Learning Center Supports Healthcare Education and Compliance
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist