form2.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 Form2
	  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 DisplayThis(ByVal dt As DateTime)
	  Dim timeSeparator As String = ":"
	  label1.Text = dt.Hour & timeSeparator & dt.Minute
	  dt.ToUniversalTime()
	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 ParseThat(ByVal someTime As String)
	  ' someTime comes in as "13/1/06 23.31.54"
	  Dim dt As DateTime = DateTime.Parse(someTime)
	  MessageBox.Show(dt.ToString())
	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 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()
	  Dim decimalPoint As Integer = temp.IndexOf("."c)
	  Return temp.Substring(decimalPoint + 1)
	End Function

	Private Sub button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button2.Click
	  label1.Text = Me.FirstDayOfWeekToString()
	End Sub
	Private Function FirstDayOfWeekToString() As String
	  Return DayOfWeek.Monday.ToString()
	End Function
  End Class
End Namespace