Datamanip

 

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

 

Datamanip1

 

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

 

Datamanip1a

 

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

 

Datamanip2

 

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