[VB.NET] الطريقة الصحيحة لجعل برنامجك متعدد اللغات

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

هذه الطريقة تستخدمها أغلب الشركات الكبرى
مثال برنامج Internet Download Manager

وليس صنع برنامج متعدد اللغات فقط , بل متعدد اللهجات أيضاً

والطريقة كالتالي :

كود :

   Private Sub ChangeLanguage(ByVal Language As String)

        For Each c As Control In Me.Controls

            Dim crmLang As ComponentResourceManager = New ComponentResourceManager(GetType(Form1))

            crmLang.ApplyResources(c, c.Name, New CultureInfo(Language))

        Next c

كود :

       ComboBox1.Items.Add("English")

        ComboBox1.Items.Add("العربية - السعودية")

        ComboBox1.Items.Add("العربية - مصر")

        ComboBox1.Items.Add("العربية - الأردن")



        If ComboBox1.SelectedIndex = 0 Then  '

            ChangeLanguage("en-us")

        End If





        If ComboBox1.SelectedIndex = 1 Then

            ChangeLanguage("ar-SA")

        End If





        If ComboBox1.SelectedIndex = 2 Then

            ChangeLanguage("ar-EG")

        End If



        If ComboBox1.SelectedIndex = 3 Then

            ChangeLanguage("ar-JO")

        End If





        '-----------------------------------------------------------

        Dim myCurrentLanguage As InputLanguage = InputLanguage.CurrentInputLanguage



        If myCurrentLanguage.Culture.EnglishName = "English (United States)" Then

            ComboBox1.SelectedIndex = 0

        End If



        If myCurrentLanguage.Culture.EnglishName = "Arabic (Saudi Arabia)" Then

            ComboBox1.SelectedIndex = 1

        End If



        If myCurrentLanguage.Culture.EnglishName = "Arabic (Egypt)" Then

            ComboBox1.SelectedIndex = 2

        End If





        If myCurrentLanguage.Culture.EnglishName = "Arabic (Jordan)" Then

            ComboBox1.SelectedIndex = 3

        End If

كود :

       If ComboBox1.SelectedIndex = 0 Then

            ChangeLanguage("en-us")

        ElseIf ComboBox1.SelectedIndex = 1 Then

            ChangeLanguage("ar-SA")

        Else

            ChangeLanguage("ar-EG")

        End If