Ausführen von Aufgaben mit My.Application, My.Computer und My.User
Aktualisiert: November 2007
Die drei zentralen My-Objekte, die Zugriff auf Informationen und häufig verwendete Funktionen bereitstellen, sind My.Application-Objekt, My.Computer-Objekt und My.User-Objekt. Mit diesen Objekten können Sie auf Informationen zugreifen, die sich auf die aktuelle Anwendung, den Computer, auf dem die Anwendung installiert ist, sowie auf den aktuellen Benutzer der Anwendung beziehen.
My.Application, My.Computer und My.User
Die folgenden Beispiele veranschaulichen das Abrufen von Informationen mit My.
' Displays a message box that shows the full command line for the
' application.
Dim args As String = ""
For Each arg As String In My.Application.CommandLineArgs
args &= arg & " "
Next
MsgBox(args)
' Gets a list of subfolders in a folder
My.Computer.FileSystem.GetDirectories _
(My.Computer.FileSystem.SpecialDirectories.MyDocuments, True, "*Logs*")
Neben dem Abrufen von Informationen ermöglichen die Member, die von diesen drei Objekten bereitgestellt werden, die Ausführung von Methoden mit dem jeweiligen Objekt. So können Sie z. B. auf eine Vielzahl an Methoden zur Manipulation von Dateien zugreifen oder die Registrierung mithilfe von My.Computer aktualisieren.
Datei-E/A-Operationen sind mit My wesentlich einfacher und schneller, da es eine Reihe von Methoden und Eigenschaften für die Bearbeitung von Dateien, Verzeichnissen und Laufwerken enthält. Mit dem TextFieldParser-Objekt können Sie große strukturierte Dateien lesen, die Felder mit Begrenzungen oder Felder mit fester Breite enthalten. In diesem Beispiel wird der reader von TextFieldParser geöffnet und zum Lesen von C:\TestFolder1\test1.txt verwendet.
Dim reader As Microsoft.VisualBasic.FileIO.TextFieldParser
reader = My.Computer.FileSystem.OpenTextFieldParser _
("C:\TestFolder1\test1.txt")
reader.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited
reader.Delimiters = New String() {","}
Dim currentRow As String()
While Not reader.EndOfData
Try
currentRow = reader.ReadFields()
Dim currentField As String
For Each currentField In currentRow
MsgBox(currentField)
Next
Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
MsgBox("Line " & ex.Message & _
"is not valid and will be skipped.")
End Try
End While
Mit My.Application können Sie die Kultur für die Anwendung ändern. Das folgende Beispiel veranschaulicht den Aufruf dieser Methode.
' Changes the current culture for the application to Jamaican English.
My.Application.ChangeCulture("en-JM")
Siehe auch
Konzepte
Merkmale von "My" auf Grundlage des Projekttyps