الان كما استخدام اداه ال 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
تنزيل الملف