تایپ فقط انگلیسی در تکس باکس

[maxtools]

سلام

چطور فقط و فقط از کاراکتر های زبان انگلیسی در یک تکس باکس استفاده بشه ؟ مثلا فارسی نشه تایپ کرد فقط انگلیسی ؟

[سید حمید حق پرست]

سلام علیکم
بفرمایید :
Public Sub TextFilter(KeyAscii As Integer)
Dim strValid As String
strValid = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwx yz"
If KeyAscii > 26 Then
If InStr(strValid, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
TextFilter KeyAscii
End Sub
کاراکترهای وارد شده در strValid مجاز به تایپ دارند و بقیه محدود میشوند. (در کد بالا 2 تا اسپیس بین حروف w و x پاک کن نمیدونم چرا اضافه میشن)
سورس هم ضمیمه کردم
موفق باشید.

یا علی (ع)

[PMTornado]

اگه جسارت نباشه يه كد هم من بزارم . با اجازه آقا حميد



Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 65 To 90, 97 To 122
KeyAscii = KeyAscii
Case Else
KeyAscii = 0
End Select
End Sub