تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] سؤال خاص ب mdi form
#1
السلام عليكم ورحمة الله وبركاته

لدي ثلاثة أسئلة :

١- كيف يمكن توسيط الفورم الابن داخل mdi form مع الأخذ بالاعتبار تغيير حجم الفورم ؟
٢- كيف يمكن تمديد صورة الخلفية داخل mdi form مع الأخذ بالاعتبار تغير حجم الفورم ؟
٣- كيف يمكن الحصول على ابعاد الشاشة الحالية وتغييرها وإعادتها للوضع الأصلي بعد إغلاق البرنامج ؟
الرد
تم الشكر بواسطة:
#2
السلام عليكم...

* إجابة السؤال الأول: توسيط MDI Child داخل الـ MDI Form:

رغم أن نافذة الخصائص لا تظهر الخاصيتين ScaleWidth و ScaleHeight للنافذة MDI Form إلا أن كلاً من الخاصيتين موجودة كخاصية وقت التنفيذ (Run-time only property) أي يمكن استعمالها بالكود:

* تم تعديل و اختصار الكود بعد مشاهدة مشاركة الأخ AL_BRINS التالية - مشكوراً جداً.

كود :
' في قسم التصريحات العام

' إجراء لتوسيط النافذة الابن مع تمرير اسمها
Private Sub CenterMdiChild(AForm As Form)
    AForm.Move (Me.ScaleWidth - AForm.Width) / 2, (Me.ScaleHeight - AForm.Height) / 2
End Sub

' إجراء لتوسيط النافذة الابن النشطة
Private Sub CenterActiveMdiChild()
    If Not (Me.ActiveForm Is Nothing) Then
        CenterMdiChild Me.ActiveForm
    End If
End Sub

* جزء من السؤال الثالث:
يمكنك الحصول على عرض (Width) و ارتفاع (Height) الشاشة باستعمال خصائص الكائن Screen:

كود :
Dim WTwips As Siingle     ' العرض بوحدة التويب
Dim HTwips As Siingle      ' الارتفاع بوحدة التويب
Dim WPixels As Long        ' العرض بوحدة البكسل
Dim HPixels As Long         ' الارتفاع بوحدة البكسل

WTwips = Screen.Width
HTwips = Screen.Height

WPixels = Screen.Width \ Screen.TwipsPerPixelX
HPixels = Screen.Height \ Screen.TwipsPerPixelY

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد
#3
وعليكم السلام ورحمة الله وبركاته

بعد الشكر للاستاذ ناجي ابراهيم

هذا جواب السؤال الثاني


الملفات المرفقة
.rar   MDIForm_Resizebackground picture.rar (الحجم : 82.69 ك ب / التحميلات : 169)
الرد
تم الشكر بواسطة: ناجي إبراهيم , Amir_alzubidy
#4
السلام عليكم...

رائع جداً... ممتاز يا أخ AL_BRINS.

لم أنتبه إلى أن النافذة MDI Form تملك الخاصيتين ScaleWidth و ScaleHeight (لأنهما لا تظهران في نافذة الخصائص) إلا بعد الاطلاع على الكود الذي أرفقته.

شكراً و السلام عليكم.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد
تم الشكر بواسطة: AL_BRNS


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال عن كيفية ربط برنامج فجوال بيسي6 بقاعدة بيانات على النت amrou 4 275 19-09-18, 08:37 PM
آخر رد: amrou
  [سؤال] سؤال حول تحريك الصور VB6 Immortal73 10 428 02-08-18, 04:54 PM
آخر رد: alipro
  [VB.NET] سؤال كيفية تخزين ملف صوتي فsql server alipro 0 99 02-08-18, 05:09 AM
آخر رد: alipro
  ما أفضل طريقة لحفظ متغيرات ال Form بعد إغلاقها اسلام الكبابى 5 272 23-05-18, 04:09 AM
آخر رد: Amir_alzubidy
  [سؤال] سؤال مبتدي في موضوع الريجستري array-31 3 669 20-05-18, 11:20 PM
آخر رد: اسلام الكبابى
  [سؤال] سؤال حول فلكس اقريد gadr 8 854 14-04-18, 03:09 PM
آخر رد: Ashraf Elafify
Heart سؤال عن تطابق صورتين؟؟؟ KamelArab 0 201 05-04-18, 04:42 PM
آخر رد: KamelArab
  السلام عليكم سؤال ممكن اتحكم في قاعدة البيانات من جهاز اخر او عن النت محمد جبريل 1 266 21-03-18, 12:22 PM
آخر رد: ahmedabdelaliem
  سؤال عن ActiveReport عن الربط محمد حمد محمد 2 278 04-03-18, 01:00 AM
آخر رد: محمد حمد محمد
  سؤال أخير انشاء الله محمد حمد محمد 3 220 25-02-18, 04:11 AM
آخر رد: مصمم هاوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم