السلام عليكم...
أحياناً قد تكون لديك مجموعة كبيرة من المكونات و تريد تجميعها في مربع واحد (Frame أو PictureBox مثلاً) لكنك تريده بحجم محدود مع وجود أشرطة تدرج (Scroll Bars) بحيث تستطيع تحريك مجموعة المكونات في مختلف الاتجاهات، لكن VB6 لا تملك مثل هذا المربع.
المشروع المرفق يستعمل فكرة بسيطة - دون استعمال مكونات خارجية - حيث يحتوي على Class Module (اسمها TGroupBoxManager.cls) يمكنك إضافتها إلى أي مشروع.
في الـ Form التي تريد أن تنشئ فيها مربع تجميع مكونات (GroupBox) تحتاج إلى مكونين اثنين من الـ PictureBox. الأول تضع به المكونات التي تريدها و يكون حجمه حسب المكونات التي تريد وضعها داخله. أما الثاني فهو الذي يمثل الـ GroupBox حيث نجعل حجمه كما نريد و بما يتناسب مع تصميم النافذة.
في الإجراء Form_Load نكتب كود كالتالي:
- ' تعريف متغير يمثل مربع التجميع
- Private GB1 As New TGroupBoxManager
- Private Sub Form_Load()
- ' تهيئة مربع التجميع
- GB1.InitializeGroupBox Picture1, Picture2
- End Sub
و سيعمل كل شيء حسب المطلوب.
يمكنك إنشاء قدر ما تشاء من مربعات التجميع في نفس الـ Form أو في نوافذ أخرى.
نرجو الاستفادة و السلام.