VB.Net by API/System/Integer

Integer.CompareTo

<source lang="vbnet">

public class Test

  public Shared Sub Main
       Dim I As Integer = 0
       Dim S As Integer = 8
       Console.WriteLine(I.rupareTo(S))
  End Sub

End class

 </source>

Integer.GetType

<source lang="vbnet"> Module Module1

 Const x As String = "This is a string"
 Sub Main()
   Dim a As Double = 5.678
   Dim b As Int32 = 123
   Console.WriteLine(a.ToString)
   Console.WriteLine(b.ToString)
   Console.WriteLine(456.987.ToString)
   Dim c As Integer
   Console.WriteLine(c.GetType())
   Console.WriteLine(c.GetType().ToString)
 End Sub

End Module

 </source>

Integer.MaxValue

<source lang="vbnet"> Public Class Tester

   Public Shared Sub Main
       Dim result As New System.Text.StringBuilder()
       result.AppendLine("MaxValue...")
       Dim maxByte As Byte = Byte.MaxValue
       Dim maxSByte As SByte = SByte.MaxValue
       Dim maxShort As Short = Short.MaxValue
       Dim maxUShort As UShort = UShort.MaxValue
       Dim maxInteger As Integer = Integer.MaxValue
       Dim maxUInteger As UInteger = UInteger.MaxValue
       Dim maxLong As Long = Long.MaxValue
       Dim maxULong As ULong = ULong.MaxValue
       result.Append("Byte ").AppendLine(maxByte)
       result.Append("SByte ").AppendLine(maxSByte)
       result.Append("Short ").AppendLine(maxShort)
       result.Append("UShort = ").AppendLine(maxUShort)
       result.Append("Integer = ").AppendLine(maxInteger)
       result.Append("UInteger = ").AppendLine(maxUInteger)
       result.Append("Long = ").AppendLine(maxLong)
       result.Append("ULong = ").AppendLine(maxULong)
       Console.WriteLine(result.ToString())
    End Sub

End Class

 </source>

Integer.MinValue

<source lang="vbnet"> public class Test

  public Shared Sub Main
              Dim iNum As Integer
              Console.WriteLine("Integer: " & iNum.MinValue & " to " & iNum.MaxValue)
  End Sub

End class

 </source>

Integer.Parse

<source lang="vbnet"> Imports System Imports System.Configuration Imports System.Resources " Resource readers Public Class MainClass

   Shared Sub Main(ByVal args As String())
       Dim flag As Boolean = False
       Dim name As String = ""
       Dim number As Integer = 0
       Dim i As Integer
       For i = 0 To args.Length - 1
           Select Case args(i)
               Case "/flag"
                   flag = True
               Case "/name"
                   i += 1
                   name = args(i)
               Case "/number"
                   i += 1
                   number = Integer.Parse(args(i))
               Case Else
                   Console.WriteLine("invalid args!")
                   Exit Sub
           End Select
       Next
       Console.WriteLine(flag.ToString(), "Flag")
       Console.WriteLine(name, "Name")
       Console.WriteLine(number.ToString(), "Number")

   End Sub

End Class

 </source>

Integer.ToString()

<source lang="vbnet"> Imports System Imports System.Data Imports System.Collections public class MainClass

  Shared Sub Main()
       Dim A As Boolean
       Dim I As Integer
       I = 5
       A = CBool(I)
       Console.WriteLine("Value of Boolean assigned from 5 is : " + A.ToString())
       I = CInt(A)
       Console.WriteLine("And converted back to Integer: " + I.ToString())
  End Sub

End Class

 </source>