ConversionDemo.vb

 1: ' This program shows various number to string conversions
 2: ' Written 2/2010 by Wayne Pollock, Tampa Florida USA
 3: 
 4: ' Option Strict On  ' Turns off automatic conversions
 5: Option Explicit On  ' Requires all variables to be declared
 6: 
 7: Public Class ConversionDemo
 8:     Private Sub ExitBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitBtn.Click
 9:         Me.Close()
10:     End Sub
11: 
12:     Private Sub ConvertBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConvertBtn.Click
13:         ' Convert the user supplied number in various ways and display the results.
14:         ' This is the form's Accept Button
15:         Dim number As Double
16: 
17:         number = Convert.ToDouble(InputNumTxtBox.Text)
18: 
19:         DefaultTxtBox.Text = number
20:         ToStringTxtBox.Text = number.ToString()
21:         StrTxtBox.Text = Str(number)
22:         Convert_ToStringTxtBox.Text = Convert.ToString(number)
23:         String_FormatTxtBox.Text = String.Format("{0:N}", number)
24:         ToString_C2_TxtBox.Text = number.ToString("C2")
25:         ToString_E_TxtBox.Text = number.ToString("E")
26:         ToString_F2_TxtBox.Text = number.ToString("F2")
27:     End Sub
28: 
29:     Private Sub InputNumTxtBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InputNumTxtBox.TextChanged
30:         Dim num As Double
31:         ConvertBtn.Enabled = Double.TryParse(InputNumTxtBox.Text, num)
32:     End Sub
33: End Class