استخدام اداه ال Task panel

الان كما استخدام اداه ال Task panel وهى اضافة ادوات اخرى الى الاداه



من مميزات تلك الادوات(لا اعرف اذا كانت ميزة او عيب بالنسبة لكم ) انك تفعل كل شئ بها وقت ال Run time اى انها مرنة جدا

احببت ان اقدم مثال خفيف ليس فيه الا مربع نص ليكون سهل عليكم فكان من المفروض ان نصمم نافذة البحث الخاصة بالاكسبلورر


ناتى لكتابة الاكواد وتحليلها

الكود:

Dim Groub As TaskPanelGroup

عمل تعريف كائن على الكلاس Taskpanelgroub ليتم التعامل مع المجموعات المختلف

الكود:


Dim Item As TaskPanelGroupItem

وهنا للتعامل مع كائنات المجموعة

الكود:

Set Groub = TaskPanel1.Groups.Add(0, "Educating Simble")

لاضافة المجموعة فى الاداه واعطائها الرقم التعريفى

الكود:

Set Item = .Add(2, "", xtpTaskItemTypeControl)
        Set Item.Control = Text1

هذا هو الجذئ المهم عندنا موضوع اليوم

بدل استخدام نوع الايتم لينك يتم تعريفه على انه xtpTaskItemTypeControl اى انك تقول للاداه ان ما سياتى عبارة عن اداه اخرى

فى الجذئ الثانى من الكود

الكود:

Set Item.Control = Text1

تنزيل الملف