InteropServices.Marshal : InteropServices « System.Runtime.InteropServices « VB.Net by API

1. VB.Net by API
2. System.Runtime.InteropServices
3. InteropServices

InteropServices.Marshal

   

Public Class Tester
    Public Shared Sub Main
    

        Dim result As New System.Text.StringBuilder
        Dim maxDecimal As Decimal = Decimal.MaxValue
        Dim sizeOfDecimal As Integer = Runtime.InteropServices.Marshal.SizeOf(maxDecimal.GetType)

        result.Append("Memory size of a Decimal (bytes): ")
        result.AppendLine(sizeOfDecimal)
        result.Append("Maximum value of a Decimal: ")
        result.AppendLine(maxDecimal)
        result.Append("Divided by one million: ")
        result.AppendLine(maxDecimal / 1000000D)
        result.Append("1D / 3D: ")
        result.AppendLine(1D / 3D)

        Console.WriteLine(result.ToString())
     End Sub

End Class

   
    
    
  

Related examples in the same category