26-09-24, 08:51 PM
(26-09-24, 06:09 PM)Abdellah كتب : شكرا أخي على الرد لقد جربت عدة أشياء ولاكن بدون جدوى عندي شيئا ربما يكون السبب
عندي Module لضبط حجم الفورم حسب كل الشاشات هل تريد مثال لترى بعينيك
يوجد لكل أداة تستطيع وضعها على النافذة خاصية اسمها (Anchor)
تستخدم لتحجيم أو تثبيت موقع الأداة من النافذة :
إما جهة اليسار دوماً أو اليمين دوماً ..
أو التكبير من جهتي اليمين واليسار والتثبيت لجهة العلوية أو السفلية
أو التحجيم بـ التصغير/التكبير مع تصغير/تكبير النافذة ..
أو التثبيت من جهتي العلوية والسفلية مع التثبيت من جهتي اليسار أو اليمين ...
هل جربت أن تستخدم هذه الخاصية بدلاً من استخدام كود تحجيم كل الأدوات مرة واحدة ؟؟؟
أليس من الأفضل الاعتماد على الخصائص الموجودة إفتراضياً مع الأدوات من استخدام أكواد بديلة ؟؟!!!
جرب أن تعتمد على هذه الخاصية بدلا من الكود البديل ..
وجرب هل ستظهر النافذة أسرع مع الأدوات التي عليها .. أم كلا الأمرين سيان !!! ...
إن كانت المشكلة عندك مشكلة احتواء :
- فيك تضع في حدث التحجيم لكل نافذة تريد إظهارها ضمن الـ Panel الكود التالي (مثلا تريد اظهار Form2 تريد اظهارها في الـ Panel النافذة Form1):
كود :
Private Sub Form2_Resize(sender As Object, e As EventArgs) Handles Me.Resize
Me.Size = Form1.Panel1.Size
End Subوضمن حدث التحجيم للنافذة التي فيها الـ Panel الكود التالي (مثلا Form1 فيها الـ Panel) :
كود :
Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
If Me.WindowState = FormWindowState.Minimized Then Exit Sub
For Each frm As Form In Panel1.Controls
frm.Size = Panel1.Size
Next
End Subقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
