السلام عليكم ورحمة الله وبركاته
نصبت البرنامج للعميل واستخدمت الكود التالي للغة
في حالة كان TXT للبوتن EN فيختار اللغة الانجليزي او لا يعمل شي
ووضعت اللغة العربية هي الافتراضيه
ووضعت الانجليزية للولايات المتحدة هي اللغة الثانية
والكواد كما يلي
في جهازي تعمل بشكل طبيعي وحتى بعد ان حولت البرنامج الى ملف تنفيذي ونصبته على جهازي يعمل بشكل ممتاز ولكن في جهاز العميل اللغة لا تعمل
كود :
If btLangug.Text = "En" Then
CurrentThread.CurrentUICulture = New CultureInfo("EN-us")
End If
ما رضي يا الغالي
انا لغة البرنامج مستخدم فيها EN-us وعدلته وما نفع
ما رضي اخوي عبد الله
انا ابغا الشخص اذا اختار 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()
هل تقصد انك صممت البرنامج بلغتين ( عربي / إنجليزي ) واجهة العربي تختلف عن واجهة الإنجليزي
ويستطيع المستخدم التغيير بين الواجهتين ( واجهة عربية وأخرى إنجليزية )
أم تقصد تغيير لغة الإدخال فقط , يرجى التوضيح
لأن مشاركتك الأولى تعني لغة الإدخال وليس تغيير واجهة المستخدم
إقتباس :هل تقصد انك صممت البرنامج بلغتين ( عربي / إنجليزي ) واجهة العربي تختلف عن واجهة الإنجليزي
ويستطيع المستخدم التغيير بين الواجهتين ( واجهة عربية وأخرى إنجليزية )
هذا ما اقصده بالظبط
صممت الواجهتين عربي ثم اخترت اللغة الانجليزي وصممت الواجهه انجليزي
هل خاصية Localizable للفورم مفعلة = True
؟؟؟
الكود الذي إستخدمتة ؟؟ أين وضعت بالضبط داخل الفورم
كود :
If btLangug.Text = "En" Then
CurrentThread.CurrentUICulture = New CultureInfo("EN-us")
End If
انا سويت فورم 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)