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

سؤال حول ادخال قيم للمتغيرات في فورم و استعمالها في فورم اخرى !

بدأه azaher6 في 12 يناير 2009 · 4 رد · 580 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

لما كنت اشتغل في مشروع جديد حبيت ان اضع الفورم الاولى كصفحة استمارة تملئ بمعلومات تخزن في الداكرة مباشرة بعد ادخالها في textboxs ، و في الفورم الثانية استعمال تلك المعطيات ما هي الطريقة التي اُعَرِف بها هدا المتغيرات لاستعمالها في فورم غير التي ادخلت فيه .

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

المرجو ان اكون وفيت الشرح .

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

#2

مرحباً أخي الكريم .

رجاءً حاول الشرح بطريقة أبسط, أي على سبيل المثال :

لدي Form عدد اثنين وكل واحدة منها تحوي عدة TextBoxes, كيف يمكنني نقل المعلومات من الـ Form1 الى Form2 ؟

 

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1

 

    [color= #000000; font-weight: bold;]Private Sub Button1_Click[color= #009900;](ByVal Sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], [color= #990000;]_

    ByVal E [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles Button1[color= #339933;].Click

        Form2[color= #339933;].SetTextBoxes[color= #009900;](TextBox1[color= #339933;].Text[color= #339933;], TextBox2[color= #339933;].Text[color= #339933;], TextBox3[color= #339933;].Text[color= #009900;])

    [color= #990000;]End Sub

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

 

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form2

 

    [color= #000000; font-weight: bold;]Public Sub SetTextBoxes[color= #009900;](ByVal Text1[color= #339933;], ByVal Text2[color= #339933;], ByVal Text3[color= #009900;])

        TextBox1[color= #339933;].Text [color= #339933;]= CType[color= #009900;](Text1[color= #339933;], String[color= #009900;]) [color= #339933;]: TextBox2[color= #339933;].Text [color= #339933;]= CType[color= #009900;](Text2[color= #339933;], String[color= #009900;])

        TextBox3[color= #339933;].Text [color= #339933;]= CType[color= #009900;](Text3[color= #339933;], String[color= #009900;]) [color= #339933;]: Show[color= #009900;]([color= #009900;])

    [color= #990000;]End Sub

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

إذا لم يساعدك ماذكرته, رجاءً حاول تمثيل ما تريده في الشكل الذي استخدمته, وشكراً .

بالتوفيق .

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 13 يناير 2009 في 22:28

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#3

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

الف شكر بس ممكن شرح اهذا الكود

يبقى كتر خيرك

#4

ليس هنالك مايفيدك بالشرح الا الكلمة ( Public ) والتي تساعدك على تعريف ( متغير, تحكم, صف, عملية) بشكل عام, اي يمكنك استخدامها من أي مكان من المشروع, طبعاً عند الإستخدام ( إذا لم تكن تستخدم ذلك ( المتغير, العملية , الخ.. ) في نفس الصف الحاوي ( له, لها ) فعليك كتابة اسم الصف الحاوي ( له, لها ) ومن ثم نقطة واسمه(ا) .

أي :

 

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class MyClass

 

[color= #000000; font-weight: bold;]Public MyWord [color= #b1b100;]As String [color= #339933;]= [color= #0000ff;]"Welcome"

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

 

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1

Dim _MyClass [color= #b1b100;]As [color= #000000; font-weight: bold;]New MyClass

 

[color= #000000; font-weight: bold;]Private Sub Form1_Click[color= #009900;]( Byval Sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], Byval Ev [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs [color= #009900;]) Handles 
MyBase[color= #339933;].Click

MsgBox[color= #009900;]( _MyClass[color= #339933;].MyWord [color= #009900;]) 

[color= #990000;]End Sub

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 14 يناير 2009 في 00:38

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#5

الف شكر استاذي

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…