Cómo: Mostrar los puertos serie disponibles en Visual Basic

Artículo
10/07/2008

Actualización: noviembre 2007

En este tema se describe cómo utilizar My.Computer.Ports para mostrar los puertos serie disponibles del equipo en Visual Basic.

Para permitir que un usuario seleccione el puerto que desea utilizar, los nombres de los puertos serie se colocan en un control ListBox.

Ejemplo

Este ejemplo recorre todas las cadenas que devuelve la propiedad My.Computer.Ports.SerialPortNames. Estas cadenas son los nombres de los puertos serie disponibles en el equipo.

Normalmente, un usuario selecciona el puerto serie que la aplicación debe utilizar en la lista de puertos disponibles. En este ejemplo, los nombres de puertos serie se almacenan en un control ListBox. Para obtener más información, vea ListBox (Control, formularios 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

Este ejemplo de código también está disponible como fragmento de código de IntelliSense. En el selector de fragmentos de código, se encuentra en Conectividad y redes. Para obtener más información, vea Cómo: Insertar fragmentos de código en el código (Visual Basic).

Compilar el código

Para este ejemplo se necesita:

Una referencia de proyecto a System.Windows.Forms.dll.
Acceso a los miembros del espacio de nombres System.Windows.Forms. Agregue una instrucción Imports si no incluye nombres de miembro completos en el código. Para obtener más información, vea Instrucción Imports (Tipo y espacio de nombres de .NET).
Que el formulario tenga un control ListBox denominado ListBox1.

Programación eficaz

No tiene que utilizar el control ListBox para mostrar los nombres de los puertos serie disponibles. En su lugar, puede utilizar un control ComboBox u otro control. Si la aplicación no necesita una respuesta del usuario, puede utilizar un control TextBox para mostrar la información.

Nota:
Los nombres de puerto que devuelve My.Computer.Ports.SerialPortNames pueden ser incorrectos cuando se utiliza Windows 98. Para evitar errores de la aplicación, utilice el control de excepciones, por ejemplo las instrucciones Try...Catch...Finally o Using, cuando utilice nombres de puertos para abrirlos.