1-كيف أقلب الكتابة للعربية مركزيا من داخل برنامجى ؟/

أرجو أن يهتم أحد الإخوة الكرام بالأمر

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 Text1_GotFocus()
	Call ArabicKeyboard("a")
End Sub

هذا الكود ضعه في الفورم وسيقوم بتحويل اللغة الى العربية في شريط اللغة برمجيا

الأخ الكريم المهنا لا أدرى كيف أشكرك على اهتمامك بالرد فجزاك الله خيرا

لكن حينما جربت الكود حدثت رسالة خطأ لعدم تعريف الدوال ولم أجدها فى برنامج ال Api Guide فقمت بتبديلها بالدوال

GetKeyboardLayoutName

LoadKeyboardLayout

ولكن لم يتغير الأمر عن ذى قبل والمشكلة أن ذلك يقلب الكتابة للعربية داخل برنامجى فقط أما خارجه فيبقى الأمر كما هو وكنت أريد تجربة أمر Sendkeys فهل تعرف كيف أعرف الجهاز أن ال ALt ,Shift المطلوب ضغطها هى اليمين وليست الشمال ؟

أيضا فى انتظار الرد على السؤال الثانى حتى يمكن إكمال البرنامج الذى أود أن أعرضه عليكم لتقيموه بإذن الله

اللهم إنك عفو تحب العفو فاعف عنا

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

في Module

آسف لإبلاغك أن المشكلة لازالت قائمة أخى الحبيب .. هذا الكود لا يحول للعربية حينما أكتب فى نافذة أخرى غير نافذة برنامجى

وشاكر جدا لجهدك الكبير معى

السلام عليكم

أحيانا أقوم بتحميل ملفات لبرامج مكتوبة بلغة الفيجوال بيسك وألاحظ عندما أقوم بالنظر إلى الكود أن أي عبارة مكتوبة باللغة العربية تظهر بلغة عجيبة وبقية البرنامج ما فيه مشاكل لأنه بالإنجليزية فمثلا يقوم المبرمج بكتابة رسالة في massege boxباللغة العربية ولكنني عندما أنظر لها تكون نوعا ما لغة مشفرة

فيا ترى هل السبب يعود لأنني لم أعرّب الويندوز على جهازي أم أن هناك طريقة تمكني من قراءة الكود كامل بمقاطعه العربية والإنجليزية؟

أرجو الإفادة ولكم جزيل الشكر على تعاونكم

الأخت الكريمة أعتقد أن المشكلة قد تحل لو قمتى بتنزيل اللغة العربية على نظام التشغيل من

control panel /regional ans language options

هل أطمع فى المساعدة من جديد؟

0

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

للرفع