بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتة
اخوتي الاعزاء ارجوا المساعدة في حل هذه المشكلة ولكم مني جزيل الشكر
لدي فورم للبحث عن سجلات وفي حال قمت بفتح نفس الفورم مرة اخرى باستخدام هذا الكود
Dim foorm2 As New form1
foorm2.MdiParent = home
() foorm2.Show
بحيث يمكنني فتح نفس الفورم اكثر من مرة ولكن المشكلة انه عند فتح الفورم في المرة الثانيه يقوم بتحميل الاكواد الموجودة في اللود لجميع النوافذ التي تم فتحها مسبقاً
كيف يمكنني تفادي هذه المشكلة وعدم تطبيق الكود على الفورم التي تم فتحها مسبقا ولكم مني جزيل الشكر والتقدير
لماذا لا يوجد اجابة على سؤالي
وعليكم السلام ورحمة الله وبركاته
مرحباً اخى ahmadpal
اعزر فليس الجمجيع متواجد هنا دائماً
بخصوص سؤالك حتى تقوم بحل المشكلة
اجعل كود اللود الموجود فى الفروم المطلوب فتحه
ان يكون فى كود حدث الزر الخاص بفورم home
وان يكون الكود اعلى
بكده كل مرة تقوم بفتح الفورم سيقوم بتطبيق الكود اللود
الموجود فى الزر طبقاً لما قمت انت بكتابته
فمثلاً فى الزر الاول كمثال
وفى الزر الثاني كمثال
وتذكر ان يكون اعلى
تحياتى لك
وتمنياتى لك التوفيق
اخي elgokr شكراً جزيلا لك على اهتمامك والرد على الاستفسار الخاص بي ولكن انا استخدم هنا خاصية MdiParent يعني اريد ان يظهر الفورم داخل الكونتينر كيف يمكنني استدعاء كود من داخل الموديول ليعمل داخل الفورم عند الضغط على زر في الhome
واعذرني على اسلوبي ان كنت قد اخطأت وتقبل مني فائق الاحترام والتقدير
مرفق مثال مصغر يوضح يفية اتمام المطلوب
تم انشاء فورم 1 خلاف الرئيسي كما تم انشاء عدد 3 زر
[اضافة - تعديل - حذف ]
لاحظ بمجرد ان تقوم بالضغط على زر يظهر الفورم بالاسم عنوان الزر
اذا كان زر اضافة فيصبح الفورم اضافة واذا كان تعديل فيصبح الفورم بعنوان تعديل
مرفق السورس + برنامج لاختبار والمعينة
السورس (2015)
الاكواد المستخدمة فى الفورم
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim F2 As New Form2
F2.MdiParent = Me
F2.Text = "Add"
F2.Show()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim F2 As New Form2
F2.MdiParent = Me
F2.Text = "Edit"
F2.Show()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim F2 As New Form2
F2.MdiParent = Me
F2.Text = "Delete"
F2.Show()
End Sub
فى خصائص الفورم الرئيسى Form1
تم تعديل الخيار
كود :
IsMdiContainer = True
حتى لا يتم خروج الفروم الفرعية خارج الفورم الرئيسي
تحياتى لك
وتمنياتى لك التوفيق
اشكرك اخي جزيل الشكر واتمنى من الله تعالى ان ارد لك هذا الجميل وشكرا على وقتك الثمين الذي اهديتني اياه وعلى المجهود الذي قمت به
لكن يبدو انني لا زلت اعاني من نفس المشكلة في الكود حيث اني قمت برفع نفس السورس الخاص بك واضفت عليه قاعدة بيانات اكسس وجدول واحد تجريبي
بحيث حين اقوم بأي حدث على الفورم يقوم بالتغيير في جميع الفورمات
مرة اخرى اشكر لك اهتمامك واعذرني ان كنت قد تسببت لك بمشاكل
رابط السوركود مرفوع على الميديا فير
http://www.mediafire.com/file/f513pp38dq...m.rar/file