تقييم الموضوع :
  • 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
شكرا لكم

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد كود للبحث التلقائي في DataGridView ahmedbezia 15 271 16-11-17, 07:00 PM
آخر رد: ahmedbezia
Star [سؤال] اريد مساعدة في التعديل على مشروع ابو اياد@ 4 156 13-11-17, 12:31 AM
آخر رد: Amir_alzubidy
  اريد طريقة ملء اكتر من textbox عن طريق قاعده البيانات مراد بورجي 13 237 12-11-17, 10:35 PM
آخر رد: Rabeea Qbaha
  اريد طريقة صنع برنامج يقوم بتسجيل الدخول الى الجميل Mina Botros 3 277 29-10-17, 12:46 PM
آخر رد: abolgasim88
  [VB.NET] احتاج كود وضع علامة خلف النص The Light Fire 2 122 27-10-17, 01:52 PM
آخر رد: The Light Fire
  [مثال] لو سمحتوا ممكن مساعدة انا مبتدئ اريد تعلم لغة الفيجوال بيسك 10 دوت نت محمود العجيلي 6 172 25-10-17, 10:35 PM
آخر رد: محبه البرمجه
  اريد تعديل ع المشروع فقط + تحميل المشروع بالكامل e-coder 4 152 17-10-17, 12:09 AM
آخر رد: e-coder
  [VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتـي e-coder 0 58 13-10-17, 06:39 PM
آخر رد: e-coder
  [سؤال] اريد طريقة لمنع تكرار عناصر listbox riad21 4 423 13-10-17, 10:03 AM
آخر رد: مصطفي الشكلي
Exclamation [VB.NET] جلب النص regex mervandzz 1 98 12-10-17, 08:08 PM
آخر رد: أحمد النجار

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


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