Page 84 - Programming VB.NET

80 Chapter 8: String Functions

Public Class Form1

Private Sub btnup_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles btnup.Click

lbloutput.Text=txtinput.Text.ToUpper()

End Sub
Private Sub btnlow_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles btnlow.Click

lbloutput.Text = txtinput.Text.ToLower()
End Sub

Private Sub btnnumeric_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles btnnumeric.Click

If IsNumeric(txtinput.Text) Then
lbloutput.Text = "It's a number"
Else
lbloutput.Text = "It's NOT a
number"
End If
End Sub