[اليوم السابع]

(07-11-19, 05:23 AM)princelovelorn كتب :

السلام عليكم ورحمة الله وبركاته

لحل أول نقطة

أضبط خاصية anchor  للكنترول  panel6   الى الاتي  (Top, Bottom, Right)

وذلك لن يجعل قائمة الاعدادات الخاصة بك تتحرك

لحل ثاني نقطة 
في الكود التالي

كود :

 Public Sub gonewform(ByRef frm As Form)
       'هنا أنت قمت بمسح كل الكنترول في البانل ومنها قائمة الsetting الخاصة بك


       '  Panel6.Controls.Clear()

       ' بدلا من ذلك نقوم بتشغيل ال TIMER لأخفاء القائمة
       Timer1.Start()

       frm.TopLevel = False
       Panel6.Controls.Add(frm)
       frm.Show()
   End Sub

أنت قمت بمسح كل الكنترول الموجودة في panel6 في بداية تنفيذ الكود  وبالتالي مسحت قائمة الأعدادات الخاصة بك

ولتفادي ذلك أقترح إنك تشغل timer1  لأنه سيقوم بالكشف على قائمة الاعدادات لديك وبالتأكيد سيجدها مفتوحة وسيقوم بغلقها

تمنياتي لك بالتوفيق والنجاح

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