VB.Net Tutorial/Development/Environment
Содержание
Environment: MachineName, SystemDirectory, GetLogicalDrives, Version
<source lang="vbnet">Namespace MyApp.Info
Module Main Sub Main() Dim objHW As New MyApp.Info.Utilities objHW.DisplayData() End Sub End Module Public Class Utilities "Run the application Public Sub DisplayData() Console.WriteLine(Environment.MachineName) Console.WriteLine(Environment.SystemDirectory) Console.WriteLine(Environment.GetLogicalDrives()) Console.WriteLine(Environment.Version.ToString()) End Sub End Class
End Namespace</source>
vbex C:\WINDOWS\system32 System.String[] 2.0.50727.42
Environment.OSVersion
<source lang="vbnet">Imports System Public Class Step3
Shared Sub Main() System.Console.WriteLine(System.Environment.OSVersion.ToString()) End Sub
End Class</source>
Microsoft Windows NT 5.1.2600 Service Pack 2
Environment.TickCount
<source lang="vbnet">Option Strict On Public Module TimerFunction
Public Sub Main() Dim starttime, endtime As Integer starttime = Environment.TickCount For ctr As Integer = 0 to 10000000 Next endtime = Environment.TickCount Console.WriteLine("Elapsed time is {0} milliseconds", endtime - starttime) End Sub
End Module</source>
Elapsed time is 16 milliseconds
Environment.UserName
<source lang="vbnet">Public Class LoopPerformance
Shared Sub Main() Console.WriteLine(System.Environment.UserName) End Sub
End Class</source>
Joe
Get the command line arguments using the Environment class
<source lang="vbnet">Module Module1
Sub Main(ByVal cmdArgs() As String) If Environment.GetCommandLineArgs.Length > 0 Then For Each strArg As String In Environment.GetCommandLineArgs "Process the arguments here. Console.WriteLine(strArg) Next strArg End If End Sub
End Module</source>
main
Sort Command line arguments
<source lang="vbnet">Imports System.Collections Module modMain
Sub Main() Dim oArgs As New ArrayList(Environment.GetCommandLineArgs()) Dim I As Integer With oArgs .RemoveAt(0) .Sort() For I = 0 To .Count - 1 Console.WriteLine(.Item(I)) Next End With End Sub
End Module</source>