VB.Net/Windows System/System Data Type

Материал из VB Эксперт
Перейти к: навигация, поиск

Get Variable Underlying System Type

<source lang="vbnet"> Imports System.Reflection

Public Class MainClass

  Public Shared Sub Main()
       Dim A As Integer
       Dim B As Double
       Dim C As String = "Hello, world"
       Dim D As DateTime = New DateTime(Now.Ticks)
       Dim E As Byte
       Dim F As Boolean
       Console.WriteLine("Type Codes:")
       Console.WriteLine("Integer: " & A.GetTypeCode() & _
          " " & A.GetType().Name & " " & A.GetType().UnderlyingSystemType.ToString())
       Console.WriteLine("Double: " & B.GetTypeCode() & _
          " " & B.GetType().Name & " " & B.GetType().UnderlyingSystemType.ToString())
       Console.WriteLine("String: " & C.GetTypeCode() & _
          " " & C.GetType().Name & " " & C.GetType().UnderlyingSystemType.ToString())
       Console.WriteLine("DateTime: " & D.GetTypeCode() & _
          " " & D.GetType().Name & " " & D.GetType().UnderlyingSystemType.ToString())
       Console.WriteLine("Byte: " & E.GetTypeCode() & _
          " " & E.GetType().Name & " " & E.GetType().UnderlyingSystemType.ToString())
       Console.WriteLine("Boolean: " & F.GetTypeCode() & _
          " " & F.GetType().Name & " " & F.GetType().UnderlyingSystemType.ToString())
  
  End Sub

End Class


      </source>