Provádění úloh s objekty My.Application, My.Computer a My.User (Visual Basic)
Tři ústřední My objekty, které poskytují informace a běžně používané funkce, jsou My.Application (ApplicationBase), My.Computer (Computer) a My.User (User).Můžete použit tyto objekty pro přístup k informacím vztahujícím se k aktuální aplikaci, počítači na kterém je aplikace nainstalována nebo respektive k aktuálnímu uživateli.
My.Application, My.Computer a My.User
Následující příklady ukazují, jak mohou být informace načteny pomocí 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*")
Vedle načítání informací, členy zpřístupněny prostřednictvím těchto tří objektů vám také umožňují spouštět metody vztahující se k danému objektu.Můžete například přistupovat k různými způsoby práce se soubory nebo aktualizovat registry prostřednictvím My.Computer.
Vstupně-výstupní souborové operace je podstatně jednodušší a rychlejší s My, které obsahují různé metody a vlastnosti pro manipulaci se soubory, adresáři a jednotkami.Objekt TextFieldParser umožňuje ctění velkých strukturované soubory, které mají oddělovače nebo pevnou šířku polí.Tento příklad otevře readerTextFieldParser a používá ho ke čtení z 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 umožňuje změnit jazykovou verzi pro vaší aplikaci.Následující příklad ukazuje, jak lze zavolat tuto metodu.
' Changes the current culture for the application to Jamaican English.
My.Application.ChangeCulture("en-JM")