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

Выполнение задач с 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 позволяет считывать данные из крупных структурированных файлов с разделителями полей или полями фиксированной длины. В этом примере открывается TextFieldParserreader и используется для чтения из 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")

См. также