Comment : afficher les ports série disponibles dans Visual Basic

Article
08/21/2008

Mise à jour : novembre 2007

Cette rubrique décrit comment utiliser My.Computer.Ports pour afficher les ports série de l'ordinateur disponibles en Visual Basic.

Pour permettre à l'utilisateur de sélectionner le port à utiliser, les noms des ports série sont placés dans un contrôle ListBox.

Exemple

Cet exemple fait une boucle sur toutes les chaînes que la propriété My.Computer.Ports.SerialPortNames retourne. Ces chaînes constituent les noms des ports série disponibles sur l'ordinateur.

En général, l'utilisateur sélectionne le port série que l'application doit utiliser dans la liste de ports disponibles. Dans cet exemple, les noms de ports série sont stockés dans un contrôle ListBox. Pour plus d'informations, consultez ListBox, contrôle (Windows Forms).

Sub GetSerialPortNames()
    ' Show all available COM ports.
    For Each sp As String In My.Computer.Ports.SerialPortNames
        ListBox1.Items.Add(sp)
    Next
End Sub

Cet exemple de code est également disponible sous forme d'extrait de code IntelliSense. Dans le sélecteur d'extrait de code, il se trouve dans Connectivité et réseau. Pour plus d'informations, consultez Comment : insérer des extraits de code dans votre code (Visual Basic).

Compilation du code

Cet exemple nécessite les éléments suivants :

Une référence de projet à System.Windows.Forms.dll.
L'accès aux membres de l'espace de noms System.Windows.Forms. L'ajout d'une instruction Imports si vos noms de membres ne sont pas qualifiés complets dans votre code. Pour plus d'informations, consultez Imports, instruction (espace de noms et type .NET).
Que votre formulaire ait un contrôle ListBox nommé ListBox1.

Programmation fiable

Vous ne devez pas utiliser le contrôle ListBox pour afficher les noms de ports série disponibles. À la place, vous pouvez utiliser un ComboBox ou un autre contrôle. Si l'application n'a pas besoin d'une réponse de l'utilisateur, vous pouvez utiliser un contrôle TextBox pour afficher les informations.

Remarque :
Les noms de ports retournés par My.Computer.Ports.SerialPortNames peuvent être inexacts lorsqu'ils sont exécutés sous Windows 98. Pour empêcher des erreurs d'application, utilisez la gestion des exceptions, telle que l'instruction Try...Catch...Finally ou l'instruction Using, lors de l'utilisation des noms de ports pour ouvrir des ports.