| Imports System.Globalization Public Class WebForm1 Inherits System.Web.UI.Page Public Function GetCountry() As List(Of String) Dim list As New List(Of String)() Dim cultures As CultureInfo() =CultureInfo.GetCultures(CultureTypes.InstalledWin32CulturesOr CultureTypes.SpecificCultures) For Each info As CultureInfo In cultures Dim info2 As New RegionInfo(info.LCID) If Not list.Contains(info2.EnglishName) Then list.Add(info2.EnglishName) End If Next Return list End Function Protected Sub Page_Load(ByVal senderAs Object,ByVal e As System.EventArgs)Handles Me.Load DropDownList1.DataSource = GetCountry() DropDownList1.DataBind() DropDownList1.Items.Insert(0, "Select") End Sub End Class |