Share via

Ausführen von Aufgaben mit My.Application, My.Computer und My.User (Visual Basic)

  • Artikel

Die drei zentralen My-Objekte, die Zugriff auf Informationen und häufig verwendete Funktionen bieten, sind My.Application (ApplicationBase), My.Computer (Computer) und My.User (User). Sie können diese Objekte verwenden, um auf Informationen zuzugreifen, die im Zusammenhang mit der aktuellen Anwendung, dem Computer, auf dem die Anwendung installiert ist, oder dem aktuellen Benutzer der Anwendung stehen.

My.Application, My.Computer und My.User

In den folgenden Beispielen wird veranschaulicht, wie Informationen mithilfe von My abgerufen werden können.

' 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*")

Zusätzlich zum Abrufen von Informationen ermöglichen die Member, die über diese drei Objekte verfügbar gemacht werden, auch das Ausführen von Methoden, die mit diesem Objekt verknüpft sind. Beispielsweise können Sie auf viele verschiedene Methoden zugreifen, um Dateien zu bearbeiten oder die Registrierung über My.Computer zu aktualisieren.

Datei-E/A-Vorgänge gestalten sich mit My bedeutend einfacher und schneller, da eine Vielzahl von Methoden und Eigenschaften zum Bearbeiten von Dateien, Verzeichnissen und Laufwerken enthalten sind. Das TextFieldParser-Objekt ermöglicht das Lesen aus großen strukturierten Dateien, die Felder mit Trennzeichen oder fester Breite enthalten. In diesem Beispiel wird TextFieldParserreader geöffnet und zum Lesen aus C:\TestFolder1\test1.txt verwendet.

Dim 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

My.Application ermöglicht es Ihnen, die Kultur für Ihre Anwendung zu ändern. Das folgende Beispiel veranschaulicht, wie diese Methode aufgerufen werden kann.

' Changes the current culture for the application to Jamaican English.
My.Application.ChangeCulture("en-JM")

Siehe auch