07-11-19, 05:23 AM
السلام عليكم ورحمة الله وبركاته
لحل أول نقطة
أضبط خاصية 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 لأنه سيقوم بالكشف على قائمة الاعدادات لديك وبالتأكيد سيجدها مفتوحة وسيقوم بغلقها
تمنياتي لك بالتوفيق والنجاح
لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شئ قدير
سبحان الله وبحمده سبحان الله العظيم
سبحان الله والحمد لله ولا إله إلا الله والله أكبر ولا حول ولا قوة إلا بالله العلى العظيم
رب أغفر لي