作者:VB.NET开发
项目:Syste
' 导入命名空间
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
作者:VB.NET开发
项目:Syste
' 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())
作者:VB.NET开发
项目:Syste
' Get the common language runtime version.
Dim ver As Version = Environment.Version
Console.WriteLine("CLR Version {0}", ver.ToString())
作者:VB.NET开发
项目:Syste
' 导入命名空间
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
作者:VB.NET开发
项目:Syste
' 导入命名空间
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
作者:VB.NET开发
项目:Syste
' 导入命名空间
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
作者:VB.NET开发
项目:Syste
' 导入命名空间
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
作者:VB.NET开发
项目:Syste
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)
作者:VB.NET开发
项目:Syste
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