Executando tarefas com My.Application, My.Computer e My.User (Visual Basic)
Os três objetos centrais My que fornecem acesso a informações e funcionalidades usadas regularmente 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 ele 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 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*")
Além de recuperar informações, os membros expostos por meio desses três objetos também permitem executar métodos relacionados àquele objeto. Por exemplo, você pode acessar uma série de métodos para manipular arquivos ou atualizar o registro por meio de My.Computer.
A E/S do arquivo é bem mais fácil e rápida com My, que inclui uma série de métodos e propriedades para manipular arquivos, diretórios e unidades. O objeto TextFieldParser permite que você leia arquivos estruturados grandes que tenham campos delimitados ou de largura fixa. Este exemplo abre o TextFieldParser reader e o usa para ler a partir 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 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")
