المشاركات : 48
المواضيع 15
الإنتساب : Nov 2017
السمعة :
2
الشكر: 63
تم شكره 62 مرات في 28 مشاركات
السلام عليكم
ما هو الكود الذي يقوم بتحويل المؤشر الى اللغة العربية عند الانتقال الى تكست بوكس مطلوب الكتابه به باللغة العربية ؟ وتدمتم سالمين
المشاركات : 36
المواضيع 19
الإنتساب : Jun 2017
السمعة :
0
الشكر: 26
تم شكره 38 مرات في 22 مشاركات
السلام عليكم
طريقة أخرى
Public Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Public Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Private Sub Command1_Click()
Call ArabicKeyboard("a")
End Sub
Sub ArabicKeyboard(language As String)
Select Case LCase(language)
Case "a"
dd = GetKeyboardLayout(0)
If dd = "67699721" Then d = ActivateKeyboardLayout(1, 0)
Case "e"
dd = GetKeyboardLayout(0)
If dd <> "67699721" Then d = ActivateKeyboardLayout(0, 0)
End Select
End Sub
Private Sub Command2_Click()
Call ArabicKeyboard("e")
End Sub
المشاركات : 426
المواضيع 17
الإنتساب : Dec 2015
السمعة :
22
الشكر: 7952
تم شكره 2382 مرات في 293 مشاركات
تسلمو اخوتي على هذا الطرح الجميع جعله الله في ميزان حسناتكم
احترمكم
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps
3) myalsailamy
4) ahmedabdelaliem
5) sendbad100
6)Amir_alzubidy