تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] نقل القيمة من textbox الى اخر
#1
السلام عليكم ورحمة الله وبركاته

عندي نموذجين
الاول يوجد به تكست بوكس وزر امر

وفي الثاني تكست بوكس

اريد نقل قيمة التكست بوكس الى النموذج الاخر مع زيادة واحد 

جربت التالي

بوضعه في زر الامر

Dim x As Integer
        If Me.TextBox1.Text = x Then Form2.TextBox1.Text = x + 1

        ()Form2.Show

ولكن لم تنجح الطريقة
الرد }}}}
تم الشكر بواسطة:
#2
انا لم اعلن عن المتغير

شكرا لكم
الرد }}}}
تم الشكر بواسطة:
#3
ضع قيمة افتراضية لـx
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#4
اخي سعود
اشكرك على اجابتك
ونطمع بالمزيد من علمك

النموذجين يوجد بهما اثنان تكست بوكس
والمطلوب هو
عند ادخال رقم تكون النتيجه في الفورم الثاني نفس الرقم الموجود في الفورم الاول زائد واحد
على ان تكون الارقام من 00 الى 99 ومن ثم الرجوع الى 00 وليس 100

مثلا اذا كان 00 فتكون 01 واذا كانت 99 تكون النتيجه في الفورم الثاني 00
و 09 تكون 10 و 90 تكون91 وهكذا


استخدمت التالي
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Integer
Dim r As Integer
x = TextBox1.Text
r = TextBox2.Text
If Me.TextBox1.Text = x Then Form2.TextBox1.Text = x
If Me.TextBox2.Text = r Then Form2.TextBox2.Text = r + 1
If Me.TextBox1.Text = 9 Then Form2.TextBox1.Text = 0
If Me.TextBox2.Text = 9 Then Form2.TextBox2.Text = 0
Form2.Show()
End Sub
الرد }}}}
تم الشكر بواسطة:
#5
يا اكسبلورر،

تحليل الكود اللي في موضوعك:

Dim x As Integer
هنا تم تعيين متغير x وقيمته (صفر) لأنه لم تعين له قيمة أخرى

If Me.TextBox1.Text = x Then Form2.TextBox1.Text = x + 1
هنا تم وضع شرط وهو عندما تكون قيمة Me.TextBox1.Text تساوي x والتي سوف يكون المتغير (صفر) دائما.

السؤال: متى سوف تتغير قيمة x

أتركك للتفكير.......




تحليل الكود اللي في ردك السابق:

Dim x As Integer
Dim r As Integer
هنا تم تعيين متغير x وr وقيمتهها (صفر) لأنه لم تعين له قيمة أخرى

x = TextBox1.Text
r = TextBox2.Text
هما تم تعيين قيمة للمتغيرين x وr من TextBox1.Text وTextBox2.Text مع أنها نصية وليست رقمية والمفروض تحويلها لتلافي الخطأ

If Me.TextBox1.Text = x Then Form2.TextBox1.Text = x
If Me.TextBox2.Text = r Then Form2.TextBox2.Text = r + 1
هنا تم وضع شرط وهو عندما تكون قيمة Me.TextBox1.Text تساوي x والتي سوف يكون المتغيران تساوي TextBox دائما.

السؤال هنا: ما فائدة هذا الشرط طالما سيساويان نفس القيم؟

If Me.TextBox1.Text = 9 Then Form2.TextBox1.Text = 0
If Me.TextBox2.Text = 9 Then Form2.TextBox2.Text = 0
هنا تم وضع شرط وهو عندما تكون قيمة Me.TextBox تساوي 9 يتم وضع (صفر).

أتركك للتفكير..........




البرمجة هي ترتيب منطقي....
الرد }}}}
تم الشكر بواسطة:
#6
مرحبا بك اخي الوادي

اجابة لسؤالك الاول
تتغير قيمة x اذا كانت تساوي 9 و r = 9 اما اذا r لاتساوي 9 فان x لا تتغير

اجابة سؤالك الثاني
انا اردت نقل القيمه فقط
الشرط لا فائدة منه (مبتدئ)

عزيزي
اريد الطريقة التي تجعل قيمه 99 في الفورم الاول 00 في الفورم الثاني
مع العلم بانهم اثنان تكست بوكس في كل فورم

55 يكون 56
89 يكون 90
99 يكون 00
وهكذا
تحياتي لكم
الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم

الرجاء الرد على سؤالي ولكم من الشكر اجزله

اريد الطريقة التي تجعل قيمه 99 في الفورم الاول 00 في الفورم الثاني
مع العلم بانهم اثنان تكست بوكس في كل فورم

55 يكون 56
89 يكون 90
99 يكون 00
وهكذا
تحياتي لكم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التحقق من وجود هذة القيمة فى الداتا جريد فيو مع العلم انى استخدم المعالج araxis 4 182 29-11-16, 07:26 AM
آخر رد: amgad525
  فحص لــ القيمة المدخلة فى حقل مفتاح رئيسى Unique Key ل datagridview noway 6 140 15-11-16, 09:06 AM
آخر رد: noway
  تقسيم ال textbox حسب محتوى hano 2 92 12-10-16, 08:18 PM
آخر رد: أبو ناصر
  تكبير اول حرف فى textbox Mohamed20 3 113 28-09-16, 09:27 PM
آخر رد: ابراهيم النعيمي
Exclamation [VB.NET] البحث عن كلمات داخل Textbox Doctor GME 12 432 21-09-16, 10:00 PM
آخر رد: أبو ناصر
  حل لكود مسح قيمة واحدة من TextBox أحمد محمد جمعة 0 119 04-09-16, 04:19 PM
آخر رد: أحمد محمد جمعة
  كيفة مسح نص واحد من textbox أحمد محمد جمعة 3 131 03-09-16, 04:26 PM
آخر رد: silverlight
  كيفية جعل كلمة في اداة RichTextBox تكون في textbox soper 7 159 25-08-16, 06:20 PM
آخر رد: أسامة السالمي
  استفسار داخل ال TextBox عبدالرحمن المكاوي 9 281 20-07-16, 12:59 PM
آخر رد: CLARO
  ماهي القيمة التي تناسب هذا الكود طالب 22 2 149 01-07-16, 04:21 AM
آخر رد: طالب 22

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


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