تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إضافة متغير بإسم الفورم
#11
(07-06-18, 03:10 PM)بيسك لكل العرب كتب : السلام عليكم لدي حوال 15 فورم بنفس الصورة الاختلاف فقط في الاقسام وعندي فورم اضافة وبحث واريد استخدامه مع كل الفورم الموجودة عن طريق متغير حتي لا اقوم بتكرار الكود او عمل اكتر من فورم اضافة وبحث 
ومشكلة الكود ان متغير لا يكون String وقمت بأكثر من طريقة ولكن لم تنجح

كود :
"Dim Formname As String = "SearchForm
Formname.Dgv1.DataSource = dt

[b]وشكرا أخي عبد الله[/b]

اذا كان ال 15 فورم كلها بنفس الشكل مع اختلاف المعروض 
يمكنك أن تختصرهم الى نموذج واحد فقط 
مع تغيير البيانات المعروضة حسب ما تريد
الرد }}}
تم الشكر بواسطة: بيسك لكل العرب
#12
(07-06-18, 06:34 PM)جمشelgokr كتب :
(07-06-18, 05:12 PM)بيسك لكل العرب كتب :
(07-06-18, 04:09 PM)elgokr كتب :
للاسف انا لا افهم ما تريده بعد حتى بعد مراجعة وقراءة كل الردود اكثر من مرة
ما هى البيانات المطلوب نسخها او نقلها فى باقي الفورم
وما الذى تريده فعله بضبط
مثلاً لديك form1 ويحتوى على بيانات اى بيانات هنا المقصود
لنسخها او تكرارها فى form2 وغيره

كلما وضحت وبسط ما تريده كلما وجت الكود المطلوب

تحياتى لك

اخي المطلوب كالاتي

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


اذا كان الامر كما انت تقول ارسال قيمة استعلام الى فورم اخر

كل ما عليك فعله هو التالى
لنقول ان Form1 يحتوى على Textbox1
وتريد ارسال قيمته الى Textbox1 الموجود بـ Form2

فكل ما عليك هو عمل التالى
كود :
Form2.textbox1.text = Textbox1.text

مع العلم يجب ان يكون Form2 يعمل وليس مغلق

ولفتح الفورم وتنفيذ الكود به اجعل الكود كالتالى
كود :
Form2.Show()
       Form2.TextBox1.Text = TextBox1.Text

بمعنى انت قمت بعمل كود الاستعلام واصبح قيمة الاستعلام فى dt
كل ما عليك فعله هو 
كود :
       Form2.Show()
       Form2.DataGridView1.DataSource = dt

او
كود :
       Form2.Show()
       Form2.TextBox1.Text = dt.Rows(0)(0).ToString()

اتمنى يكون هذا ما تريده واكون بسط الامر لك

كما يمكنك عمل Class مخصص لامور الاستعلام والاضافة والتعديل والحذف
وكل ما عليك هو استدعاء الكلاس فى الفورم المطلوب حسب رغبتك

ليصبح الشكل فى الفورم بهذا الشكل
كود :
dt = Class_.Get_Filter_Data()


تحياتى لك
وتمنياتى لك التوفيق

مشكور اخي علي تفاعلك وجزاك الله كل خيرا واعاد الله عليك رمضان ايام عديدة وازمنة مديدة
ولكن النطلوب هنا متغير لي form2 يغير من فورم 2 الي فورم 3 بناء علي قيمة او اسم التكست بوكس ارجو وضحت الصورة ومشكور مرة اخري

(08-06-18, 01:34 AM)mrnooo2000 كتب :
(07-06-18, 03:10 PM)بيسك لكل العرب كتب : السلام عليكم لدي حوال 15 فورم بنفس الصورة الاختلاف فقط في الاقسام وعندي فورم اضافة وبحث واريد استخدامه مع كل الفورم الموجودة عن طريق متغير حتي لا اقوم بتكرار الكود او عمل اكتر من فورم اضافة وبحث 
ومشكلة الكود ان متغير لا يكون String وقمت بأكثر من طريقة ولكن لم تنجح

كود :
"Dim Formname As String = "SearchForm
Formname.Dgv1.DataSource = dt

[b]وشكرا أخي عبد الله[/b]

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

السلام عليكم اخي هناك اخلاف بسيط في النماذج والحل هوا ان شاء متغير لاسم الفورم ولم اتوصل لي هذا المتغير متلا متغير التكست String فما هو متغير الفورم علما بأن متغير Object لم ينجح وشكرا
الرد }}}
تم الشكر بواسطة:
#13
فقط استخدم الكود التالى 
كود :
Dim ff As Form1 = New Form1()

اذا كان هذا ما تقصده

تحياتى لك
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: بيسك لكل العرب
#14
(08-06-18, 05:25 PM)elgokr كتب : فقط استخدم الكود التالى 
كود :
Dim ff As Form1 = New Form1()

اذا كان هذا ما تقصده

تحياتى لك

السلام عليكم مشكوراخي elgkr علي تعاونك والكود تمام وشغال بدون new ولكن مااريده هوا المتغير ff يكون لي اكتر من فورم ارجو الافادة وشكرا
الرد }}}
تم الشكر بواسطة:
#15
يا أخى لو وضعت مثال لما تريد لاختصرت الوقت على نفسك و على غيرك
الرد }}}
تم الشكر بواسطة: elgokr
#16
(09-06-18, 01:46 AM)mrnooo2000 كتب : يا أخى لو وضعت مثال لما تريد لاختصرت الوقت على نفسك و على غيرك


اتفق معاك تماماً
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة:
#17
(09-06-18, 01:46 AM)mrnooo2000 كتب : يا أخى لو وضعت مثال لما تريد لاختصرت الوقت على نفسك و على غيرك

