ポートを閉じるには?

解決

超初心者 2004-08-21 01:38:45 No: 115809

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

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

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

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

MM 2004-08-21 03:45:29 No: 115810

他のアプリケーション（またはサービス）がCOM1を使用していないかチェックしてみてください。

超初心者 2004-08-24 20:41:01 No: 115811

MMさん、ありがとうございました！
解決いたしました。
ご指摘のとおり、他のアプリケーションでCOM1を使用しておりました。

御礼が遅くなってしまい、申し訳ありません。

失礼いたします。