Sdílet prostřednictvím

Provádění úloh s objekty My.Application, My.Computer a My.User (Visual Basic)

  • Článek

Tři centrální My objekty, které poskytují přístup k informacím a běžně používané funkce jsou My.Application (ApplicationBase), My.Computer (Computer) a My.User (User). Tyto objekty můžete použít pro přístup k informacím, které se týkají aktuální aplikace, počítače, na který je aplikace nainstalována, nebo k aktuálnímu uživateli aplikace.

My.Application, My.Computer a My.User

Následující příklady ukazují, jak lze informace načíst pomocí 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*")

Kromě načítání informací umožňují členům vystavených prostřednictvím těchto tří objektů také provádět metody související s tímto objektem. Můžete například přistupovat k různým metodám pro manipulaci se soubory nebo aktualizovat registr prostřednictvím My.Computer.

Vstupně-výstupní operace souborů je výrazně jednodušší a rychlejší díky Mytomu, že zahrnuje různé metody a vlastnosti pro manipulaci se soubory, adresáři a jednotkami. Objekt TextFieldParser umožňuje číst z velkých strukturovaných souborů s oddělovači nebo poli s pevnou šířkou. Tento příklad otevře TextFieldParser reader a použije ho ke čtení z 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 umožňuje změnit jazykovou verzi aplikace. Následující příklad ukazuje, jak lze tuto metodu volat.

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

Viz také