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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=24350)

الصفحات: 1 2 3

اللغة في جهاز العميل لا تعمل - altho8 - 28-03-18

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

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

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


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

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

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


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

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


RE: اللغة في جهاز العميل لا تعمل - ابو ليلى - 28-03-18

جرب التعديل لما يلي
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 


RE: اللغة في جهاز العميل لا تعمل - altho8 - 29-03-18

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

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

RE: اللغة في جهاز العميل لا تعمل - عبدالله الدوسري - 29-03-18

كود :
       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


RE: اللغة في جهاز العميل لا تعمل - altho8 - 29-03-18

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

انا ابغا الشخص اذا اختار 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()


RE: اللغة في جهاز العميل لا تعمل - عبدالله الدوسري - 29-03-18

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

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

RE: اللغة في جهاز العميل لا تعمل - altho8 - 29-03-18

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

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

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

RE: اللغة في جهاز العميل لا تعمل - عبدالله الدوسري - 29-03-18

هل خاصية Localizable للفورم مفعلة = True
؟؟؟
الكود الذي إستخدمتة ؟؟ أين وضعت بالضبط داخل الفورم
كود :
  If btLangug.Text = "En" Then
                      CurrentThread.CurrentUICulture = New CultureInfo("EN-us")
                  End If


RE: اللغة في جهاز العميل لا تعمل - altho8 - 29-03-18

انا سويت فورم logn
ووضعت في حالة تحقق الشرط اسم المستخدم وكملة المرور تفعيل الكود 
كود :
 If btLangug.Text = "En" Then
                     CurrentThread.CurrentUICulture = New CultureInfo("EN-us")
                 End If
وايضا وضعت في حدث اللود لفورم الواجهه  الكود التالي
PHP كود :
CurrentThread.CurrentUICulture = New CultureInfo("EN-us") 

ولم يحدث شي

RE: اللغة في جهاز العميل لا تعمل - عبدالله الدوسري - 29-03-18

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

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