Private Sub
btnProc_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnProc.Click
Dim strAns As String
Dim strHold As String
strHold = txtIn.Text
strAns = strHold.Length
lstOut.Items.Add("Length: " & strAns)
strAns = strHold.ToUpper
lstOut.Items.Add("ToUpper: " & strAns)
strAns = strHold.ToLower
lstOut.Items.Add("ToLower: " & strAns)
strAns = strHold.IndexOf("r")
lstOut.Items.Add("IndexOf: " & strAns)
strAns = strHold.Substring(3, 4)
lstOut.Items.Add("Substring: " & strAns)
End Sub
End
Class
Private Sub
btnProc_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnProc.Click
Dim strAns As String
Dim strHold As String
Dim chrQuote As String
chrQuote = Chr(34)
strHold = txtIn.Text
strAns = strHold.IndexOf("ll")
lstOut.Items.Add("IndexOf: " & strAns)
strAns = strHold.Substring(7)
lstOut.Items.Add("Substring: " & strAns)
lstOut.Items.Add(chrQuote & txtIn.Text & chrQuote)
End Sub
End
Class
Private Sub
btnProc_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnProc.Click
Dim strAns As String
Dim strHold As String
Dim strToTrim As String
Dim blnAns As Boolean
strToTrim = "
dog "
strHold = txtIn.Text
strAns = strHold.Substring(5, 3)
lstOut.Items.Add("Substring: " & strAns)
strAns = strHold.Replace("l", "*")
lstOut.Items.Add("Replace: " & strAns)
strAns = strToTrim.Trim()
lstOut.Items.Add("Trim: " & strAns)
blnAns = strHold.StartsWith("He")
lstOut.Items.Add("Start With: " & blnAns)
blnAns = strHold.StartsWith("el")
lstOut.Items.Add("Start With: " & blnAns)
End Sub
End
Class
Private Sub
btnProc_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnProc.Click
Dim strAns As String
Dim strHold As String
lstOut.Items.Add("Get Lower Bound: " &
arrColors.GetLowerBound(0))
lstOut.Items.Add("Get Upper Bound: " &
arrColors.GetUpperBound(0))
lstOut.Items.Add("Get Length: " & arrColors.GetLength(0))
lstOut.Items.Add("Get Value: " &
arrColors.GetValue(3))
lstOut.Items.Add("Get Value: " &
arrColors.GetValue(6))
arrColors.SetValue("purple", 6)
lstOut.Items.Add("Get Value: " &
arrColors.GetValue(6))
End Sub
Private Sub frmData_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
arrColors(0) = "red"
arrColors(1) = "orange"
arrColors(2) = "yellow"
arrColors(3) = "green"
arrColors(4) = "blue"
arrColors(5) = "indigo"
arrColors(6) = "violet"
End Sub
End Class