+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] فتح نموذج فيجوال بيسك 6.0 (/showthread.php?tid=21018)
فتح نموذج فيجوال بيسك 6.0 - حكاية وطن - 11-07-17
السلام عليكم ورحمة الله وبركاته
لو سمحتم عندي برنامج فيجوال بيسك 6.0 ويوجد فيه عدة شاشات، اريد عند فتح شاشة ان لا يسمح لي بأن فتح شاشة اخرى الا بعد اغلاق الشاشة التي قمت بفتحها
وشكرا جزيلا
RE: فتح نموذج فيجوال بيسك 6.0 - sendbad100 - 11-07-17
السلام عليكم
بفرض ان الفورم الرئيسي اسمه "Form_MDI"
عند فتح الفورم استخدم الكود التالي
PHP كود :
Form_MDI.Enabled = False
Form1.Show
وعند اغلاقة
PHP كود :
Form_MDI.Enabled = True
Unload Me
RE: فتح نموذج فيجوال بيسك 6.0 - Ahmed_Mansoor - 11-07-17
وعليكم السلام و رحمة الله و بركاته
أهلا بك أخي الكريم ، إضافة إلى ما قدمه أخي العزيز السندباد١٠٠ ، طريقة أخرى قم بتعريف متغير من نوع منطقي يعني قيمتة تكون إنا True أو False قم بتعريفه في موديل Module وعرفه كـ Public وليس بـ Dim العاديه وليكن إسم هذا المتغير هو IsAnyFormOpen ثم ضع هذا الكود في المكان الذي تشغل أو تظهر الفورم منه :
PHP كود :
IF IsAnyFormOpen = True Then Exit Sub
Form1.Show
IsAnyFormOpen = True
وهذا الكود ضعه في حدث الـ Form_Unload لكل فورم :
PHP كود :
IsAnyFormOpen = False
RE: فتح نموذج فيجوال بيسك 6.0 - حكاية وطن - 12-07-17
(11-07-17, 09:32 AM)sendbad100 كتب : السلام عليكم
بفرض ان الفورم الرئيسي اسمه "Form_MDI"
عند فتح الفورم استخدم الكود التالي
PHP كود :
Form_MDI.Enabled = False
Form1.Show
وعند اغلاقة
PHP كود :
Form_MDI.Enabled = True
Unload Me
شكرا على ردك الجميل
(11-07-17, 09:55 AM)Ahmed_Mansoor كتب : وعليكم السلام و رحمة الله و بركاته
أهلا بك أخي الكريم ، إضافة إلى ما قدمه أخي العزيز السندباد١٠٠ ، طريقة أخرى قم بتعريف متغير من نوع منطقي يعني قيمتة تكون إنا True أو False قم بتعريفه في موديل Module وعرفه كـ Public وليس بـ Dim العاديه وليكن إسم هذا المتغير هو IsAnyFormOpen ثم ضع هذا الكود في المكان الذي تشغل أو تظهر الفورم منه :
PHP كود :
IF IsAnyFormOpen = True Then Exit Sub
Form1.Show
IsAnyFormOpen = True
وهذا الكود ضعه في حدث الـ Form_Unload لكل فورم :
PHP كود :
IsAnyFormOpen = False
شكرا على ردك الجميل
RE: فتح نموذج فيجوال بيسك 6.0 - سعود - 12-07-17
مارايكم بالكود التالي:
Form2.Show 1
اليس هو المطلوب؟