Partager via

Exécution de tâches avec My.Application, My.Computer et My.User (Visual Basic)

  • Article

Les trois objets My centraux qui fournissent l’accès 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 relatives à l’application actuelle, à l’ordinateur sur lequel l’application est installée ou à l’utilisateur actuel de l’application, respectivement.

My.Application, My.Computer et My.User

Les exemples suivants montrent comment récupérer des informations à 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*")

En plus de la récupération d’informations, les membres exposés via ces trois objets vous permettent également d’exécuter des méthodes liées à cet objet. Par exemple, vous pouvez accéder à diverses méthodes pour manipuler des fichiers ou mettre à jour le registre via My.Computer.

Les E/S de fichier sont considérablement plus simples et plus rapides avec My, qui comprend une variété de méthodes et de propriétés pour manipuler des fichiers, des répertoires et des lecteurs. L’objet TextFieldParser vous permet de lire à partir de fichiers structurés volumineux qui ont des champs délimités ou de largeur fixe. Cet exemple ouvre l’objet TextFieldParser reader et l’utilise pour lire à partir de 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 suivant montre comment appeler cette méthode.

' Changes the current culture for the application to Jamaican English.
My.Application.ChangeCulture("en-JM")

Voir aussi