в 16:40, 26 мая 2010

2010-05-26T16:40:16Z

Admin: 1 версия

2010-05-26T12:51:08Z

1 версия

Новая страница

==Environment.CommandLine==

<source lang="vbnet">
Imports System
Public Class MainClass
Shared Sub Main()
Console.WriteLine("CommandLine: " & System.Environment.rumandLine )
End Sub
End Class

</source>

==Environment.CurrentDirectory==

<source lang="vbnet">
Imports System

Public Class MainClass
Shared Sub Main()
Console.WriteLine("CurrentDirectory: " & System.Environment.CurrentDirectory )
End Sub
End Class

</source>

==Environment.Exit==

<source lang="vbnet">
Public Class MainClass
Shared Sub Main()
System.Environment.Exit(System.Environment.ExitCode)
End Sub " ValidationError
End Class

</source>

==Environment.ExitCode==

<source lang="vbnet">
Imports System

Public Class MainClass
Shared Sub Main()
Console.WriteLine("ExitCode: " & System.Environment.ExitCode )
End Sub
End Class

</source>

==Environment.GetCommandLineArgs==

<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>

==Environment.GetLogicalDrives==

<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>

==Environment.HasShutdownStarted==

<source lang="vbnet">
Imports System

Public Class MainClass
Shared Sub Main()
Console.WriteLine("HasShutdownStarted: " & System.Environment.HasShutdownStarted )
End Sub
End Class

</source>

==Environment.MachineName==

<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>

==Environment.NewLine==

<source lang="vbnet">
Imports System

Public Class MainClass
Shared Sub Main()
Console.WriteLine("NewLine: " & System.Environment.NewLine)
End Sub
End Class

</source>

==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>

==Environment.ProcessorCount==

<source lang="vbnet">
Imports System

Public Class MainClass
Shared Sub Main()
Console.WriteLine("ProcessorCount: " & System.Environment.ProcessorCount)
End Sub
End Class

</source>

==Environment.SpecialFolder.CommonProgramFiles==

<source lang="vbnet">
Imports System.Windows.Forms
public class FolderBrowserDialogProperty
public Shared Sub Main
Dim FolderBrowserDialog1 As FolderBrowserDialog = New System.Windows.Forms.FolderBrowserDialog
With FolderBrowserDialog1
.RootFolder = Environment.SpecialFolder.rumonProgramFiles
.SelectedPath = "C:\Temp"
.ShowNewFolderButton = False
.Description = "Use the tree below to select a folder:"
End With
If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Console.WriteLine(FolderBrowserDialog1.SelectedPath)
End If
End Sub
End class

</source>

==Environment.SpecialFolder.Favorites==

<source lang="vbnet">
Imports System
Imports System.Drawing
Imports System.Data
Imports System.IO
Imports System.Collections
Imports System.Windows.Forms
Imports System.Drawing.Printing
Public Class MainClass
Shared Sub Main()
Console.WriteLine(Environment.GetFolderPath(Environment.SpecialFolder.Favorites))
End Sub
End Class

</source>

==Environment.StackTrace==

<source lang="vbnet">
Imports System

Public Class MainClass
Shared Sub Main()
Console.WriteLine("StackTrace: " & System.Environment.StackTrace )
End Sub
End Class

</source>

==Environment.SystemDirectory==

<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>

==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>

==Environment.UserDomainName==

<source lang="vbnet">
Imports System

Public Class MainClass
Shared Sub Main()
Console.WriteLine("UserDomainName: " & System.Environment.UserDomainName)
End Sub
End Class

</source>

==Environment.UserInteractive==

<source lang="vbnet">

Imports System

Public Class MainClass
Shared Sub Main()
Console.WriteLine("UserInteractive: " & System.Environment.UserInteractive)
End Sub
End Class

</source>

==Environment.UserName==

<source lang="vbnet">

Public Class LoopPerformance
Shared Sub Main()
Console.WriteLine(System.Environment.UserName)

End Sub
End Class

</source>

==Environment.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>

==Environment.WorkingSet==

<source lang="vbnet">
Imports System

Public Class MainClass
Shared Sub Main()
Console.WriteLine("WorkingSet: " & System.Environment.WorkingSet)
End Sub
End Class

</source>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net by API/System/Environment - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия