[altho8]

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

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

في حالة كان TXT للبوتن EN فيختار اللغة الانجليزي او لا يعمل شي 


ووضعت اللغة العربية هي الافتراضيه 

ووضعت الانجليزية للولايات المتحدة هي اللغة الثانية 

والكواد كما يلي


في جهازي تعمل بشكل طبيعي وحتى بعد ان حولت البرنامج الى ملف تنفيذي ونصبته على جهازي يعمل بشكل ممتاز ولكن في جهاز العميل اللغة لا تعمل

كود :

                   If btLangug.Text = "En" Then
                       CurrentThread.CurrentUICulture = New CultureInfo("EN-us")
                   End If

[ابو ليلى]

جرب التعديل لما يلي

PHP كود :

       For Each inp As InputLanguage In InputLanguage.InstalledInputLanguages
            If inp.Culture.Parent.Name = "ar" And btLangug.Text = "Ar" Then
                InputLanguage.CurrentInputLanguage = inp
            ElseIf inp.Culture.Parent.Name = "en" And btLangug.Text = "En" Then
                InputLanguage.CurrentInputLanguage = inp
            End If
        Next 


[altho8]

ما رضي يا الغالي

انا لغة البرنامج مستخدم فيها EN-us وعدلته وما نفع

[عبدالله الدوسري]

كود :

       Dim LangName As String = btLangug.Text
       For Each inp As InputLanguage In InputLanguage.InstalledInputLanguages
           If inp.Culture.TwoLetterISOLanguageName.ToLower = LangName.ToLower Then
               InputLanguage.CurrentInputLanguage = inp
           End If
       Next

[altho8]

ما رضي اخوي عبد الله 

انا ابغا الشخص اذا اختار en يفتح النظام للانجليزي وليس يعتمد على لغة الجهاز


انا جربت هالكود وشغال تمام ولكن المشكلة عند تحويله الى ملف تنفيذي وتنصيبه على الجهاز لا يعمل 

رغم اني نصبته على نفس جهازي الذي اعمل عليه

ونصبته على جهاز اخر

كود :

       If btLangug.Text = "En" Then
           Dim cul As New System.Globalization.CultureInfo("en-us")
           System.Threading.Thread.CurrentThread.CurrentUICulture = cul

       End If

       'Dim frm As New Interface1


       Interface1.Show()

[عبدالله الدوسري]

هل تقصد انك صممت البرنامج بلغتين ( عربي / إنجليزي ) واجهة العربي تختلف عن واجهة الإنجليزي
ويستطيع المستخدم التغيير بين الواجهتين ( واجهة عربية وأخرى إنجليزية )

أم تقصد تغيير لغة الإدخال فقط , يرجى التوضيح 
لأن مشاركتك الأولى تعني لغة الإدخال وليس تغيير واجهة المستخدم

[altho8]

إقتباس :هل تقصد انك صممت البرنامج بلغتين ( عربي / إنجليزي ) واجهة العربي تختلف عن واجهة الإنجليزي

ويستطيع المستخدم التغيير بين الواجهتين ( واجهة عربية وأخرى إنجليزية )

هذا ما اقصده بالظبط 

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

[عبدالله الدوسري]

هل خاصية Localizable للفورم مفعلة = True
؟؟؟

---

الكود الذي إستخدمتة ؟؟ أين وضعت بالضبط داخل الفورم

كود :

  If btLangug.Text = "En" Then
                      CurrentThread.CurrentUICulture = New CultureInfo("EN-us")
                  End If

[altho8]

انا سويت فورم logn
ووضعت في حالة تحقق الشرط اسم المستخدم وكملة المرور تفعيل الكود 

كود :

 If btLangug.Text = "En" Then
                     CurrentThread.CurrentUICulture = New CultureInfo("EN-us")
                 End If

وايضا وضعت في حدث اللود لفورم الواجهه  الكود التالي

PHP كود :

CurrentThread.CurrentUICulture = New CultureInfo("EN-us") 


ولم يحدث شي

[عبدالله الدوسري]

استخدم الكود بهذة الطريقة :

كود :

           Dim lLng As String = "EN-us"
           Threading.Thread.CurrentThread.CurrentCulture = New CultureInfo(lLng)
           Threading.Thread.CurrentThread.CurrentUICulture = New CultureInfo(lLng)