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