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

[ROSTAM2]

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

https://aparat.com/v/WR03Y

154988 (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.Languah eComboBox.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