Dela via

Utföra uppgifter med My.Application, My.Computer och My.User (Visual Basic)

  • Artikel

De tre centrala My objekten som ger åtkomst till information och vanliga funktioner är My.Application (ApplicationBase), My.Computer (Computer) och My.User (User). Du kan använda dessa objekt för att komma åt information som är relaterad till det aktuella programmet, datorn som programmet är installerat på eller den aktuella användaren av programmet.

My.Application, My.Computer och My.User

Följande exempel visar hur information kan hämtas med hjälp av 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*")

Förutom att hämta information kan medlemmarna som exponeras via dessa tre objekt även köra metoder som är relaterade till objektet. Du kan till exempel komma åt en mängd olika metoder för att ändra filer eller uppdatera registret via My.Computer.

Fil-I/O är betydligt enklare och snabbare med My, vilket innehåller en mängd olika metoder och egenskaper för att manipulera filer, kataloger och enheter. Med TextFieldParser objektet kan du läsa från stora strukturerade filer som har avgränsade fält eller fält med fast bredd. Det här exemplet öppnar TextFieldParserreader och använder det för att läsa från C:\TestFolder1\test1.txt.

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 gör att du kan ändra kulturen för ditt program. I följande exempel visas hur den här metoden kan anropas.

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

Se även