String.ToUpper() : String « System « VB.Net by API






  1. VB.Net by API
  2. System
  3. String

String.ToUpper()

  
Public Class Tester
    Public Shared Sub Main
        Dim quote As String = "AbCdEfG"
        Dim result As New System.Text.StringBuilder

        result.AppendLine("Original:   " & quote)
        result.AppendLine("Upper Case: " & quote.ToUpper())
        result.AppendLine("Lower Case: " & quote.ToLower())
        result.AppendLine("Mixed Case: " & MixedCase(quote))

        Console.WriteLine(result.ToString())
    End Sub
    Public Shared Function MixedCase(ByVal origText As String) As String
        Dim counter As Integer
        Dim textParts() As String = Split(origText, " ")

        For counter = 0 To textParts.Length - 1
            If (textParts(counter).Length > 0) Then _
               textParts(counter) = _
               UCase(Microsoft.VisualBasic.Left( _
               textParts(counter), 1)) & _
               LCase(Mid(textParts(counter), 2))
        Next counter

        Return Join(textParts, " ")
    End Function

End Class








Related examples in the same category

1.String.Compare
2.String.Concat
3.String.Copy
4.String.Empty
5.String.Equals
6.String.Format
7.String.GetEnumerator
8.String.GetHashCode()
9.String.IndexOf(String substring)
10.String.IndexOfAny(String sub)
11.String.IndexOfAny(String sub, Int count)
12.String.Insert
13.String.IsNullOrEmpty
14.String.LastIndexOf
15.String.PadLeft(Int length)
16.String.PadLeft(Int length, String char)
17.String.Replace
18.String.Split
19.String.StartsWith
20.String.Substring(Int begin)
21.String.Substring(Int begin, Int end)
22.String.ToCharArray()
23.String.ToLower()