• 0
@SKY@

هل توجد دالة في VB للتأكد من لغة النص فى textbox

سؤال

-9

السلام عليكم ورحمة الله وبركاته..

هل توجد دالة للتحقق من ان المكتوب في text box جميع حروفه انجليزية وكذلك التحقق من ان جميع الحروف عربية

حتى لا يستطيع المستخدم الكتابة بالعربي في حقل يجب ان يكون محتواه انجليزي والعكس..

اتمنى اكون قد وصلت الفكرة

وجزاكم الله خيرا..............

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

  • 0

طبعا يوجد طريقة سهلة انا متبعها وهي فحص الـAscii Code للاحرف الموجودة في النص

Private Sub Command1_Click()
       If Check_Arab_Lang(Text1.Text) = True Then
                   MsgBox "Arabic Text Found !"
                       Else
                    MsgBox "All Text is English !"
       End If
                   
End Sub

Public Function Check_Arab_Lang(swText As String) As Boolean

Dim T As Long
For T = 1 To Len(swText)
   
If Asc(Mid(swText, T, 1)) > 128 Then '***
           Check_Arab_Lang = True
               Exit For
                   Else
           Check_Arab_Lang = False
                 
End If '***
   
       DoEvents
Next T

End Function

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تشكراااااااااااااااااااااااااات ياخ prof باضبط هذا مااريد

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .