' 导入命名空间
Imports System.Reflection

<Assembly:AssemblyVersionAttribute("2.0.1")>
Module Example1
   Public Sub Main()
       Dim thisAssem As Assembly = GetType(Example1).Assembly
       Dim thisAssemName As AssemblyName = thisAssem.GetName()
       
       Dim ver As Version = thisAssemName.Version
       
       Console.WriteLine("This is version {0} of {1}.", ver, thisAssemName.Name)    
   End Sub
End Module

' Get the operating system version.
Dim os As OperatingSystem = Environment.OSVersion
Dim ver As Version = os.Version
Console.WriteLine("Operating System: {0} ({1})", os.VersionString, ver.ToString())

' Get the common language runtime version.
Dim ver As Version = Environment.Version
Console.WriteLine("CLR Version {0}", ver.ToString())

' 导入命名空间
Imports System.Reflection

Module Example
   Public Sub Main()
      ' Get the version of the executing assembly (that is, this assembly).
      Dim assem As Assembly = Assembly.GetEntryAssembly()
      Dim assemName As AssemblyName = assem.GetName()
      Dim ver As Version = assemName.Version
      Console.WriteLine("Application {0}, Version {1}", assemName.Name, ver.ToString())
   End Sub
End Module

' 导入命名空间
Imports System.Reflection

Module Example
   Public Sub Main()
      ' Get the version of the current assembly.
      Dim assem As Assembly = GetType(Example).Assembly
      Dim assemName As AssemblyName = assem.GetName()
      Dim ver As Version = assemName.Version
      Console.WriteLine("{0}, Version {1}", assemName.Name, ver.ToString())            VB
   End Sub
End Module

' 导入命名空间
Imports System.Reflection

Module Example
   Public Sub Main()
      ' Get the version of a specific assembly.
      Dim filename As String = ".\StringLibrary.dll"
      Dim assem As Assembly = Assembly.ReflectionOnlyLoadFrom(filename)
      Dim assemName As AssemblyName = assem.GetName()
      Dim ver As Version = assemName.Version
      Console.WriteLine("{0}, Version {1}", assemName.Name, ver.ToString())
   End Sub
End Module

' 导入命名空间
Imports System.Deployment.Application

Module Example
   Public Sub Main()
      Dim ver As Version = ApplicationDeployment.CurrentDeployment.CurrentVersion
      Console.WriteLine("ClickOnce Publish Version: {0}", ver)
   End Sub
End Module

Dim v1 As New Version(2,0)
Dim v2 As New Version("2.1")
Console.Write("Version {0} is ", v1)
Select Case v1.CompareTo(v2)
   Case 0
      Console.Write("the same as")
   Case 1
      Console.Write("later than")
   Case -1
      Console.Write("earlier than")
End Select
Console.WriteLine(" Version {0}.", v2)

Public Enum VersionTime
   Earlier = -1
   Same = 0
   Later = 1
End Enum

Module Example
   Public Sub Main()
      Dim v1 As New Version(1, 1)
      Dim v1a As New Version("1.1.0")
      ShowRelationship(v1, v1a)
      
      Dim v1b As New Version(1, 1, 0, 0)
      ShowRelationship(v1b, v1a)
   End Sub

   Private Sub ShowRelationship(v1 As Version, v2 As Version)
      Console.WriteLine("Relationship of {0} to {1}: {2}", 
                        v1, v2, CType(v1.CompareTo(v2), VersionTime))       
   End Sub
End Module