PDA

View Full Version : سوال: ایجاد فیلتر برای یک تکس باکس


mtn677
پنج شنبه 27 تیر 1392, 17:42 عصر
سلام
من می خوام یک تکست باکس داشته باشم که فقط اعداد و حروف لاتین رو بشه در اون نوشت لطفا راهنمایی کنید.
miladatashin
پنج شنبه 27 تیر 1392, 18:02 عصر
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48) Or ((KeyAscii > 57) And (KeyAscii < 65)) Or ((KeyAscii > 90) And (KeyAscii < 97)) Or (KeyAscii > 122) Then KeyAscii = 0
End Sub
Ninja-Assassin
پنج شنبه 27 تیر 1392, 18:03 عصر
این تکه برنامه یه فیلتر برای اعداد..
mtn677
پنج شنبه 27 تیر 1392, 18:18 عصر
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48) Or ((KeyAscii > 57) And (KeyAscii < 65)) Or ((KeyAscii > 90) And (KeyAscii < 97)) Or (KeyAscii > 122) Then KeyAscii = 0
End Sub


سلام
خیییییییییلی عالی بود فقط یک مشکل هست Backspace کیبورد هم فیلتر شده اگه ممکنه اونو درست کن که اگه در تکست باکس اشتباه تایپ شد بشه اصلاح کرد.مرسی
miladatashin
پنج شنبه 27 تیر 1392, 18:21 عصر
سلام
خیییییییییلی عالی بود فقط یک مشکل هست Backspace کیبورد هم فیلتر شده اگه ممکنه اونو درست کن که اگه در تکست باکس اشتباه تایپ شد بشه اصلاح کرد.مرسی



Private Sub Text1_KeyPress(KeyAscii As Integer)
If ((KeyAscii < 48) And (KeyAscii <> 8)) Or ((KeyAscii > 57) And (KeyAscii < 65)) Or ((KeyAscii > 90) And (KeyAscii < 97)) Or (KeyAscii > 122) Then KeyAscii = 0
End Sub