مرحبا .. ممكن كود لاجبار مربع نص للكتابة باللغة الانجليزية فقط

[Alaa Malk]

مرحبا .. ممكن كود لاجبار مربع نص للكتابة باللغة الانجليزية فقط

[biskra]

في خصائص الحقل في وضعية التصميم اختر اللغة الانجليزية،

[Alaa Malk]

مشكور لكن انا بدي انه ما يكتب عربي بالمره

[biskra]

الكود يحتاج الى تهديل ليتوافق مع ما تطلبه

Private Declare Function ActivateKeyboardLayout Lib _
"user32.dll" (ByVal myLanguage As Long, Flag As Boolean) As Long

'define your desired keyboardlanguage
'find your desired language at [URL="http://www.trigeminal.com/frmrpt2dap.asp"][COLOR=#000088]http://www.trigeminal.com/frmrpt2dap.asp[/COLOR][/URL]

Private Const MKD = 1071 'macedonian keyboard language layout
Private Const eng = 1033 'english(united states)keyboard language layout


Private Sub A_Enter()

Call ActivateKeyboardLayout(MKD, 0)

End Sub

Private Sub A_Exit(Cancel As Integer)

Call ActivateKeyboardLayout(eng, 0)

End Sub

 

[SEMO.Pa3x]

عليكم السلام، تفضل:

 

Private Sub ValidateEnglish()

    Dim I As Long
    Dim txtBuff As String
    Dim CheckChars As String
    CheckChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890 "
    
    txtBuff = TextBox1.Text
    For I = 1 To Len(CheckChars)
        txtBuff = Replace$(txtBuff, Mid$(CheckChars, I, 1), "")
    Next I
    
    If txtBuff = "" Then
        'Only characters in CheckChars found
        MsgBox "English."
    Else
        MsgBox "Non-English."
    End If
    
End Sub

Private Sub TextBox1_Change()

    ValidateEnglish
    
End Sub