VB.Net by API/System/Char

Char.IsDigit

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Console.WriteLine("is digit: " & Char.IsDigit("aaa") )
 End Sub " Main

End Class

 </source>

Char.IsLetter

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Console.WriteLine("is letter: " & Char.IsLetter("aaa") )
 End Sub " Main

End Class

 </source>

Char.IsLetterOrDigit

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Console.WriteLine("is letter or digit: " & Char.IsLetterOrDigit("aaa") )
 End Sub " Main

End Class

 </source>

Char.IsLower

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Console.WriteLine("is lower case: " & Char.IsLower("aaa") )
 End Sub " Main

End Class

 </source>

Char.IsPunctuation

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Console.WriteLine("is punctuation: " & Char.IsPunctuation("aaa") )
 End Sub " Main

End Class

 </source>

Char.IsSymbol

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Console.WriteLine("is symbol: " & Char.IsSymbol("aaa"))
 End Sub " Main

End Class

 </source>

Char.IsUpper

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Console.WriteLine("is upper case: " & Char.IsUpper("aaa") )
 End Sub " Main

End Class

 </source>

Char.IsWhiteSpace

<source lang="vbnet">

Public Class Tester

   Public Shared Sub Main
       Dim source As String = _
           Space(17) & "This    string    had " & Chr(12) & _
           StrDup(5, Chr(9)) & "extra whitespace. " & Space(27)
       Dim thisIsWhiteSpace As Boolean
       Dim prevIsWhiteSpace As Boolean
       Dim result As New System.Text.StringBuilder(source.Length)
       Dim counter As Integer
       For counter = 0 To source.Length - 1
           prevIsWhiteSpace = thisIsWhiteSpace
           thisIsWhiteSpace = Char.IsWhiteSpace(source.Chars(counter))
           If (thisIsWhiteSpace = False) Then
               If (prevIsWhiteSpace = True) AndAlso _
                  (result.Length > 0) Then result.Append(Space(1))
               result.Append(source.Chars(counter))
           End If
       Next counter
       Console.WriteLine(result.ToString())
   End Sub

End Class

 </source>

Char.ToLower

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Console.WriteLine("to lower case: " & Char.ToLower("aaa") )
 End Sub " Main

End Class

 </source>

Char.ToUpper

<source lang="vbnet"> Imports System Public Class MainClass

  Shared Sub Main()
     Console.WriteLine("to upper case: " & Char.ToUpper("aaa") )
 End Sub " Main

End Class

 </source>