منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود لتغيير اعدادات اللغة في الويندوز ؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود لتغيير اعدادات اللغة في الويندوز ؟؟ (/showthread.php?tid=7243)

الصفحات: 1 2


كود لتغيير اعدادات اللغة في الويندوز ؟؟ - aiman - 14-12-12

اي رد يا شباب !!!


كود لتغيير اعدادات اللغة في الويندوز ؟؟ - محمود اكرم - 10-06-13

السلام عليكم
الاخ
هذا رابط للتحويل من السي شارب الى الفيجوال بيسك دوت نت
http://www.developerfusion.com/tools/convert/csharp-to-vb/
السكر المغرور كتب :اخواني هو يبغى change system locale و ليس لغة كتابة الكيبورد ،،
وهو يختلف عن تغيير لغة كتابة الكيبورد حتى بعد اختياره لازم تطفي الجهاز و تشغله عشان يتطلبق و بحثت عنه بقوقل و لا وجدت
ممكن احد له خبره في السي شارب يبحث و يحول الكود ^_^ فيجول بيسك
ارجو ان ينفع


RE: كود لتغيير اعدادات اللغة في الويندوز ؟؟ - mefof - 26-01-25

ممكن يكون الموضوع قديم 
لكن الموضوع مهم للبعض فحبيث اشارك بهده الاجابة

هدا الكود خاص بتغيير لغة الجهاز من الانجليزي الى العربية

الاضافة التي  اضافها اخ  في الموضوع ممتازة جدا  لكن اريد توضيح نقطة

InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages().Item(1)

تفسير الكود:

InputLanguage.InstalledInputLanguages

ترجع قائمة بجميع لغات الإدخال المثبتة على النظام
(1)Item
يقوم باختيار اللغة الموجودة في الفهرس 1 (الثانية في القائمة). غالبًا تكون اللغة العربية إذا كانت مثبتة على الجهاز.
InputLanguage.CurrentInputLanguage
يتم استخدامه لتحديد لغة الإدخال الحالية للتطبيق

ملاحظات:
  • إذا كنت تريد التأكد دائمًا من اختيار لغة معينة (مثل "ar-SA" للغة العربية السعودية)، يمكنك البحث في قائمة اللغات عن اللغة التي تريدها بدلًا من الاعتماد على الفهرس:




فهده طريقة الصحيحة لتغيير لغة الجهاز



For Each lang As InputLanguage In InputLanguage.InstalledInputLanguages
    If lang.Culture.Name = "ar-SA" Then ' اللغة العربية - السعودية
        InputLanguage.CurrentInputLanguage = lang
        Exit For
    End If
Next