تقييم الموضوع :
  • 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
        'If TextBox1.Text = "1s" Then
        'MsgBox("اجابتك صحيحة", , )
        'Else
        'MsgBox(" اجابتك خاطئة  ", , )
        ' TextBox1.BackColor = Color.Red
        ' End If
        If TextBox1.Text.Contains("1s") Then
            MsgBox("اجابتك صحيحة")
        Else
            MsgBox("اجابتك خاطئة ")
            TextBox1.BackColor = Color.Red
        End If
    End Sub
المشكلة هي عندما اكتب 1 فقط فانه يظهر رسالة ان الاجابة خاطئة و لايعطيني فرصة لكتابة باقي النص
ماالحل ؟؟؟؟؟؟؟
الرد
تم الشكر بواسطة:
#2
يمكنك كتابة نفس الكود ولكن بدل ماتكتبو بالحدث TextChanged  ضع الكود في الحدث LostFocus لنفس التيكست بوكس
حيث ان الحدث LostFocus يعمل عند نقل التركيز من الادات الى ادات اخرى
الرد
تم الشكر بواسطة:
#3
اخ محمد جربت طريقتك و لكن يعطي نفس الخطأ .......... بمجرد ان اضع رقم 1 في التكست بوكس يظهر الاجابه خاطئة


جزاك الله خير

ياليت يااخوان القى حل
الرد
تم الشكر بواسطة:
#4
اخي العزيز الطريق الي كتبته الك تشتغل بس اذا انت كتبت فقط 1 ونقلت التركيز فاكيد راح يطلع رسالة الخطأ الي انت خاله بالشرط واذا اتحب تكدر اتحط الكود تبعك بكومند وتكتب الي تريده بالتيكست بوكس وبعد متخلص تضغط الكومند وهي الي تفحص اذا كنت كاتب صح او خطأ
الرد
تم الشكر بواسطة:
#5
شكرا لك

وضعت الكود في الحدث لوست فوكس و عندمااضع 1 و انتقل بالتركيز الى مربع نص اخر لا يظهر رسالة خطأو كاني لم اكتب كود اصلا
كود :
Private Sub TextBox11_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox11.LostFocus
        If TextBox1.Text = "1s" Then
            MsgBox("اجابتك صحيحة", , )
        Else
            MsgBox(" اجابتك خاطئة  ", , )
            TextBox1.BackColor = Color.Red
        End If
    End Sub


اذا بامكانك مساعدتي انا اريد كود يتحقق ان مربع النص موجود فيه القيمة 1s ام لا
اذا كان 1s l موجود يظهر رسالة بان الاجابة صحيحة


هل تستطيع مساعدتي و جزاك الله خيرا
الرد
تم الشكر بواسطة:
#6
السلام عليكم
استخدم الحدث Validating التابع للتكست بكس
الرد
تم الشكر بواسطة:
#7
(13-03-15, 08:19 PM)meme1336 كتب : شكرا لك

وضعت الكود في الحدث لوست فوكس و عندمااضع 1 و انتقل بالتركيز الى مربع نص اخر لا يظهر رسالة خطأو كاني لم اكتب كود اصلا

كود :
Private Sub TextBox11_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox11.LostFocus
       If TextBox1.Text = "1s" Then
           MsgBox("اجابتك صحيحة", , )
       Else
           MsgBox(" اجابتك خاطئة  ", , )
           TextBox1.BackColor = Color.Red
       End If
   End Sub


اذا بامكانك مساعدتي انا اريد كود يتحقق ان مربع النص موجود فيه القيمة 1s ام لا
اذا كان 1s l موجود يظهر رسالة بان الاجابة صحيحة


هل تستطيع مساعدتي و جزاك الله خيرا
اخي العزيز انت واضع الكود بالمكان الخطأ انت دتفحص الادخال بتيكست بوكس رقمه 1 بس كاتب الكود بالحدث lastfoucas لتكست بوكس رقمه 11
الرد
تم الشكر بواسطة:
#8
كود :
Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
        If TextBox1.Text = "1s" Or TextBox1.Text = "1S" Then
            MsgBox("اجابتك صحيحة", , )
        Else
            MsgBox(" اجابتك خاطئة  ", , )
            TextBox1.BackColor = Color.Red
        End If
    End Sub

