هذه الاداه مهمه فى تنظيم البرنامج لو كان فيه استعراض لملفات او اشياء متشعبه من بعض , كما تعطى مظهر جمالى
كيف تدرج الاداه:
....................
كيفيه تنظيم الشكل الشجرى :
.............................
1- الطريقه الاولى :
..........................
تعريفات:
............
Node: العقده او النقطه اللى بيضرب عليها الميتخدم كليك
Relative: عباره عن العقده المنسوبه الليها (الاب) العقده الحاليه (الابن)
Relationship: نوع العلاقه بين الاب ولابن
Key : المفتاح وهو بمثابه خاصيه النيم بس بالنسبه للعقده, وهو عباره عن الاسم التى تعرف بيه العقده بين العقد الاخرى
Text: وهو النص الذى يظهر على الشاشه مجاور للعقده
Image : وهى الصوره الاصليه للعقده فى حاله عدم اختيارها من المستخدم
Selected image : وهى الصور التى ستظهر عند اخيار العقدة من قبل المستخدم
ديه معنى المصطلحات اللى بتظهر اثناء تنظيم الشكل الشجرى .. ولو مفهمتش , بالتطبيق كل شى حيكون واضح ان شاء الله.
طريقه كتابه الكود :
.......................
Treeview.Nodes.Add , Relative,Relationship,Key,Text,image,Selecteimage
مثال 1 :
...........
TreeView1.Nodes.Clear TreeView1.Nodes.Add , , "ch1", "Mohmed Family" TreeView1.Nodes.Add "ch1", tvwChild, "ch2", "Kariem" TreeView1.Nodes.Add "ch1", tvwChild, "ch3", "Asm3iel" TreeView1.Nodes.Add "ch1", tvwChild, "ch4", "Morsee" TreeView1.Nodes.Add "ch1", tvwChild, "ch5", "TOTO"
وسيكون الناتج:
................
ملاحظات :
................
1- عند تعريف الاب فلا هو منسوب لاحد ( فليس له اب ) , ولذالك لاتوجد له علاقه باحد يسبقه فتكتب اول خانتين هكذا , , .
2- يمكنك اختيار المفتاح كما تشاء , ولكن من الافضل ان اتختاره دال على موضوع حتى لا تحصل لخبطه ..
3- ممكن ان يكون الابن اب لابناء اخرين , فمثلا لو كنا عاوزين نخرج مثلاا من Kariem ابن اسمه Ahmed فنضيف الكود:
TreeView1.Nodes.Add "ch2", tvwChild, "ch6", "Ahmed"
كيفيه عرض الصور:
.........................
لو كنت حاولت مع الاداه ديه قبل كده ودخلت فى قائمه Customize كنت حتلاقى حاجه اسمها Picture بس ديه مش اللى احنا عاوزينها..
الصوره ديه عباره عن ايقونه الماوس لما يمر على الاداه وكمان مش حتظهر الايقونه ديه الا لو كانت الخاصيه Mousepointer=99 للاداه
>>>> فالادراج الصور واستخدامها بجوار العقد نستخدم الاداه ImageList .. وهى تم ادراجها مع الاداه TreeView - راجع الصوره الاولى-.
خطوات العرض :
........................
1- اهم خطوه فى الموضوع انك تربط الTreeView بال ImageList ....كما فى لاصوره من خاصيه Customize فى الTreeView ونختار الImageList بتاعتنا..
2- افتح خاصيه Customize لImageList واختار Picture ومنها اختار Insert Pictures واضف الصور اللى انتا عاوزها , ومتنساش تكتب اسم خاص للصوره فى المربع اللى اسمه Key علشان نقدر نتعامل معاها فى الTreeView.
3- تعديل الكود السابق باستخدام خاصيتى Image وSelectedImage لعرض الصوره كما تريد وسيصبح الكود :
TreeView1.Nodes.Clear TreeView1.Nodes.Add , , "ch1", "Mohmed Family", "KOKO" TreeView1.Nodes.Add "ch1", tvwChild, "ch2", "Kariem", "SOSO" TreeView1.Nodes.Add "ch1", tvwChild, "ch3", "Asm3iel", "SOSO" TreeView1.Nodes.Add "ch1", tvwChild, "ch4", "Morsee", "SOSO" TreeView1.Nodes.Add "ch1", tvwChild, "ch5", "TOTO", "SOSO" TreeView1.Nodes.Add "ch2", tvwChild, "ch6", "Ahmed", "SOSO"
وسيكون الناتج :
الطريق الثانيه :
..................
TreeView1.Nodes.Clear
Dim k As Node
Set k = TreeView1.Nodes.Add
With k
.Text = "Mohmed Family"
.Key = "ch1"
.Image = "KOKO"
.SelectedImage = "TOTO"
End With
Set k = TreeView1.Nodes.Add
With k
.Text = "Ahmed"
.Key = "ch2"
Set .Parent = TreeView1.Nodes("ch1")
.Image = "KOKO"
.SelectedImage = "TOTO"
End With
Set k = TreeView1.Nodes.Add
With k
.Text = "Bor3e"
.Key = "ch3"
Set .Parent = TreeView1.Nodes("ch1")
.Image = "KOKO"
.SelectedImage = "TOTO"
End With
Set k = TreeView1.Nodes.Add
With k
.Text = "Osman"
.Key = "ch4"
Set .Parent = TreeView1.Nodes("ch1")
.Image = "KOKO"
.SelectedImage = "TOTO"
End Withلا تختلف عن الطريقه الاولى .... بس كل اللى فيها:
1- عرفت متغير نوعه " عقده" ..حلوه عقده اووى...
2- خليت الK بيمثل الامر العادى بتاع اضافه عقده وهذا كله للتسهيل فقط.... ولو عاوز تكتب الكود فى كل سطر براااحتك..
3- وكلنا عارفين With واللى مش عرفها تعالى نفتكرها :
..........................................................................
لو احنا عندنا TextBox وعاوزين نغير كذا حاجه فيه مثلا ..النص اللى فيه , حجم الخط , خط تخين ...
حنكتبها ازاى:
........................
Text1.Text = "KoO" Text1.FontBold = True Text1.FontSize = 20
ودول حبه صغيرين افرض انك عاوز تغير حاجات كتيره
فاستخدمنا With للتسهيل :
....................................
With Text1 .Text = "kok" .FontBold = True .FontSize = 20 End With
4- ومنها نظبط الخواص زى ما اتفقنا مع ملاحظه:
................................................................
عند ربط عقده ابن بعقده اب نستخدم
Set .Parent = TreeView1.Nodes("ch1")حيث الch1 هو الKey للعقده الاب ...
5- الفرق بين الطريقتين....
الطريقه الاولى : بتعرض الاب او الاباء فقط ولتعرض الابناء يجب ان تضغط عليهم
الطريقه الثانيه : بتعرض كل اب والابناء المتفرعين منه
وكل طريقه وحسب احتاجك فى البرنامج .. وارجو ان اكون وفقت فى الشرح.... واى استفسار انا موجود...
ملاحظه:
..........
المشروع المرفق فيه الطريقتين.
