سؤال متعلق بالحروف والكتابة هام

اخي فكرة البرنامج هي

1 . اخذ رقم الاسكي الخاص بالحرف باللغة العربية

2 . مقارنة ما هو الحرف باللغة الانجليزية على نفس زر الكيبورد اظن عن طريقة مصفوفة مكونة من بعدين الاول يحتوي رقم الاسكي للحرف العربي و البعد الثاني رقم الاسكي للحرف الانجليزي على نفس زر الكيبورد (لا اعرف ان كان هناك مصفوفة جاهز ضمن الـ VB لهذا الامر)

3. ابدال الحرف العربي بالحرف الانجليزي

ملاحظة يمكن استعمال رقم الاسكي او الحرف نفسه

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

جرب هذا :

Private Sub Command1_Click()
Print Check_Arbic("ÓÔãÔÍ ÔÝÔÝ")
End Sub

Public Function Check_Arbic(inArabic As String) As String
Dim cArabic As String, cEnglish As String, ww As String

cArabic = "ÖÕËÞÝÛÚåÎÍÌÏÔÓíÈáÇÊäãßØÆÁÄÑáÇìÉæÒÙ"
cEnglish = "qwertyuiop[]asdfghjkl;'zxcvbnm,./"

For b = 1 To Len(inArabic)

	ww = Mid(inArabic, b, 1)

For i = 1 To Len(cArabic)


	If ww = " " Then
	   Check_Arbic = Check_Arbic & " "
	   Exit For
	End If

	If Mid(cArabic, i, 1) = Trim(ww) Then
	   Check_Arbic = Check_Arbic & Mid(cEnglish, i, 1)
	   Exit For
	End If

Next i

Next b

End Function