Exécution de tâches avec My.Application, My.Computer et My.User
Mise à jour : novembre 2007
Les trois objets My centraux qui fournissent l'accès aux informations et aux fonctionnalités couramment utilisées sont l'objet My.Application, l'objet My.Computer et l'objet My.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 dotés de champs à largeur limitée ou fixe. Cet exemple ouvre TextFieldParserreader et l'utilise pour lire C:\TestFolder1\test1.txt.
Dim reader As Microsoft.VisualBasic.FileIO.TextFieldParser
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")
Voir aussi
Concepts
Comment My dépend du type de projet