Page 86 - Programming VB.NET

82 Chapter 8: String Functions

Private Sub btnsub_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles btnsub.Click

lblsubout.Text = lblsubin.Text.Substring(2)

End Sub

Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles btnsubsl.Click

lblsubout.Text =lblsubin.Text.Substring(0, 5)
End Sub

Private Sub btnindex_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles btnindex.Click

'If search string caps lock or small from
original, the output display -1

lblsubout.Text = lblsubin.Text.IndexOf("Z")
End Sub

End Class