form2revisited.vb

清华大学出版社出版的 移动应用开发宝典 张大威（2008）的附书源代码

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 Form2Revisited
	  Inherits Form
	Public Sub New()
	  InitializeComponent()
	End Sub

	Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
	  Me.DisplayThis(DateTime.Now)
	End Sub

	Private Sub menuItem1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles menuItem1.Click
	  Me.ParseThat("13/1/06 23.31.54")
	End Sub

	Private Sub menuItem2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles menuItem2.Click
	  Dim s As String = Me.ExtractDecimalPoints(12.34)
	  label1.Text = s
	End Sub

	Private Sub button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button2.Click
	  label1.Text = Me.FirstDayOfWeekToStringCorrect()
	End Sub

	Private Sub DisplayThis(ByVal dt As DateTime)
	  Dim ci As CultureInfo = CultureInfo.CurrentCulture
	  Dim timeSeparator As String = ci.DateTimeFormat.TimeSeparator
	  label1.Text = dt.Hour & timeSeparator & dt.Minute
	End Sub

	Private Sub ParseThat(ByVal someTime As String)
	  ' someTime comes in as "13/1/06 23.31.54"
	  Dim ci As CultureInfo = New CultureInfo("it-IT")
	  Dim dt As DateTime = DateTime.Parse(someTime, ci)
	  MessageBox.Show(dt.ToString())
	End Sub

	Private Function ExtractDecimalPoints(ByVal valueFromNetwork As Double) As String
	  ' valueFromNetwork comes in as 12.34 but on French becomes 12,34
	  Dim temp As String = valueFromNetwork.ToString(New CultureInfo("en-GB"))
	  Dim decimalPoint As Integer = temp.IndexOf("."c)
	  Return temp.Substring(decimalPoint + 1)
	End Function

	Private Function FirstDayOfWeekToString() As String
	  Dim dow As DayOfWeek = CultureInfo.CurrentCulture.DateTimeFormat.FirstDayOfWeek

	  Select Case dow
		Case DayOfWeek.Monday
		  Return "Monday"
		Case DayOfWeek.Sunday
		  Return "Sunday"
		Case Else
		  Return "Monday" 'arbitrary decision
	  End Select
	End Function

	Private Function FirstDayOfWeekToStringCorrect() As String
	  Dim dtfi As DateTimeFormatInfo = CultureInfo.CurrentCulture.DateTimeFormat
	  Dim dow As DayOfWeek = dtfi.FirstDayOfWeek
	  Return dtfi.DayNames(CInt(Fix(dow)))
	End Function

	Private Sub button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button3.Click
      'Me.Hardcoded()
	  Me.FromResources()
	End Sub

	Private Sub Hardcoded()
	  label1.Text = "Day of week:"
	  textBox1.Text = "Saturday"
	End Sub
	Private Sub FromResources()
      label1.Text = My.Resources.Resource1.label1
      textBox1.Text = My.Resources.Resource1.saturday
	End Sub
  End Class
End Namespace