form3.vb

来自「Microsoft Mobile Development Handbook的代码」· VB 代码 · 共 52 行

Imports Microsoft.VisualBasic
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports System.Globalization

Namespace Localisation
  Public Partial Class Form3
	  Inherits Form
	Public Sub New()
	  InitializeComponent()

	  Dim ci As CultureInfo = CultureInfo.CurrentCulture
	  Dim ci2 As CultureInfo = CultureInfo.CurrentUICulture

	  Me.Text = ci.Name & ", " & ci2.Name 'always the same
	End Sub

	Private Sub Form3_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
	  comboBox1.Items.Add(New CultureInfo("fr-FR"))
	  comboBox1.Items.Add(New CultureInfo("fr-CA"))
	  comboBox1.Items.Add(New CultureInfo("en-GB"))
	  comboBox1.Items.Add(New CultureInfo("en-CA"))
	  comboBox1.Items.Add(New CultureInfo("el-GR"))
	  comboBox1.Items.Add(New CultureInfo("de-DE"))
	  comboBox1.Items.Add(New CultureInfo("es-ES"))
	  comboBox1.Items.Add(New CultureInfo("de-AT"))
	  comboBox1.Items.Add(New CultureInfo("ru-RU"))

	  ' PlatfromNotSupportedException for Japanese
      'comboBox1.Items.Add(new CultureInfo("ja-JP"))

	  AddHandler comboBox1.SelectedIndexChanged, AddressOf comboBox1_SelectedIndexChanged
	End Sub

	Private Sub comboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
	  Me.Render(CType(comboBox1.SelectedItem, CultureInfo))
	End Sub

	Private Sub Render(ByVal ci As CultureInfo)
	  textBox1.Text = ci.Name
	  textBox2.Text = ci.EnglishName
	  textBox3.Text = ci.NativeName
	  textBox4.Text = ci.LCID.ToString()
	  textBox5.Text = ci.DateTimeFormat.FirstDayOfWeek.ToString()
	  textBox6.Text = ci.NumberFormat.CurrencySymbol
	End Sub
  End Class
End Namespace