كيفية جعل التكست بوكس يكتب عربي فقط

اعرف الأرقام العربى مداها من كام إلى كام ثم داخل حدث الـ Keypress للـ TextBox اكتب الكود التالى

Select case KeyAscii
	 case StartNumber To EndNumber
	 case Else
			  KeyAscii=0
End Select

قم بإستبدال StartNumber و EndNumber برقم بداية الحروف العربية و رقم النهاية

و الله ولى التوفيق

الاخ الفاضل expert طيب اعرف مدي الارقام العربي دي ازي يارت توضحلي اكتر عشان انا مبتدي وشكرا علي ردك

ممكن اشارك برأى ؟

اخى تقدر تستخدم الكود ده

الكود ده فى الجنرال

Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long

والكود ده

فى KAYPRESS اكتب الكود

If ActivateKeyboardLayout(hkl_next, flags_reorder) <> 67699721 Then ActivateKeyboardLayout hkl_next, flags_reorder = 67177473

ايضا تقدر تستخدم Text1_KeyUp & Text1_KeyPress لضمان عدم الكتابه لغير العربى

والله ولى التوفيق

لكتابة عربي فقط هذا الكود في حدث KeyPress للتكست

If (keyascii >= Asc("a") And keyascii <= Asc("z")) or (keyascii >= Asc("A") And keyascii <= Asc("Z")) then
Keyascii = 0
end if

لكتابة أنجليزي فقط هذا الكود

If (keyascii >= Asc("ا") And keyascii <= Asc("ي")) or (keyascii >= Asc("أ") And keyascii <= Asc("ي")) then
Keyascii = 0
end if

لكتابة أرقام فقط هذا الكود

if instr("0123456789" + chr(vbkeydelete) + chr(vbkeyback) + chr(vbkeyreturn) , chr(keyascii)) = 0 then keyascii = 0

وإليك المثال المرفق .. أرجو أن أكون أفدتك .. تحياتي

______________________________________.rar