Hi Salam Khobi TeaM
Man To In Teke Code Ke alan Mizaram Oumadam YE Function Tarif Kardam :
Hamun Jor Ke Mibinid Man To In Teke Code Goftam Faqat Adad Ha Qabele Type Bashan,Shoma Mitunid Meqdare Motaqayer strValid Ro Avaz Konid,Va Har Horofi Ke Deletun Khast Ro Mojaz Be Type Konid !
Screen Project :
PicoFile Ehemly
Click Here For Download Project !
Movafaq Bashid !
Man To In Teke Code Ke alan Mizaram Oumadam YE Function Tarif Kardam :
- Code:
Function TextHilter(KeyAscii As Integer)
Dim strValid As String
strValid = "0123456789"
If KeyAscii > 26 Then
If InStr(strValid, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
End Function
Screen Project :
PicoFile Ehemly
Click Here For Download Project !
Movafaq Bashid !