جزاك الله خيرا .... زبط الكود

بس انا عندي تقريبا 20 تكست بوكس و اريد اذا ضغطت على زر تصحيح يقوم بتصحيح التكست بوكس ........... اذا خطأ يغير لون التكست بوكس للون الاحمر

كيف يمكنني ذلك

جزاك الله خيرا اخ محمد

لم انتبه للخطأ

عملت الكود بطريقتك ايضا و زبط و لله الحمد

ابغى 20 تكست بوكس يتصححو مع بعض (بعد الضغط على زر تصحيح ) .............. و التكست بوكس الخطأ يكون باللون الاحمر


ماذا اكتب تحت Button1 click ????
الرد
تم الشكر بواسطة:
#9
نحمده ونصلي على رسوله الكريم

انظر لما بعد handles وقس على ذلك باقي الكود
كود :
Private Sub TextBox1_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating, TextBox3.Validating, TextBox2.Validating

    Dim tb As TextBox = CType(sender, TextBox)

    Select Case tb.Name
        Case "TextBox1"
            If tb.Text.Trim().ToLower() = "1s" Then
                MsgBox("اجابتك صحيحة")
                tb.BackColor = SystemColors.Window
            Else
                MsgBox("اجابتك خاطئة")
                tb.BackColor = Color.Red
            End If

        Case "TextBox2"
            If tb.Text.Trim().ToLower() = "2s" Then
                MsgBox("اجابتك صحيحة")
                tb.BackColor = SystemColors.Window
            Else
                MsgBox("اجابتك خاطئة")
                tb.BackColor = Color.Red
            End If

        Case "TextBox3"
            If tb.Text.Trim().ToLower() = "3s" Then
                MsgBox("اجابتك صحيحة")
                tb.BackColor = SystemColors.Window
            Else
                MsgBox("اجابتك خاطئة")
                tb.BackColor = Color.Red
            End If
    End Select
End Sub
الرد
تم الشكر بواسطة: العزابي
#10
شكرا لكم

الحمدلله زبط حلي و لكن بطريقة اخرى

جزاكم الله خيرا
الرد
تم الشكر بواسطة: ربيع


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink [VB.NET] اريد كود اسم الشهر new_programer 4 120 03-12-18, 06:01 AM
آخر رد: mahmoud.3com
  اريد نسخ ملفات من على الدونجل سمير جمال 1 60 28-11-18, 05:04 PM
آخر رد: محمد كريّم
Lightbulb [VB.NET] تقسيم النص الى مجموعات كل واحده 1000 حرف DK-x 1 54 26-11-18, 06:19 PM
آخر رد: حريف برمجة
  [سؤال] اريد كل ما يخص هذة الاكود اسامه الهرماوي 2 94 21-11-18, 10:37 PM
آخر رد: اسامه الهرماوي
  اريد ترقيم الداتا جريد فيو سمير جمال 6 156 15-11-18, 01:32 PM
آخر رد: عبدالله الدوسري
Star اريد حل حفظ البيانات vb2010 41 1,002 14-11-18, 04:13 PM
آخر رد: dasktop
  اريد كود زر السابق والاخير سمير جمال 5 109 14-11-18, 02:05 PM
آخر رد: sami4
Heart اريد طريقة اضافة رقم صفر قبل الرقم ahmadpal 6 157 12-11-18, 01:00 PM
آخر رد: elgokr
  كيف اتعامل مع اتجاه النص DOX.1 8 179 10-11-18, 09:30 PM
آخر رد: DOX.1
Exclamation [VB.NET] اريد عمل ساعه مستقله عن ساعه الجهاز حتى وان اغلق البرنامج تضل شغاله Ebrahim5556 10 248 09-11-18, 12:42 AM
آخر رد: Ebrahim5556

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


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