لما نستخدم العنصر Tree View ، ونرغب في جلب كل العناصر التي تتضمنها العنصر الرئيس بالشجرة يكون الأمر سهل جداً بكود مناسب له ، وتكون نتيجة عملية التنفيذ بالشكل التالي :
والكود المناسب لتنفيذ هذه المهمة كما يلي :
Private Sub tre_NodeCheck(ByVal Node As MSComctlLib.Node)
Dim nod As Node
Dim bolChecked As Boolean
bolChecked = Node.Checked
If Node.Children > 0 Then
Set nod = Node.Child
While Not (nod Is Nothing)
nod.Checked = bolChecked
tre_NodeCheck nod
Set nod = nod.Next
Wend
End If
End Sub♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥♥
لكنني حينما حاولت أن أستخدم الفكرة مع الأداة الرهيبة vsFlexGrid للأسف لم أتمكن من ذلك الي الآن علي الأقل
فعقلي لم يعد مكانه هذا التوقيت الصعب !!!
لكنني صنعت مثال به زر أمر ملون باللون الأحمر Command Button أرجو أن أجد مساعداتكم الكريمة في حل هذه المشكلة ، أكون شاكر أفضالكم
المثال بالمرفقات !!
