方法 : Visual Basic で利用可能なシリアルポートを表示する

[アーティクル]
09/17/2008

更新 : 2007 年 11 月

このトピックでは、My.Computer.Ports を使用して、コンピュータで利用可能なシリアルポートを Visual Basic で表示する方法を説明します。

使用するポートをユーザーが選択できるようにするために、シリアルポートの名前を ListBox コントロールに格納します。

使用例

この例では、My.Computer.Ports.SerialPortNames プロパティが返すすべての文字列に対してループします。これらの文字列は、コンピュータで利用可能なシリアルポートの名前です。

通常は、利用可能なシリアルポートの一覧から、アプリケーションで使用するシリアルポートをユーザーが選択します。この例では、シリアルポートの名前を ListBox コントロールに格納しています。詳細については、「ListBox コントロール (Windows フォーム)」を参照してください。

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

このコードの例は、IntelliSense コードスニペットとしても利用できます。コードスニペットピッカーでは、これは [接続とネットワーク] にあります。詳細については、「方法 : コードにスニペットを挿入する (Visual Basic)」を参照してください。

コードのコンパイル方法

この例で必要な要素は次のとおりです。

System.Windows.Forms.dll に対するプロジェクト参照が必要です。
System.Windows.Forms 名前空間のメンバに対するアクセスが必要です。コード内でメンバ名を完全修飾していない場合は、Imports ステートメントを追加します。詳細については、「Imports ステートメント (.NET 名前空間および型)」を参照してください。
フォーム上に ListBox1 という名前の ListBox コントロールが必要です。

堅牢性の高いプログラム

利用可能なシリアルポートの名前は、必ずしも ListBox コントロールに表示しなくてもかまいません。ComboBox コントロールやその他のコントロールを使用することもできます。ユーザーからの応答が必要ないアプリケーションの場合は、TextBox コントロールを使用して情報を表示できます。

メモ :
My.Computer.Ports.SerialPortNames が返すポート名は、Windows 98 での実行時には正しくない場合があります。アプリケーションエラーを防ぐためには、ポート名を使用してポートを開くときに、Try...Catch...Finally ステートメントや Using ステートメントなどの例外処理を使用します。