منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

السلام عليكم
كيف جعل textbox يقبل ارقام ونقطه . فقط

(04-09-22, 09:52 AM)aymen_libya كتب : [ -> ]السلام عليكم
كيف جعل textbox يقبل ارقام ونقطه . فقط

و عليكم السلام و رحمة الله و بركاته
ضمن حدث KeyPress لمربع النص

PHP كود :

       e.Handled = Not (Char.IsDigit(e.KeyChar) Or e.KeyChar = ".") 

(04-09-22, 10:00 AM)سعود كتب : [ -> ]
(04-09-22, 09:52 AM)aymen_libya كتب : [ -> ]السلام عليكم
كيف جعل textbox يقبل ارقام ونقطه . فقط

و عليكم السلام و رحمة الله و بركاته
ضمن حدث KeyPress لمربع النص

PHP كود :

e.Handled = Not (Char.IsDigit(e.KeyChar) Or e.KeyChar = ".")

هل قصدك e.Handled=false

(04-09-22, 10:49 AM)aymen_libya كتب : [ -> ]هل قصدك e.Handled=false

نعم هذا كود يمنع اي ادخال غير الارقام والنقطة.

(04-09-22, 11:04 AM)سعود كتب : [ -> ]
(04-09-22, 10:49 AM)aymen_libya كتب : [ -> ]هل قصدك e.Handled=false

نعم هذا كود يمنع اي ادخال غير الارقام والنقطة.

كود :

If Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Then

       e.Handled = True

         End If

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

(04-09-22, 11:33 AM)aymen_libya كتب : [ -> ]

كود :

If Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Then e.Handled = True End If
لماذا انا كتبته هكذا لايعمل ممكن توضيح سبب خطأ
اريد تعمل ارقام ونقطه وزر backspace فقط

لازم تستخدم الاقواس وتضع تحققات داخلية وتحقق خارجي:
المعذرة لا ادري كيف اوضح اكثر

PHP كود :

If (Char.IsDigit(e.KeyChar) = True Or (e.KeyChar = "." Or e.KeyChar = ControlChars.Back = True) = True) = False Then
            e.Handled = True
        End If 

(04-09-22, 12:06 PM)سعود كتب : [ -> ]
(04-09-22, 11:33 AM)aymen_libya كتب : [ -> ]

كود :

If Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Then e.Handled = True End If
لماذا انا كتبته هكذا لايعمل ممكن توضيح سبب خطأ
اريد تعمل ارقام ونقطه وزر backspace فقط

لازم تستخدم الاقواس وتضع تحققات داخلية وتحقق خارجي:
المعذرة لا ادري كيف اوضح اكثر

PHP كود :

If (Char.IsDigit(e.KeyChar) = True Or (e.KeyChar = "." Or e.KeyChar = ControlChars.Back = True) = True) = False Then e.Handled = True End If

ممكن شرح لي كلاس ControlChars

(04-09-22, 03:24 PM)aymen_libya كتب : [ -> ]ممكن شرح لي كلاس ControlChars

لا اعرف كيف اشرح لكن انت تعرف ازرار الكيبورد منها حروف ومنها تحكم اما حذف او ادخال مثل Enter وغيرها من الازرار.
ممكن تشوف الرابط لتعرف اكثر.

(04-09-22, 11:33 AM)aymen_libya كتب : [ -> ]

كود :

If Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Then e.Handled = True End If
لماذا انا كتبته هكذا لايعمل ممكن توضيح سبب خطأ
اريد تعمل ارقام ونقطه وزر backspace فقط

الاساس أنها الخاصية ملغية - والتفعيل يعني تعليق الكتابة لذلك مش راح تضبط معك
لذلك يجب أن تكتب الشروط عكسياً لتعمل :

كود :

       If Char.IsDigit(e.KeyChar) = False And e.KeyChar <> "." And AscW(e.KeyChar) <> 8 Then

            e.Handled = True

        End If

فهمت عليك يعني لو كان مش رقم ومش نقطه ومش
backspace تعليق باقي اوامر لوحه مفاتيح

الصفحات : 1 2