تقييم الموضوع :
  • 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
وهكذا
تحياتي لكم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استفسار حول (ComboBox) و (TextBox). المبرمج المبتدئ 1 10 263 05-01-17, 03:37 AM
آخر رد: المبرمج المبتدئ 1
  تقسيم ip داخل textbox Incubus 2 109 10-12-16, 11:30 PM
آخر رد: Incubus
  التحقق من وجود هذة القيمة فى الداتا جريد فيو مع العلم انى استخدم المعالج araxis 4 256 29-11-16, 07:26 AM
آخر رد: amgad525
  فحص لــ القيمة المدخلة فى حقل مفتاح رئيسى Unique Key ل datagridview noway 6 178 15-11-16, 09:06 AM
آخر رد: noway
  تقسيم ال textbox حسب محتوى hano 2 141 12-10-16, 08:18 PM
آخر رد: أبو ناصر
  تكبير اول حرف فى textbox Mohamed20 3 146 28-09-16, 09:27 PM
آخر رد: ابراهيم النعيمي
Exclamation [VB.NET] البحث عن كلمات داخل Textbox Doctor GME 12 539 21-09-16, 10:00 PM
آخر رد: أبو ناصر
  حل لكود مسح قيمة واحدة من TextBox أحمد محمد جمعة 0 162 04-09-16, 04:19 PM
آخر رد: أحمد محمد جمعة
  كيفة مسح نص واحد من textbox أحمد محمد جمعة 3 169 03-09-16, 04:26 PM
آخر رد: silverlight
  كيفية جعل كلمة في اداة RichTextBox تكون في textbox soper 7 246 25-08-16, 06:20 PM
آخر رد: أسامة السالمي

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


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