Partager via


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")

Voir aussi

Référence

ApplicationBase

Computer

User

Concepts

Comment My dépend du type de projet (Visual Basic)