الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

How to Active,Min,Max an opened form By Code

مغلق
بدأه seahmad في 28 يوليو 2005 · 4 رد · 596 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

إخواني حياكم الله جميعا واعلمو أني أحبكم في الله

سؤالي يتعلق بمشروع يحتوي على قائمة رئيسية من خلالها يتم فتح النماذج وأريد حينما يقوم المستخدم بفتح النموذج أكثر من مرة أن أضع الفوكس على النموذج المفتوح مسبقا وإذا كانت مصغر أقوم بتكبيره.

فكيف من خلال الكود يمكنني تصغير أو تكبير النموذج أو جعله آكتيف Active وذلك أثناء التشغيل ؟

فلسطين الزاهية بألوان الحب والسلام

ذلك الطعم الزيتوني الذي يتدفق عسلاً من أفواه بساتينها وحدائقها

تشتاق إليها نفوس المتقين وترنوا للسجود فيها جباه المسلمين

#2

السلام عليكم

حي الله أخونا العزيز seahmad

بالنسبة للسؤال الأول غير واضح المطلب منه ( نورنا الله ينور عليك)

هل تقصد التركيز focus على القائمة التي تظهر هذا النموذج أم أن هنالك أكثر من نموذج يفتحن أثناء تحميل المشروع

و تريد أن تضع التركيز على أحدهم أو أكثرهم إستعمال ؟ أوووو والمعنى في بطن الشاعر seahmad

أنتظر التوضيح

السؤال الثاني فقط إستخدم الخاصية مع الشرط if

  If Form.WindowState = FormWindowState.Minimized Then
            Form.WindowState = FormWindowState.Normal
        End If

السلام عليكم

في المثال يتضح المقال

#3

وعليكم السلام ورحمة الله وبركاته

نريد بركاتك في المنتدى وتستاهل اللقب يالحبيب وازود بعد

اقتباس
( نورنا الله ينور عليك) ... أم أن هنالك أكثر من نموذج يفتحن أثناء تحميل المشروع

الله ينور علينا وعليك .. جزاك الله خير

تقريبا ماذكرت والكود الذي أدرجته هو المطلوب وقد حلت مشكلتي والحمد لله

( وعفوا كنت لا أقصد الفوكس لأنه خاص بالكونترول ولكن أقصد آكتيف لأنه خاص بالفورم)

ولجعل الفورم آكتيف من بين عدة نماذج مفتوحة لنفس المشروع:

Form1.Select

مشكور والسلام عليكم ورحمة الله وبركاته

فلسطين الزاهية بألوان الحب والسلام

ذلك الطعم الزيتوني الذي يتدفق عسلاً من أفواه بساتينها وحدائقها

تشتاق إليها نفوس المتقين وترنوا للسجود فيها جباه المسلمين

#4

بالنسبة لتنشيط الفورم إذا كان مفتوحاً من قبل (وهذه الشفرة بافتراض أنك تتعامل مع الـ MDI Form )

 Dim formExists As Boolean = False
        For Each childForm As Form In Me.MdiChildren
            If TypeOf childForm Is YourFormName Then
                formExists = True
                childForm.Activate()
                Exit For
            End If
        Next
        If Not formExists Then
            Dim frm1 As New YourFormName 
            frm1.MdiParent = Me
            frm1.Show()
        End If

مع ملاحظة أن YourFormName يمثل اسم الفورم الذي تريد فتحه أو تنشيطه إذا تم فتحه من قبل ..

والله الموفق

#5

إضافة رائعة ومطلوبة ، نورت أخ Ammar Gaffar جزاك الله خير

فلسطين الزاهية بألوان الحب والسلام

ذلك الطعم الزيتوني الذي يتدفق عسلاً من أفواه بساتينها وحدائقها

تشتاق إليها نفوس المتقين وترنوا للسجود فيها جباه المسلمين

هذا الموضوع مغلق.

مواضيع مشابهة