使用 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 可讓您變更應用程式的文化特性 (Culture)。 下列範例將示範如何呼叫這個方法。
' Changes the current culture for the application to Jamaican English.
My.Application.ChangeCulture("en-JM")