Partilhar via

Executando tarefas com My.Application, My.Computer e My.User (Visual Basic)

  • Artigo

Os três objetos centrais My que fornecem acesso a informações e funcionalidades comumente usadas são My.Application (ApplicationBase), My.Computer (Computer) e My.User (User). Você pode usar esses objetos para acessar informações relacionadas ao aplicativo atual, ao computador no qual o aplicativo está instalado ou ao usuário atual do aplicativo, respectivamente.

My.Application, My.Computer e My.User

Os exemplos a seguir demonstram como as informações podem ser recuperadas usando Myo .

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

Além de recuperar informações, os membros expostos por meio desses três objetos também permitem que você execute métodos relacionados a esse objeto. Por exemplo, você pode acessar uma variedade de métodos para manipular arquivos ou atualizar o registro através My.Computerdo .

A E/S de arquivos é significativamente mais fácil e rápida com Myo , que inclui uma variedade de métodos e propriedades para manipular arquivos, diretórios e unidades. O TextFieldParser objeto permite que você leia a partir de grandes arquivos estruturados que têm campos delimitados ou de largura fixa. Este exemplo abre o TextFieldParser reader e o usa para ler de 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 permite que você altere a cultura do seu aplicativo. O exemplo a seguir demonstra como esse método pode ser chamado.

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

Consulte também