فتح نماذج من خلال قائمة منسدلة

[أ / محمد صالح]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
أولا أحب أن أشكر كل القائمين والمشاركين في هذا الصرح العلمي والتعليمي الفوق رائع
وأتوجه بالاستفسار عن
أريد عمل مربع تحرير وسرد عند الضغط على أحد أزراره أو أحد مكونات القائمة يقوم البرنامج بفتح نموذج معين وإذا ضغطت على الأخرى فتحت نموذجا آخر
هل أتمكن من ذلك؟!

[malkasoft10]

اخي الكريم بارك لله فيك

سيكون عن طريق select case

وهذا مثال بسيط على الموضوع

شكرا

حسان ملكاوي

db7.rar

[أ / محمد صالح]

بارك الله فيك أخي الكريم

ماذا لو أردت عرض النموذج في نموذج فرعي داخل النموذج الرئيسي أسفل القائمة المنسدلة يعرض كلا النموذجين في حالة طلب أي واحد منهم

أخوك

محمد صالح

[ykeen2010]

أخي العزيز :محمد صالح

اشكرك على طرحك لهذا السؤال

أخي العزيز : ملك سوفت 10

أشكرك على الأجابة لأني أستفدت منها

[أ / محمد صالح]

أين خبراء الأكسس

هل من مجيــــــــــــــــــــــــــــــــــــــــــــــــــــــب ؟

[يوسف أحمد]

بارك الله فيك اخي malkasoft10

اخي محمد صالح

اليك المرفق بعد التعديل

وبالتوفيق

db7.rar

[أبو عادل]

جزاكم الله كل خير للسائل والمجيب لكن ياليت نعرف كيف تم إنشاء أمر التبديل بالشرح

وجزاكم الله كل خير

[أ / محمد صالح]

فكرة رائعة وكود بسيـــــــــــــــــــــط

بارك الله فيك أخي العزيز

[يوسف أحمد]

واياكم اخي mfawaz

يتم في البداية وضع النموذجين الفرعيين على النموذج الرئيسي وضبط خصائصهما التالية لتحمل نفس القيم

الخاصية Width وهي خاصية تحدد عرض النموذج يتم مساواة هذه القيمة للنموذجين ليكونا بنفس العرض

الخاصية Hight وهي خاصية تحدد ارتفاع النموذج يتم مساواة هذه الخاصية للنموذجين ليكونا بنفس الارتفاع

الخاصية Top وهي خاصية تحدد نقطة بعد النموذج الفرعي العلوية من النموذج الرئيسي اي المسافة بين قمة النموذج

الرئيسى وحافة النموذج الفرعي العلوية ... ويتم مساواة هذه الخاصية للنموذجين ليكونا على نفس البعد

الخاصية Left وهي خاصية تحدد نقطة بعد النموذج الفرعي من الحافة اليسرى للنموذج الرئيسي اي المسافة بين الحافة

اليسرى للنموذج الفرعي والحافة اليسرى للنموذج الرئيسي... ويتم مساواة هذه الخاصية للنموذجين ليكونا على نفس البعد

مما سبق يكون النموذجين الفرعيين بحجم واحد ومتطابقين تماما فوق بعضهما

يتم ضبط الخاصية Visible لكلا النموذجين بالقيمة False حتى يختفيا عند عرض النموذج الرئيسي

يتم وضع الكود ادناه بحدث عند الفتح للنموذج الرئيسي لتكون قيمة مربع التحرير والسرد فارغة ومن ثم يتم الاختيار

Me.combo0.value=""

ثم يتم استخدام اختيار الاوضاع او مايسمى Select Case للعمل على اخفاء واظهار النماذج الفرعية بالتناوب بناءً على قيمة مربع التحرير والسرد Combo0 وذلك بالسطر الاول للكود ادناه والذي يتم وضعه اما بحدث عند النقر او بحدث بعد التحديث لمربع التحرير والسرد

Select Case Combo0
Case "Hassan"
Me.Hassan.Visible = True
Me.Ahmed.Visible = False
Case "Ahmed"
Me.Ahmed.Visible = True
Me.Hassan.Visible = False
End Select

السطر الثاني ـــــ في الحالة الاولى ..... وعندما تكون قيمة مربع التحرير والسرد تساوي Hassan

السطر الثالث ـــــ يتم ضبظ خاصية Visible للنموذج الفرعي والمسمى حسان على القيمة True وهي القيمة التي تسمح للنموذج بالظهور

السطر الرابع ـــ يتم ضبط خاصية Visible للنموذج الفرعي والمسمى احمد على القيمة False وهي القيمة التي تخفي النموذج المحدد

السطر الخامس ــــ في الحالة الثانية ..... وعندما تكون قيمة مربع التحرير والسرد تساوي Ahmed

سيتم عمل نفس الشئ ولكن بالصورة العكسية بحيث يظهر النموذج المسمى احمد ويختفي النموذج المسمى حسان

لاحظ بأنني استخدمت اسماء النماذج في الشرح باللغة الانجليزية لان الاكواد عند نقلها بالمشاركات تتعامل مع المسميات العربية

بشكل مختلف لذا لجأت لهذا الاسلوب ولكنها تبقى في الكود كما هي .... ويفضل استخدام اللغة الانجليزية في الاسماء لتفادي

المشاكل البرمجية التي تحدث عند كتابة الاكواد.

ارجو ان اكون وفقت في الشرح وايصال الفكرة

وبالتوفيق

وفيك بارك اخي العزيز محمد صالح .. يبدو انني كنت مشغولاً بتحرير المشاركة ولم انتبه لردك

تم تعديل يونيو 22, 2007 بواسطه yousef

[sx1]

بسم الله الرحمن الرحيم

بارك الله فيك اخي الكريم

[أبو عادل]

سلمت وعشت أخي الكريم يوسف وربي يغفر لك ولوالديك ويدخلكم الجنة بإذن الله

شرح رائع من مشرف أروع

[sami40]

شرح رائع

وجزاك الله خير