Поделиться через

Выполнение задач с My.Application, My.Computer и My.User

  • Статья

Обновлен: Ноябрь 2007

Три центральных объекта My, которые предоставляют доступ к информации и функциональным возможностям — это Объект My.Application, Объект My.Computer и Объект My.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 позволяет читать данные из больших структурированных файлов с разделителями полей или полями фиксированной ширины. В этом примере TextFieldParserreader открывается для чтения данных из файла C:\TestFolder1\test1.txt.

Dim reader As Microsoft.VisualBasic.FileIO.TextFieldParser
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")

См. также

Основные понятия

Зависимость My от типа проекта

Ссылки

Объект My.Application

Объект My.Computer

Объект My.User