Utföra uppgifter med My.Application, My.Computer och My.User (Visual Basic)
De tre centrala My objekten som ger åtkomst till information och vanliga funktioner är My.Application (ApplicationBase), My.Computer (Computer) och My.User (User). Du kan använda dessa objekt för att komma åt information som är relaterad till det aktuella programmet, datorn som programmet är installerat på eller den aktuella användaren av programmet.
My.Application, My.Computer och My.User
Följande exempel visar hur information kan hämtas med hjälp av 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*")
Förutom att hämta information kan medlemmarna som exponeras via dessa tre objekt även köra metoder som är relaterade till objektet. Du kan till exempel komma åt en mängd olika metoder för att ändra filer eller uppdatera registret via My.Computer.
Fil-I/O är betydligt enklare och snabbare med My, vilket innehåller en mängd olika metoder och egenskaper för att manipulera filer, kataloger och enheter. Med TextFieldParser objektet kan du läsa från stora strukturerade filer som har avgränsade fält eller fält med fast bredd. Det här exemplet öppnar TextFieldParser reader och använder det för att läsa från 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 gör att du kan ändra kulturen för ditt program. I följande exempel visas hur den här metoden kan anropas.
' Changes the current culture for the application to Jamaican English.
My.Application.ChangeCulture("en-JM")
