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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تمرير القيمة من مربع نص وجمعها مع القيمة الاولى في datagridview يونس 4 84 22-02-17, 06:50 PM
آخر رد: يونس
Photo [VB.NET] تمرير القيمة من مربع نص وجمعها مع القيمة الاولى في DataGridView يونس 0 44 22-02-17, 05:15 PM
آخر رد: يونس
  [سؤال] كيف احدد كلمات معينة في Textbox The Light Fire 3 108 01-02-17, 12:09 AM
آخر رد: The Light Fire
  استفسار حول (ComboBox) و (TextBox). المبرمج المبتدئ 1 10 380 05-01-17, 03:37 AM
آخر رد: المبرمج المبتدئ 1
  تقسيم ip داخل textbox Incubus 2 160 10-12-16, 11:30 PM
آخر رد: Incubus
  التحقق من وجود هذة القيمة فى الداتا جريد فيو مع العلم انى استخدم المعالج araxis 4 306 29-11-16, 07:26 AM
آخر رد: amgad525
  فحص لــ القيمة المدخلة فى حقل مفتاح رئيسى Unique Key ل datagridview noway 6 266 15-11-16, 09:06 AM
آخر رد: noway
  تقسيم ال textbox حسب محتوى hano 2 191 12-10-16, 08:18 PM
آخر رد: أبو ناصر
  تكبير اول حرف فى textbox Mohamed20 3 206 28-09-16, 09:27 PM
آخر رد: ابراهيم النعيمي
Exclamation [VB.NET] البحث عن كلمات داخل Textbox Doctor GME 12 588 21-09-16, 10:00 PM
آخر رد: أبو ناصر

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


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