سؤال وجيه ... الكتابة بالعربية فقط !

السلام عليكم

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

بس هى طريقه طويله عيزه يكون الواحد فايق فى الحدث change لل text

اكتب select case لكل المحارف الانجليزيه بحيث ان المستخدم لو كتب حرف a مثلا يقابله الحرف ش هكذا استخدم الجمل الشرطيه وعيش هتيجى معاك نصيحه منى بعد ما تعملها ضعها فى مشاركه هههههههههههه

بهرج بس انا لو فاضى هعملها...

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

أنا اتكلم جد ما امزح .. والفكرة طرحت لتنشيط الذهن البرمجي بالإضافة لاعتقادي بأنها شيء عمليي في البرامج

بما أنك ذكرت فكره من باب المزاح فأنا عندي فكرة من باب المزاح أيضاً ..

وهي أخذ أرقام آسكي لكل الحروف الإنجليزية ومنعها من الدخول في Text من خلال الحدث keypress

ولو خايف من كثرت الكود ممكن تسوي حلقة من خلال أرقام آسكي :)

أتمنى أجد شخص جاد يجيب على السؤال ويناقش هذه الفكرة .. ولكم جزيل الشكر مقدماً

السلام علكيم

راجع المواضيع السابقة فقد تكرر الموضوع على ما أظن .

استخدم LoadKeyboardLayout لحل المشكله . (التحويل بين اللغات سيتم برمجيا ولا يحتاج المستخدم للتحويل ) ..

راجع الدوال Keyboard Input Functions في MSDN .هناك عدة دوال مفيدة في هذا الموضوع .

تحياتي

CIONO1

السلام عليكم

يا أخي فتى تاروت المسألة بسيطة

هناك دالة اسمها LoadKeyboardLayout كما ذكرها الأخ tmaaa ..

تضع الكود في الحدث Form_Load

وتنتهي المشكلة ....أنا عملت برنامج مثل كذا وقريبا أنزله هنا ..

أتمنى أن أكون قد أوضحت

وشكرا

السلام عليكم

Public Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long


Private Sub Text1_GotFocus()
ActivateKeyboardLayout 67699721, 1 ' English

End Sub

Private Sub Text2_GotFocus()
ActivateKeyboardLayout 67175425, 1 ' arabic

End Sub

انا مستغرب من شىء ان كل واحد تقف امامه حاجه يقولك استخدم اداه ocx مبعرفش ايه

وفى الاصل ممكن تكون هذه الاداه الجاهزه معتمده على الفكره اللى انا قولتها او الاخ

فتى تاروت....

انا شايف ان الانسان يجب ان يفكر لان البرمجه دى تفكير مش Copy Paste

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

to half angel :

لم يذكر استخدام ادوات ocx نهائيا في النقاش كاملاً ؟؟ !!!

ربما ان عادة استخدام ocx لدى برمجي الفيجوال بيسك قد أثرت عليك ...

ما قلناه هو استخدام تابع API و شتان بينها وبين ocx

باستعمال طريقتك ستتظر ايضا في الاخير الى استعمال توابع API . فبدلا من عمل لفة طويلة استخدم تابع API واحد وتنتهي المشكله ..

بطريقتك تلك ستناقش الكثير الكثير من الأمور , ربما لم تنتبه لهذا الأمر .

CIONO1

شكراً لكل من رد .. وتحية لجميع المتحاورين :)