كيف أجعل text1.textتكتب ارقام فقط ولا تقبل حروف والعكس
كيف أجعل text1.textتكتب ارقام فقط ولا تقبل حروف والعكس
مغلق
السلام عليكم
أخي لجعل صندوق النص لا يقبل سوى أرقام اكتب الكود التالي في الحدث KeyPress للصندوق :
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End Ifو لجعله لا يقبل إلا حروفا اكتب الكود التالي أيضا في الحدث KeyPress للصندوق :
If KeyAscii < Asc("A") Or KeyAscii > Asc("z") Then
KeyAscii = 0
End Ifو إن أردت ادخال الأحرف العربية استبدل حرف z بـ (ي)
تعديل بسيط, لان الحروف الكبيرة والصغيرة لا تملك قيم ASCII متسلسلة مباشرة
if KeyAscii < Asc("a") or KeyAscii > Asc("z") then
KeyAscii = 0
end if
End If
If KeyAscii < Asc("A") Or KeyAscii > Asc("Z") Thenاما فيما يخص الحروف العربية فهناك الكثير من المحارف التي تفصلها في جدول الاسكي, لا يمكن فقط استبدال الحروف الانكليزية باخرى عربية, يجب الاطلاع على اماكن الفصل اولا من الجدول.
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
السلام عليكم
أنا آسف على هذه العجلة
و لكن يوجد في المرفقات ملف HELP يحتوي جميع الرموز وما يقابلها في الأسكي
هذا الموضوع مغلق.