حول أداة الشجرة TreeView

يا جماعة أنا أنتظر الرد

كيف يمكنني حذف جميع عقد الشجرة بسرعة كبيرة؟؟

dim node as Node
for each node in treeview1.nodes

treeview1.nodes.remove(node.index)
next node

مشكور أخ Maverick

في الواقع لم أكن أتوقع أبداً أن حذف العقدة بهذه الطريقة أسرع من إستعمال المنهج Clear حتى أني لم أجربها.

ولا انا بس لازم نجرب في يوم من الايام

إذا اردت حذف الشجرة باسرع ما يكون فاستخدم الكود التالي :

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 Long
Private Const WM_SETREDRAW As Long = &HB
Private Const TV_FIRST As Long = &H1100
Private Const TVM_GETNEXTITEM As Long = (TV_FIRST + 10)
Private Const TVM_DELETEITEM As Long = (TV_FIRST + 1)
Private Const TVGN_ROOT As Long = &H0


' استخدم الروتين التالي ومرر المقبض للشجرة 
Sub ClearTreeViewNodes(ByVal hwnd As Long)
    Dim hItem As Long
    
    ' منع حركة الشجرة أثناء الإزالة
    SendMessageLong hwnd, WM_SETREDRAW, False, &O0

    ' إزالة الشجرة
    Do
        hItem = SendMessageLong(hwnd, TVM_GETNEXTITEM, TVGN_ROOT, 0)
        If hItem <= 0 Then Exit Do
        SendMessageLong hwnd, TVM_DELETEITEM, &O0, hItem
    Loop
    
    ' إعادة النوافذ للوضع الطبيعي
    SendMessageLong hwnd, WM_SETREDRAW, True, &O0
End Sub

رغم أنني انصعقت عندما عرفت أن حذف العقد (خاصة العقد الجذرية ) ضمن حلقة For أسرع من المنهج Clear (الغبي جداًً جداًً و العديم الفائدة و الحال هذه) كما نوه الأخ Maverick, فهذا آخر ما كان يخطر ببالي , إلا أن ما قدمته أخ مجرد إنسان هو بالضبط 100% ما كنت أبحث عنه

Thanks