ポートを閉じるには?

超初心者 2004-08-21 01:38:44 No: 115807

初めて投稿します。宜しくお願いします。

以下のようにして実行すると、
"ポートは既に開かれています"と
エラーメッセージが出てしまいます。

Private Sub CommOpen(num)

        If MSComm1.PortOpen Then MSComm1.PortOpen = False
        MSComm1.CommPort = 1
        MSComm1.Settings = "38400,n,8,1"
        MSComm1.PortOpen = True

End Sub

どうしたらポートが閉じれるのでしょうか?
教えていただけたら幸いです。

Ｌｅａｄｅｒ 2004-08-24 01:17:00 No: 115808

ソフト内で、他のポートを使用していませんか？