تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
قيمة مربع نص
#1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        TextBox2.Text = Val(TextBox1.Text)
    End Sub

عندي  2 مربع نص


كيف   اعمل عملية حسابية   في مربع 1    وبالتالي  تظهر النتيجة  في  المربع 2   

الكود السابق  لا يظهر  النتيجة  ؟؟؟
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم
اعتقد ان التكست يستقبل قيم ثابثة ولا تجراء فيه عمليات حسابية
والله اعلم
الرد }}}}
تم الشكر بواسطة:
#3
ما الحل يا سادة
الرد }}}}
تم الشكر بواسطة:
#4
اين الرد يا سادة
الرد }}}}
تم الشكر بواسطة:
#5
تفضل المثال ....لاول مرة افكر بهذه الطريقة
اولا الاستدعاء
كود :
Imports System.Text.RegularExpressions
ثم بحدث النقر للزر اكتب:
كود :
Dim str As String = "([0-9]{1,})([\/ \* \- \+])([0-9]{1,})"
        Dim reg As New Regex(str)
        Dim ma As Match = reg.Match(TextBox1.Text)
        If ma.Success Then
            ' TextBox2.Text = ma.Groups(1).Value & "  " & ma.Groups(2).Value & "  " & ma.Groups(3).Value
            Select Case ma.Groups(2).Value
                Case "/"
                    TextBox2.Text = Val(ma.Groups(1).Value) / Val(ma.Groups(3).Value)
                Case "*"
                    TextBox2.Text = Val(ma.Groups(1).Value) * Val(ma.Groups(3).Value)
                Case "-"
                    TextBox2.Text = Val(ma.Groups(1).Value) - Val(ma.Groups(3).Value)
                Case "+"
                    TextBox2.Text = Val(ma.Groups(1).Value) + Val(ma.Groups(3).Value)
            End Select
        End If
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة: محمود رغمان , kslawy
#6
الاستاذ سعود
شكرا كثيرا

لكن كيف توصلت الي هذا الحل
اعمل في مجال الكمبيوتر منذ 25 سنة وتعاملت مع البرمجة منذ db3 من خلال محث دوس
وايضا كتبت اكواد من ايام الكوبول والبيسك العادي والكويك بيسك
لكن افتقد التخيل واختلاق الحلول
كيف ؟؟؟؟

ما مذه المكتبة التي استوردنها ؟؟؟ وكيف توصلت
برجاء شرح الكود
الرد }}}}
تم الشكر بواسطة:
#7
أخي الكريم ..اذا كنت تقصد RegularExpressions فاول دخولي بها من شرح للاخ 3booody  في هذا الموضوع ايضا موقع كتب فيه كتب قيمة.
وايضا برمجة المشاريع سواء مشاريع لسطح المكتب او مشاريع للويب.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية حفظ قيمة Label في فيجوال دوت نت 2010 عامر الجبوري 6 64 منذ 1 ساعه مضت
آخر رد: alma2
  [سؤال] هل يمكن جمع قيمة من تكست مع حقل في قاعدة البيانات كود برمجي 6 125 29-04-17, 11:44 PM
آخر رد: rmlq
  [سؤال] مساعده في اظهار قيمة عند الاختيار من combobox billyalhaj.2011 17 594 07-04-17, 06:38 AM
آخر رد: جميل علي
Thumbs Up كيفية الاستعلام على قيمة في جدول المتألق9 2 107 18-03-17, 09:49 PM
آخر رد: المتألق9
  الحصول على قيمة من listview checked Mohamed20 2 102 07-03-17, 01:52 AM
آخر رد: Mohamed20
  [VB.NET] تمرير القيمة من مربع نص وجمعها مع القيمة الاولى في datagridview يونس 4 175 22-02-17, 06:50 PM
آخر رد: يونس
Photo [VB.NET] تمرير القيمة من مربع نص وجمعها مع القيمة الاولى في DataGridView يونس 0 111 22-02-17, 05:15 PM
آخر رد: يونس
  [VB.NET] ازاى اتحقق ان الصف رقم 1 فى العمود رقم 7 فيه قيمة وليس فارغ؟ فى ليست فيو الماجيك مسعد 10 366 31-01-17, 07:03 AM
آخر رد: الماجيك مسعد
  كيف يمكن تثبيت رقم داخل مربع النص والنموذج فى وضع العرض السيد الجوهري 5 289 28-01-17, 02:25 AM
آخر رد: السيد الجوهري
  [سؤال] كيف جمع عمود به قيمة فارغة يوجد مثال aboslah4u22 8 1,540 04-01-17, 12:48 PM
آخر رد: مساعدة

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


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