Execução de tarefas com My. Application, My. Computer e My. User (Visual Basic)
A central de três My os objetos que fornecem funcionalidades de acesso às informações e comumente usadas são My.Application (ApplicationBase), My.Computer (Computer), e My.User (User).Você pode usar esses objetos para acessar informações que estão relacionadas para o aplicativo atual, o computador que o aplicativo está instalado ou usuário atual do aplicativo, respectivamente
My.Application, My.Computer, e My.User
Os exemplos a seguir demonstram como 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 disso, para recuperar informações, os membros expostos através desses três objetos também permitem que sejam executados 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 de My.Computer.
E/S de arquivos é significativamente mais fácil e rápido com My, que inclui uma variedade de métodos e propriedades para manipular arquivos, pastas, e unidades.O TextFieldParser objeto permite que você ler grandes estruturas de arquivos que têm delimitador ou largura fixa de campos.Este exemplo abre o TextFieldParserreader e usa-o 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 a você alterar a cultura do seu aplicativo.O exemplo a seguir demonstra como este método pode ser chamado.
' Changes the current culture for the application to Jamaican English.
My.Application.ChangeCulture("en-JM")