اضافه کردن همه زبانها به یک ToolStripCombobox برای اضافه کردن به ListView

در این آموزش برای اضافه کردن یک زبان به برنامه مورد نظر ابتدا زبانها به یک آرایه اضافه و سپس DisplayName از زبانها به ComboBox و LCID به یک لیست از دیتا تایپی با کلاس Integer و نهایتها اطلاعات Culture به ListView اضافه می شه....

https://aparat.com/v/WR03Y

    Dim Cultures() As CultureInfo = CultureInfo.GetCultures(CultureTypes.AllCultures)

    Dim LanguageList As New List(Of Integer)

        Dim Index As Integer = -1

        With Me.LanguaheComboBox

            For Each Culture As CultureInfo In Cultures

                If Culture.LCID = 127 Then Continue For

                Index = .Items.Add(Culture.DisplayName)

                LanguageList.Insert(Index, Culture.LCID)

            Next

            If .Items.Count > 0 Then

                .SelectedIndex = 0

            End If

        End With

        Dim Culture_ As CultureInfo = CultureInfo.GetCultureInfo(LanguageList(Me.LanguaheComboBox.SelectedIndex))

        With Me.ListView1.Items

            With .Add((.Count + 1).ToString, 0)

                .SubItems.Add(Culture_.EnglishName)

                .SubItems.Add(Culture_.DisplayName)

                .SubItems.Add(Culture_.Name)

                .SubItems.Add(Culture_.LCID)

            End With

        End With