vb System.Guid.ToByteArray类(方法)实例源码

Module Example
   Public Sub Main()
      Dim guid As Guid = Guid.NewGuid
      Console.WriteLine("Guid: {0}", guid)
      Dim bytes() As Byte = guid.ToByteArray
      For Each byt In bytes
         Console.Write("{0:X2} ", byt)
      Next
      Console.WriteLine()
      Dim guid2 As New Guid(bytes)
      Console.WriteLine("Guid: {0} (Same as First Guid: {1})", guid2, guid2.Equals(guid))
   End Sub
End Module