Taken uitvoeren met My.Application, My.Computer en My.User (Visual Basic)
De drie centrale My objecten die toegang bieden tot informatie en veelgebruikte functionaliteit zijn My.Application (ApplicationBase), My.Computer (Computer) en My.User ().User U kunt deze objecten gebruiken voor toegang tot informatie die is gerelateerd aan de huidige toepassing, de computer waarop de toepassing is geïnstalleerd of de huidige gebruiker van de toepassing.
My.Application, My.Computer en My.User
In de volgende voorbeelden ziet u hoe gegevens kunnen worden opgehaald met behulp van 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*")
Naast het ophalen van informatie, kunnen de leden die via deze drie objecten worden weergegeven, ook methoden uitvoeren die betrekking hebben op dat object. U hebt bijvoorbeeld toegang tot verschillende methoden om bestanden te bewerken of het register bij te werken via My.Computer.
Bestands-I/O is aanzienlijk eenvoudiger en sneller met My, waaronder verschillende methoden en eigenschappen voor het bewerken van bestanden, mappen en stations. Met TextFieldParser het object kunt u lezen uit grote gestructureerde bestanden met velden met scheidingstekens of velden met vaste breedte. In dit voorbeeld wordt het TextFieldParser reader bestand geopend en gebruikt om uit te lezen 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 hiermee kunt u de cultuur voor uw toepassing wijzigen. In het volgende voorbeeld ziet u hoe deze methode kan worden aangeroepen.
' Changes the current culture for the application to Jamaican English.
My.Application.ChangeCulture("en-JM")
