تغيير المؤشر من EN الى AR تلقائي

ياليت اذا في احد يعرف الحل ... يجاوبني في اقرب وقت

متشكر اوي

واذا ماتعرفون الحل علموني عشان مابقى معلق

استخدم الدالة Sendkeys

كما يلي

Private Sub Form_Load()
'مثال
Text1.SetFocus
SendKeys ("+%") ' + = SHIFT
                ' % = ALT
End Sub

بالتوفيق

جزاك الله بكل حرف كتبته اجر ...

مشكوووووووور اخي ... :)

اخي اذا وضعت الامر في form تضهر رسالة خطأ لهذي Text1.SetFocus

واذا وضعتها في مربع النص يكتب حرف E وحرف A

اسف للأزعاج

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

بالنسبة لرسالة الخطأ فعليك أن تكتب السطر Me.Show قبل Text1.SetFocus

بالنسبة للتحويل بين اللغات استخدم الكود الذى وضعه مؤيد

Private Sub Command1_Click()
Text1.SetFocus
SendKeys "%+"
End Sub

شكرا لك اخي GHOST2010 شكرا لكم جميعا ..

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

:rolleyes:

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

هذا موضوع هام للغاية ويمكن استخدام الكود التالى

اولا اضف module جديد واكتب داخله التالى

Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal PWSZKLID As String, ByVal FLAGS As Long) As Long

Public a As Integer

وعند فتح الفورم المطلوب ان تكون الكتابه فى التكست الملحق بها باللغه العربيه ضع الكود التالى فى form load

Call LoadKeyboardLayout("00000401", 1)

او ضعه فى text.gotfocus

ارجو ان اكون قد افدتك والله ولى التوفيق

fkwinna