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

[ahmed1399]

السلام عليكم

اسعد الله مسائكم بكل خير

اساتذتي الكرام

احتاج كود لمعرفة اللغة المكتوبة في الحقل

فمثلا اذا كان النص في الحقل مكتوب باالغة العربية  يجعل زر الامر [ارسال] ممكن والامر [send] غير ممكن

وبالعكس اذا كان النص في الحقل مكتوب باالغة الانجليزية يجعل زر الامر [send] ممكن والامر [ارسال] غير ممكن

 

عملت تجربة باستخدام الماكرو

وبائت بالفشل😅

 

[kanory]

استخدم هذا الكود ....

    Dim I As Long
    Dim txtBuff As String
    Dim CheckChars As String
    CheckChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890 "
    Me.kanory.SetFocus
    txtBuff = kanory.Text
    For I = 1 To Len(CheckChars)
        txtBuff = Replace$(txtBuff, Mid$(CheckChars, I, 1), "")
    Next I

    If txtBuff = "" Then
        
        Me.kan1.Enabled = False
        Me.kan2.Enabled = True
    Else
        Me.kan2.Enabled = False
        Me.kan1.Enabled = True
    End If

 

[ahmed1399]

شكرا 🌹