VB.Net by API/System/Convert

Convert.FromBase64String

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
       Dim quote As String = "AAAAA"
       Dim quoteBytes As Byte() = System.Text.Encoding.UTF8.GetBytes(quote)
       Dim quote64 As String = Convert.ToBase64String(quoteBytes)
       Dim byteSet As Byte() = Convert.FromBase64String(quote64)
       
       Dim result As String = System.Text.Encoding.UTF8.GetString(byteSet)
       
       Console.WriteLine(quote & vbNewLine & quote64 & vbNewLine & result)
   End Sub

End Class

 </source>

Convert.ToBase64String

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
       Dim quote As String = "AAAAA"
       Dim quoteBytes As Byte() = System.Text.Encoding.UTF8.GetBytes(quote)
       Dim quote64 As String = Convert.ToBase64String(quoteBytes)
       Dim byteSet As Byte() = Convert.FromBase64String(quote64)
       
       Dim result As String = System.Text.Encoding.UTF8.GetString(byteSet)
       
       Console.WriteLine(quote & vbNewLine & quote64 & vbNewLine & result)
   End Sub

End Class

 </source>

Convert.ToInt32

<source lang="vbnet"> Imports System Imports System.Text Imports System.Text.RegularExpressions

Public Class MainClass

   Shared Sub Main(  )
       Dim blnTrue As Boolean = True
       Dim blnOne As Boolean = 1
       Dim blnNegOne As Boolean = -1
       Dim blnFalse As Boolean = False
   
       If Convert.ToInt16(blnNegOne) = 1 Then
         Console.WriteLine(blnFalse)
         Console.WriteLine(Convert.ToString(Convert.ToInt32(blnFalse)))
       End If
   End Sub "Main
  

End Class

 </source>

Convert.ToInt64

<source lang="vbnet"> Imports System

Public Class MainClass

   Shared Sub Main(  )
       Dim l As Long
       Dim s As Single
   
       l = Long.MaxValue
       Console.WriteLine(l)
   
       s = Convert.ToSingle(l)
       s -= 1000000000000
       l = Convert.ToInt64(s)
   
       Console.WriteLine(l)
   End Sub "Main
  

End Class

 </source>

Convert.ToSingle

<source lang="vbnet"> Imports System

Public Class MainClass

   Shared Sub Main(  )
       Dim l As Long
       Dim s As Single
   
       l = Long.MaxValue
       Console.WriteLine(l)
   
       s = Convert.ToSingle(l)
       s -= 1000000000000
       l = Convert.ToInt64(s)
   
       Console.WriteLine(l)
   End Sub "Main
  

End Class

 </source>

Convert.ToUInt16

<source lang="vbnet"> Imports System Imports System.Text Imports System.Text.RegularExpressions

Public Class MainClass

   Shared Sub Main(  )
       Dim shrShort As Short
       Dim shrUInt16 As UInt16
       Dim shrInt16 As Int16
       Dim intInteger As Integer
       Dim intUInt32 As UInt32
       Dim intInt32 As Int32
       Dim lngLong As Long
       Dim lngInt64 As Int64
   
       shrShort = 0
       shrUInt16 = Convert.ToUInt16(shrShort)
       shrInt16 = shrShort
       intInteger = shrShort
       intUInt32 = Convert.ToUInt32(shrShort)
       intInt32 = shrShort
       lngInt64 = shrShort
   
       lngLong = lngLong.MaxValue
       If lngLong > Short.MaxValue Then
         shrShort = Convert.ToInt16(lngLong)
       End If
       intInteger = CInt(lngLong)
   
   End Sub "Main
  

End Class

 </source>