(09-06-18, 01:57 AM)elgokr كتب :
(09-06-18, 01:46 AM)mrnooo2000 كتب : يا أخى لو وضعت مثال لما تريد لاختصرت الوقت على نفسك و على غيرك


اتفق معاك تماماً

السلام عليكم 
أخوتي اسف على الإطالة واضف اليكم المثال والخطاء يوجد في فورم AB
وشكرا على تعاونكم الدائم


الملفات المرفقة
.rar   WindowsApp34.rar (الحجم : 188.99 ك ب / التحميلات : 23)
الرد }}}
تم الشكر بواسطة:
#18
بالحالة دى اذا كنت من هاوى الاكواد
ولديك الخبرة فوق المتوسطة


فى هذه الحالة ستحتاج الى متابعة هذا الموضوع

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: بيسك لكل العرب
#19
هو نفس الكود الى ارسلته من البداية و لكن مع بعض الضبط


1- أضف هذا السطر أعلى كود النموذج

كود :
Imports System.Reflection

2- أضف هذه الدالة 

كود :
   Public Shared Function CreateObjectInstance(ByVal objectName As String) As Object
       ' Creates and returns an instance of any object in the assembly by its type name.

       Dim obj As Object

       Try
           If objectName.LastIndexOf(".") = -1 Then
               'Appends the root namespace if not specified.
               objectName = [Assembly].GetEntryAssembly.GetName.Name & "." & objectName
           End If

           obj = [Assembly].GetEntryAssembly.CreateInstance(objectName)

       Catch ex As Exception
           obj = Nothing
       End Try
       Return obj

   End Function


3- ضع هذا الكود فى حدث ضغط الزر مع ملاحظة تعديل اسم الداتا جريد لما لديك

كود :
       Dim Frm As Form = DirectCast(CreateObjectInstance(TextBox1.Text), Form)
       dt.Clear()
       da = New OleDbDataAdapter("Select * from AA where AA >1 ", Conn)
       da.Fill(dt)
       
       DirectCast(frm.Controls("DataGridView1"), DataGridView).DataSource = dt
       frm.ShowDialog()
الرد }}}
تم الشكر بواسطة: elgokr , elgokr , بيسك لكل العرب
#20
(10-06-18, 04:01 AM)mrnooo2000 كتب : هو نفس الكود الى ارسلته من البداية و لكن مع بعض الضبط


1- أضف هذا السطر أعلى كود النموذج

كود :
Imports System.Reflection

2- أضف هذه الدالة 

كود :
   Public Shared Function CreateObjectInstance(ByVal objectName As String) As Object
       ' Creates and returns an instance of any object in the assembly by its type name.

       Dim obj As Object

       Try
           If objectName.LastIndexOf(".") = -1 Then
               'Appends the root namespace if not specified.
               objectName = [Assembly].GetEntryAssembly.GetName.Name & "." & objectName
           End If

           obj = [Assembly].GetEntryAssembly.CreateInstance(objectName)

       Catch ex As Exception
           obj = Nothing
       End Try
       Return obj

   End Function


3- ضع هذا الكود فى حدث ضغط الزر مع ملاحظة تعديل اسم الداتا جريد لما لديك

كود :
       Dim Frm As Form = DirectCast(CreateObjectInstance(TextBox1.Text), Form)
       dt.Clear()
       da = New OleDbDataAdapter("Select * from AA where AA >1 ", Conn)
       da.Fill(dt)
       
       DirectCast(frm.Controls("DataGridView1"), DataGridView).DataSource = dt
       frm.ShowDialog()

السلام عليكم 
أخي لم بنجح الكود هل يمكنك تطبيقه على مثال إذا تكرمت واسف على الإطالة وشكرا
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo [VB.NET] مشكلة في شكل الفورم abuyazan 5 293 27-02-24, 09:38 PM
آخر رد: aljzazy
  [VB.NET] مشكلة ظهور textbox بعد حذفه من الفورم مبرمج صغير 1 1 221 27-01-24, 02:04 AM
آخر رد: مبرمج صغير 1
  [VB.NET] إضافة أو حذف حقل فى قاعدة بيانات باستخدام كود VB.net AmeenRashed 21 1,198 30-12-23, 03:47 PM
آخر رد: Taha Okla
  [VB.NET] تحويل التاريخ بين أداتين تايم بيكر في نفس الفورم محمد العموري 1 271 29-12-23, 10:44 PM
آخر رد: Kamil
Rainbow [سؤال] إضافة شريط ضبط الكتابة في أداة RichTextBox أبو خالد الشكري 0 217 29-10-23, 08:19 AM
آخر رد: أبو خالد الشكري
  كيفية التحكم فى حجم الفورم من خلال الكود Ahmed.vb 4 510 11-10-23, 07:17 PM
آخر رد: bidaya
  [VB.NET] حفظ الفورم (Form) (البرنامج) بعد التغيير visualist2015 6 6,359 29-09-23, 03:09 AM
آخر رد: Taha Okla
Photo [سؤال] كيف أقوم بإجبار التطبيق (الفورم) على حفظ الملف المستعاد من قاعدة البيانات SQL server salam82 3 456 20-09-23, 01:42 PM
آخر رد: salam82
Exclamation [SQL] مشكلة إضافة قاعدة بيانات SQL أبو خالد الشكري 6 590 22-08-23, 08:25 PM
آخر رد: أبو خالد الشكري
  [VB.NET] نسخ الصور من الفورم الى الوورد صبيح 1 305 17-08-23, 03:03 PM
آخر رد: تركي الحلواني

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم