سؤال هام لفائدة الجميع

@ 10,10 get ss

read

عندما يتوقف البرنامج لعمل read

اريد انا ان اكتب فى الحقل فيكتب عربى وليس انجليزى بدون ان احول اللغة بضغط ALT+Right AHIFT يمين

ما هى الاوامر التى تقوم بذلك قبل المثال لتنفيذ ذلك

ارجوا الرد من المشرفين والاخوة الاعزاء احباب الفوكس برو

فى انتظاركم - اخوكم عماد

اهلا أخ عماد بيننا في هذا المنتدى...

نزلت أهلا وحللت سهلا... بس بدك تطوًل بالك شوي

داخلين هاي الفترة على سبات شتوي... يعني خلي أعصابك باردة ونفسك طويل

لا أعرف بالفوكس برو ما يمكننا من عمل ذلك بشكل مباشر

ولكن باستخدام دوال Api كل شيء ممكن

جرب تغيير اللغة بالأمر التالي ( ضعه في Commad Button )

#define HKL_PREV 0
#define HKL_NEXT 1
declare integer ActivateKeyboardLayout in win32API ;
integer hkl, integer Flags
ActivateKeyboardLayout(HKL_NEXT,0)

بالنسبة للـ TextBox

تستطيع توظيف الأوامر التالية للقيام بالمهمة المطلوبة

في اجراء GetFocus

declare integer ActivateKeyboardLayout in win32api integer,integer
declare long LoadKeyboardLayout in WIN32API string pwszKLID,integer flags
ActivateKeyboardLayout(1025,0)
=LoadKeyboardLayout('00000429', 1 )

في اجراء LostFocus

ActivateKeyboardLayout(1033,8)
= LoadKeyboardLayout('00000409', 1)

ان شاء الله يفيدك هذا الحكي...

مع التحية

مرحبا Shadowz

كيف احوالك. اتمنى ان تكون بخير وصحة انت وكافة عائلتك الكريمة

سوف ارسل لك رسالة قريبا ارجو ان تقراها

مرحبا fire_stone64

جرب استعمال هذا code مع انني عملت ما تطلبه مسبقا ولكني لم اجده

ضع هذا code في Textbox_GetFocus and Textbox_Lostfocus

oWSS = CreateObject("WScript.Shell")
oWSS.SendKeys("%+")

اهلا أخي سمير

الحمد لله الجميع بخير... طمني عنكم ؟؟

بانتظار رسالتك..وأكيد بقرأها ان شاء الله

مع التحية

اهلا وسهلا اخی الفاضل مرحبا Shadowz

تمت الامر بصوره طیبه شکرا جزیلا

اتمنی ان تشرح لنا الاوامر ان امکن

سعید بمعرفتک

اخوک عماد

اخي عماد

كل الموضوع متعلق بالأمر ActivateKeyboardLayout الذي تستطيع من خلاله تحديد احدى اللغات المثبتة على الجهاز والمراد استخدامها

واذا أحببت الاستفادة اليك الروابط التالية :

Language Collections

ActivateKeyboardLayout Function

Using Win32 functions in Visual FoxPro