Exécution de tâches avec My.Application, My.Computer et My.User (Visual Basic)
Les trois objets centraux My qui permettent d'accéder aux informations et aux fonctionnalités couramment utilisées sont My.Application (ApplicationBase), My.Computer (Computer) et My.User (User).Vous pouvez utiliser ces objets pour accéder aux informations liées à l'application actuelle, à l'ordinateur sur lequel est installée l'application, ou l'utilisateur actuel de l'application, respectivement.
My.Application, My.Computer et My.User
Les exemples suivants montrent comment les informations peuvent être récupérées à l'aide de 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*")
Outre la récupération d'informations, les membres exposés à travers ces trois objets vous permettent également d'exécuter des méthodes en rapport avec cet objet.Par exemple, vous pouvez accéder à diverses méthodes destinées à la manipulation de fichiers ou à la mise à jour du Registre par le biais de My.Computer.
Les E/S de fichiers sont considérablement plus faciles et rapides avec My, qui inclut diverses méthodes et propriétés pour la manipulation de fichiers, répertoires et lecteurs.L'objet TextFieldParser vous permet de lire des fichiers volumineux structurés qui sont dotés de champs délimités ou à largeur fixe.Cet exemple ouvre TextFieldParserreader et l'utilise pour lire 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 vous permet de modifier la culture de votre application.L'exemple de code suivant montre comment appeler cette méthode.
' Changes the current culture for the application to Jamaican English.
My.Application.ChangeCulture("en-JM")