Wykonywanie zadań z My.Application, My.Computer i My.User (Visual Basic)
Centralny trzy My obiekty, które zapewniają dostęp do informacji i najczęściej używane funkcje są My.Application (ApplicationBase), My.Computer (Computer), i My.User (User).Dostęp do informacji związanych z bieżącej aplikacji, komputera, na którym aplikacja jest instalowana na lub bieżącego użytkownika aplikacji, odpowiednio, można użyć tych obiektów.
My.Application, My.Computer i My.User
W poniższych przykładach pokazano, w jaki sposób informacje mogą być pobierane za 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*")
Dodatkowo do pobierania informacji, elementy udostępniane przez te trzy obiekty również umożliwiają wykonywanie metod związanych z tym obiektem.Na przykład, można uzyskiwać dostęp do różnych metod do manipulowania plikami lub zaktualizować rejestru za pomocą My.Computer.
We/Wy pliku jest znacznie łatwiejsze i szybsze z My, który zawiera szereg metod i właściwości do manipulowania pliki, katalogi i dyski.TextFieldParser Obiektu pozwala odczytać z dużych plików strukturalne, które zostały rozdzielone lub pola o stałej szerokości.W tym przykładzie otwiera TextFieldParserreader i używa go do odczytu 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.Applicationzezwala na zmianę kultury dla danej aplikacji.Poniższy przykład demonstruje, jak można wywołać tej metody.
' Changes the current culture for the application to Jamaican English.
My.Application.ChangeCulture("en-JM")