منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : نقل قيمه من تيكست بوكس في فورم وعرضها في تيكست فورم اخر
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
محتاج كود يقوم بنفل قيمه من تيكست في فورم اول وعرض قيمتها في تيكست فورم ثاني
عرف متغير فى موديول
لان المتغيرات تحفظ فى الذاكرة
public x as new string
فى الفروم الاولى
اسند ل X قيمة التكست بوكس
x = textbox1.text

فى الفروم الاخر استورد من المتغير

textbox2.text = x
بدون متغير في الدوت نت فقط اسم الفورم دوت اسم التولز
TextBox1.Text = Form1.TextBox1.Text
لكي تسترجع قيمة من فورم 2 الي فورم 1 مثلا
يجب أن تمرر القيمة الي الفورم الثاني باستخدام ByRef ثم تقوم بربطها مع Textbox الموجود في الفورم 2

أي أن الفورم الثاني يجب ان يكون به Constructor بهذا الشكل

PHP كود :
   Public Class Form2

        Private _s 
As string

        Public Sub 
New(ByRef s As String)
 
           InitializeComponent()
 
           _s s
            Me
.TextBox.Text s
        End Sub

    End 
Class 

ثم وفي الحدث Form2_Closing مثلا تعيد مساواة القيمة s_ بقيمة TextBox.Text ثانية
 وفي النهاية يكون لديك متغير اخر علي الفورم الأول تساوية بما سوف تسترده من الفورم الثاني

حل اخر هو ان تستخدم كود بالشكل التالي

PHP كود :
       Dim f As Form2 = New Form2()
 
       f.ShowDialog()
 
       TextBox1.Text f.TextBox1.Text 
(20-09-16, 04:57 PM)silverlight كتب : [ -> ]لكي تسترجع قيمة من فورم 2 الي فورم 1 مثلا
يجب أن تمرر القيمة الي الفورم الثاني باستخدام ByRef ثم تقوم بربطها مع Textbox الموجود في الفورم 2

أي أن الفورم الثاني يجب ان يكون به Constructor بهذا الشكل

PHP كود :
   Public Class Form2

        Private _s 
As string

        Public Sub 
New(ByRef s As String)
 
           InitializeComponent()
 
           _s s
            Me
.TextBox.Text s
        End Sub

    End 
Class 

ثم وفي الحدث Form2_Closing مثلا تعيد مساواة القيمة s_ بقيمة TextBox.Text ثانية
 وفي النهاية يكون لديك متغير اخر علي الفورم الأول تساوية بما سوف تسترده من الفورم الثاني

حل اخر هو ان تستخدم كود بالشكل التالي

PHP كود :
       Dim f As Form2 = New Form2()
 
       f.ShowDialog()
 
       TextBox1.Text f.TextBox1.
مرحبا اخي 
اني اشكرك على الكود ارجو توضيح اكثر واين اضع الكود هذه صوره من البرنامج اني وصلت من التصمم الى مرحلة 90% احتاج خطوات بسيطة لهذا الكود
في البيسيك فقط لا تحتاج لتعريفات ارسل القيمةمباشر مثل
Form2.TextBox1.Text = Me.TextBox1.Text
كلمة Me تعني الفورم الموجود أمر نقل القيمة لأنه لا يقبل أن تكتب اسم الفورم
يعني لا يصح أن تكتب Form2.TextBox1.Text = Form1.TextBox1.Text الا اذا كان هذا السطر سينفذ من فورم ثالث
ضعه في حدث Button_click و ليكن button1 و لا تنسي تغيير اسم الفورم في الكود إلي ما يتناسب مع لديك من اسماء للفورم
(20-09-16, 06:55 PM)silverlight كتب : [ -> ]ضعه في حدث Button_click و ليكن button1 و لا تنسي تغيير اسم الفورم في الكود إلي ما يتناسب مع لديك من اسماء للفورم

اخي ممكن تدعمني بمثال ليكون واضح لانه لا ينفذ يمي