كود ادخال أرقام فقط لا يعمل

السلام عليكم ورحمه الله وبركاته

اخي جرب الكود التالي

وعليكم السلام

مشكو ر أخي فقط نسيت أن أضع الكود في حدث الـ KEY PRESS جزاك الله خيرا

السلام عليكم ورحمه الله وبركاته

لاشكر على واجب ...

السلام عليكم

الكود السابق أخي يمنع إدخال أي شيء غير الأرقام ولكني أريد إدخال النقطة إضافة للأرقام فكيف أفعل ذلك ؟

لو شرحت لي الكود ربما أستطيع التوصل إلى شيء

غير الكود إلى

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not Char.IsControl(e.KeyChar) Then
            If Not IsNumeric(e.KeyChar) Then
                If e.KeyChar = "."c Then
                    e.Handled = TextBox1.Text.Contains(".")
                Else
                    e.Handled = True
                End If
            End If
        End If
    End Sub

السلام عليكم ورحمه الله وبركاته

بالفعل كما ذكر الاخ GHOST2010 سيسمح لك الكود السابق بادخال نقطه واحده فقط, ويمكن برضه استخدام الكود التالي

جزاكم الله كل خير ياإخوة حقيقة أنا تهت بين الكودين الكود الأول مفهوم بالنسبة لي أما الكود الثاني لم أستوعبه

فلو شرحت لي أخي vbhelper لم هذه الجملة

 e.KeyChar <> Chr(8) Then

وما ذا تفعل؟

كذلك الجملة

TextBox1.Text.IndexOf(".") + 1

وما ذا تفعل؟

 e.KeyChar <> Chr(8) Then

تعنى أن الزر المضغوط ليس BackSpace

e.Handled = TextBox1.Text.IndexOf(".") + 1

الدالة IndexOf تبحث عن نص داخل نص آخر وتعود بخانة بداية هذا النص إن وجد وإلا ستعود بالرقم -1 إن لم تجد النص الذى تبحث عنه

فمعنى الكود أن يتم البحث عن النقطة داخل مربع النص فإن وجدت فستكون القيمة الناتجة أكبر من أو يساوى صفر وبإضافة 1 إلى النتيجة ستكون النتيجة دائما أكبر من صفر أى تساوى True وإن لم يحتو مربع النص على النقطة ستكون النتيجة -1 وبإضافة 1 إليها ستصبح النتيجة صفر أى False

فاهم حاجة ؟!! :unsure:

السلام عليكم ورحمه الله وبركاته

اخي سبقني الاخ GHOST2010 في الشرح والحمدلله كفى ووفى ..

وعليكم السلام

دعني أستوضح

الكود يقول

If e.KeyChar = "." Then

أي إذا كان الزر المضغوط "."

فماذا لو قلنا بعد ذلك

e.Handled = True

ما الخلل الذي سيحدث ؟

هذا يعنى أن مربع النص لن يقبل كتابة النقطة

السلام عليكم ورحمه الله وبركاته

اخي بالتأكيد سيلغي النقطة ..