[aymen_libya]

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

[سعود]

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

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

PHP كود :

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


[aymen_libya]

(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

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

[aymen_libya]

(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 


[aymen_libya]

(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  وغيرها من الازرار.
ممكن تشوف الرابط لتعرف اكثر.

[Taha Okla]

(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

[aymen_libya]

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