كيف اظهر النافذة الرئيسية خلف نافذة تسجيل الدخول؟ دون ان تكون النافذة الرئيسية مفعلة الا بعد الدخول؟؟
كيف اظهر النافذة الرئيسية خلف نافذة تسجيل الدخول؟
مغلق
____________________________________________________________________________
{ اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ } سورة الأنبياء (1)
____________________________________________________________________________
In a world without walls and fences, who needs Windows and Gates
اجعلي النافذة الرئيسية هي من تبدا بالعمل أولا ثم في حدث From_Load ضعي :
Login.Show 1
ليعمل على إضها النافذة الأب أولا اي الرئيسية ثم يستدعي نافذة تسجيل الدخول ورقم واحد يمنع تفعيل النافذة الأب حتى تنهي الإستجابة من النافذة المفتوحة .
بالتوفيق
التخصص : نظم معلومات - جامعة سبأ - اليمن
من مواضيعي :
السلسلة الذهبية في تعلم البرمجة [شرح عن الإجراءات والدوال function وبناء الـ Classes] .
شكرا للجميع على الردود
Alaa Awaad فعلا المثال المرفق هو ما اعنيه ولكن الكود غير واضح؟؟
فواز الشمري جربت طريقتك ولكن لم يحدث اي تغيير؟؟
لنفرض:
1- الفورم الرئيسية هي الفورم الاب (اي النافذة الرئيسية للبرنامج) (ويجب ان تكون هي الاولى في الظهور اي ان الخاصة Startup Object للمشروع تكون هي الفورم الرئيسية)
2- فورم فرعية هي الفورم التي تطلب كلمة مرور مثلا للدخول.
نقوم بكتابة الكود التالي في حدث الـ Load للفورم الرئيسية:
Private Sub Form_Load() childForm.Show 1 End Sub
حيث اننا نطلب ظهور الفورم الثاني وتقوم القيمة 1 بتفعيل الخاصة modal اي تمنع امكانية الوصول الى اي عنصر اخر في البرنامج قبل اغلاق النافذة الحالية وبالتالي يمكن الان طلب كلمة مرور في الفورم الثاني فان تحققت استخدمنا unload me لاغلاق النافذة الفرعية والوصول مرة اخرى للرئيسية وفي حال العكس استخدمنا مثلا end لاغلاق البرنامج بالكامل.
هذا ما اراد الاخوة توضيحه.
تحياتي
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
أختي الفاضلة:
بالنسبة لحل الأخ فواز الشمري و تفسيره من الأخ الفاضل Xacker فهو صحيح 100% , و بالنسبة للكود الذي قمت بإرفاقه في الملف المرفق فشرحه كالتالي:
Private Sub Form_activate() If l1.Caption = "" Then Call disable_form Form2.Show Else Call enable_form End If End Sub
وضعنا في الفورم الرئيسي أداة عنوان ( Label ) و أسميناها ( L1 ) و جعلنا خاصيه الـ Visible لها False ثم قمنا بتحميل الفورم الرئيسي و نضع في الحدث Form_Activate الكود الذي يقوم بالتأكد من أن الأداة (L1) فارغة , فإذا كانت فعلا فارغة نقوم بتحميل فورم الباسوورد أو كلمة المرور و هي هنا بإسم Form2 , و نقوم بإستدعاء الـ Sub الذي قمنا بإنشائه لجعل كل الأدوات غير مفعلة (Enabled = false) و قد وضعنا الكود في الحدث Activate للفورم الرئيسي لكي نجعل الكود ينفذ في كل مرة يحاول المستخدم أن يضغط على أي شئ في الفورم الرئيسي .
ثم نضع الكود الخاص بالتحقق من إسم المستخدم و كلمة المرور في الفورم الثاني Form2 فإذا كانت صحيحة نجعل قمية الـ L1.Caption في الفورم الرئيسي = أي كلمة و لتكن Passed على سبيل المثال ثم نذهب إلى الفورم الرئيسي , في هذه المرة سيتحقق الكود الموجود في الفورم الرئيسي من قيمة الأداة L1 فيجدها ليست فارغة فيقوم بإستدعاء الـ Sub الذي قمنا بإنشائهلجعل كل الأدوات الموجودة في الفورم مفعلة (Enabled= true).
و اي إستفسار فأنا في الخدمة.
و لك مني جزيل الشكر,,, (h)
____________________________________________________________________________
{ اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ } سورة الأنبياء (1)
____________________________________________________________________________
In a world without walls and fences, who needs Windows and Gates
هذا الموضوع مغلق.