通过

使用 My.Application、My.Computer 和 My.User 执行任务

  • 项目

更新：2007 年 11 月

三个主要的 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 中包含大量用于操作文件、目录和驱动器的方法和属性，因此借助此对象，文件 I/O 将变得非常简单快捷。通过 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 对象