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

عندي Forms متعددة كيف اشغلها بأمر As Form

مغلق
بدأه Sism في 3 نوفمبر 2003 · 5 رد · 970 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله والصلاة والسلام على من لا نبي بعده

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

اخوتي عندي مشكلة تؤرقني وهي ان عندي عدة Fomrs مختلفة وطبعا بأسماء مختلفة لنفس المشروع وارغب في تشغليها بشكل متغير حسب جملة If مثلا بمعني اوضح

حاولت ان اقوم بعملها كالتالي:-

Dim Form_Name as Form

dim MyFormName as string

MyFormName="Form1"

Form_Name.name=MyFormName

form_name.show

ولكن لا يقبل ان يغير اسم الفورم بهذه الطريقة وانا اريد ان اغيرها بهذا الشكل بوضع اسم الشاشة في متغير حتي يسهل علي مناداه اسم الشاشة بناء على جملة If Statment عندي تفيد الكود الذي اعمل عليه

فهل من طريقة تجعلني اقوم بمناده الشاشة بشكل متغير كل مرة بأسم الشاشة التي اريدها ؟؟؟

ارجو الرد على وجزاكم الله كل خير

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

#2

أخي أعمللك موديول على النحو التالي

Public Sub FormEvent (frmName as Form )
'ضع أجراءاتك هنا 

End sub

عند مناداتها من الشاشة المطلوبه 

Call FormEvent(ضع أسم الفورم هنا)

وهذا كل شي

وإذا أردت أن تضيف متغير عليها فالطريقة التالية 

Public Sub FormEvent (frmName as Form,Intver as Integer )
'ضع أجراءاتك هنا 

End sub

عند مناداتها من الشاشة المطلوبه 

Call FormEvent(ضع أسم الفورم هنا,والمتغيير)

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#3

اخي الكريم شكرا على استجابتك وردك علي ولكن جملة

Call FormEvent()

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

مرة اريده form1 ومرة اريده form2 وهكذا حسب الكود الخاص بي

حتي يعمل الكود الذي انت ارسلته لي يجب ان اكتب هكذا اذا اردت تشغيل فورم يسمي form1

Call FormEvent(Form1)

بينما انا اريد ان اضع اسم الفورم form1 في متغير ويكون هو بين الأقواس ولكن اذا قمت بذلك لا يعمل

ارجو ان اكون اوضحت وجهة نظري وما اريد فعله

وجزاك الله خيراً اخي على الرد

#4

أخي الكريم إذا كنت تقصد متغير رقمي فيمكنك ذلك بالطريقة التالية 

Public Sub FormEvent (frmName as integer )
'ضع أجراءاتك هنا 

End sub

عند مناداتها من الشاشة المطلوبه 

Call FormEvent(ضع المتغيير هنا)

في الموديول تعمل Select case
case is =1 
form1.show
case is =2
form2.show
end select

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#5

بسم الله والصلاة والسلام علي من لا نبي بعده

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

انا بعمل قائمة رئيسية لبرنامج عن طريق الكود وهي عبارة عن شجرة TreeView

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

في الشجرية بيانات اساسية يندرج تحتها شاشة الموظفين الذي اريد عمله وكنت أسأل عليه هو عندما اضغط علي شاشة الموظفين ينادي هو اسمها كما هو مدون في الحقل الخاص بأسماء الشاشات دون الحاجة ان ادخلها في جملة select Case او حتي If Statment حتي تكون ستاندرد للكل برامجي دون الحاجة لتغيير اسماء الشاشات كل مرة

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

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

ارجو ان اكون قد اوضحت الأن ما اريد

وجزاك الله خير لأصرارك على معاونتي

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

#6

لا أحد يرد علي سؤالي جزاكم الله خير

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

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