通过

使用 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（其中包括用于操控文件、目录和驱动器的多种方法和属性），文件 I/O 会明显简化、加速。 借助 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")

请参阅