04-09-22, 06:45 PM
(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قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
