في المشروع المرفق كل شئ
اريد تعديل الاتي
1- الضغط علي الايقونه المرفقه بجانب كلمه منيو وثم الضغط علي الايقونه المرفقه بجانب كلمه سيتنج سيظهر قائمه منسدله ثم الضغط ثانيا علي الايقونه المرفقه بجانب كلمه منيو سنلاحظ ان القائمه المنسدله تتحرك يمين ويسار عند الضغط علي الايقونه المرفقه بجانب كلمه منيو انا اريدها ثابتها ليس لها علاقه بحركه المنيو
2- عند الضغط الايقونه المرفقه بجانب كلمه سيتنج سيظهر قائمه منسدله ثم الضغط ثانيا علي كلمه ادد اكونت ستختفي ويظهر الادوات الخاصه بالفورم
عند الضغط الايقونه المرفقه بجانب كلمه سيتنج ثانيا لن تظهر انا اريدها تظهر عند الضغط بأستمرار
(06-11-19, 01:44 PM)اليوم السابع كتب : [ -> ]في المشروع المرفق كل شئ
اريد تعديل الاتي
1- الضغط علي الايقونه المرفقه بجانب كلمه منيو وثم الضغط علي الايقونه المرفقه بجانب كلمه سيتنج سيظهر قائمه منسدله ثم الضغط ثانيا علي الايقونه المرفقه بجانب كلمه منيو سنلاحظ ان القائمه المنسدله تتحرك يمين ويسار عند الضغط علي الايقونه المرفقه بجانب كلمه منيو انا اريدها ثابتها ليس لها علاقه بحركه المنيو
2- عند الضغط الايقونه المرفقه بجانب كلمه سيتنج سيظهر قائمه منسدله ثم الضغط ثانيا علي كلمه ادد اكونت ستختفي ويظهر الادوات الخاصه بالفورم
عند الضغط الايقونه المرفقه بجانب كلمه سيتنج ثانيا لن تظهر انا اريدها تظهر عند الضغط بأستمرار
اخواني اريد المساعده ارجوكم اتمني النظر للمشروع
السلام عليكم ورحمة الله وبركاته
لحل أول نقطة
أضبط خاصية 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 لأنه سيقوم بالكشف على قائمة الاعدادات لديك وبالتأكيد سيجدها مفتوحة وسيقوم بغلقها
تمنياتي لك بالتوفيق والنجاح
(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 لأنه سيقوم بالكشف على قائمة الاعدادات لديك وبالتأكيد سيجدها مفتوحة وسيقوم بغلقها
تمنياتي لك بالتوفيق والنجاح
احسنت ولكن يوجد مشكله وهي العناصر السابقه لن تختفي من البانل حتي تستقبل عناصر اخري وسيترتب علي هذا ان كل الكنترول سوف تكون فوق بعض
ممكن تحدد الكنترول والعناصر وتتعامل معها بنفس الطريقة عن طريق خاصية Visible مثلا
وعلى فكرة عند إستدعاء الفورم في الكود السابق يجب عليك وضع إختيار لغلقه واعتقد ان ده حل ايضا لنفس المشكلة
(07-11-19, 07:10 AM)princelovelorn كتب : [ -> ]ممكن تحدد الكنترول والعناصر وتتعامل معها بنفس الطريقة عن طريق خاصية Visible مثلا
وعلى فكرة عند إستدعاء الفورم في الكود السابق يجب عليك وضع إختيار لغلقه واعتقد ان ده حل ايضا لنفس المشكلة
طب ممكن بدون تكليف تعرفني كيف علي المشروع هو مرفق