منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[مشروع] مشرع لغات متعددة للمشروع + شرح الكيفية - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مشروع] مشرع لغات متعددة للمشروع + شرح الكيفية (/showthread.php?tid=34470)

مشرع لغات متعددة للمشروع + شرح الكيفية - Codack - 26-04-20

السلام عليكم

لو حبيت تعمل مشروعك بأكثر من لغة بإمكانك الان بهذه الطريقة
كل ما هو عليك ان  تصمم مشروعك باللغة اللي تحبها
وبتعدين من خصائص الفورم تفعل خاصية localizable تخليها true
[صورة مرفقة: mm85swdll2h2.png]


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

[صورة مرفقة: oxoti7f8auyw.png]


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

الكود في اي مكان في الفورم

PHP كود :
Public Sub ChangeLanguage(ByVal LanguageEx As String)
        Try
            System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo(LanguageEx)
            Controls.Clear()
            InitializeComponent()
            If IO.File.Exists(Application.StartupPath & "\Language.lg") = False Then
                IO.File.CreateText(Application.StartupPath & "\Language.lg").Close()
            End If
            IO.File.WriteAllText(Application.StartupPath & "\Language.lg", LanguageEx, System.Text.Encoding.UTF8)
        Catch ex As Exception

        End Try
    End Sub 


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

PHP كود :
       If IO.File.Exists(Application.StartupPath & "\Language.lg") = False Then
            ChangeLanguage("ar")
        End If
        ChangeLanguage(IO.File.ReadAllText(Application.StartupPath & "\Language.lg", System.Text.Encoding.Default).Trim) 

كود اختيار اللغة

PHP كود :
 ChangeLanguage("ar") 

وعدل ar الي en للإنجليزية او fr للفرنسية ... الخ.