Выполнение задач с My.Application, My.Computer и My.User (Visual Basic)
Три центральных объекта My, которые предоставляют доступ к информации и часто используемым функциям, это My.Application (ApplicationBase), My.Computer (Computer) и My.User (User). Эти объекты можно использовать для доступа к информации, которая связана с текущим приложением, с компьютером, на котором установлено приложение, или с текущим пользователем приложения соответственно.
My.Application, My.Computer и My.User
В следующем примере демонстрируется получение информации с использованием объектов 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*")
Помимо получения информации, члены, доступные через эти три объекта, также позволяют вызывать методы, связанные с этим объектом. Например, с помощью My.Computer можно обращаться к различным методам управления файлами и редактирования реестра.
Файловый ввод-вывод выполняется значительно проще и быстрее с помощью объекта My, включающего разнообразные методы и свойства для управления файлами, каталогами и дисками. Объект TextFieldParser позволяет читать данные из больших структурированных файлов, в которых содержатся поля с разделителями или поля фиксированной ширины. В этом примере TextFieldParser reader открывается для чтения данных из файла 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 позволяет изменять язык и региональные параметры для приложения. В следующем примере демонстрируется вызов этого метода.
' Changes the current culture for the application to Jamaican English.
My.Application.ChangeCulture("en-JM")