ポートを閉じるには?

解決

超初心者  2004-08-20 16:38:45  No: 115809  IP: [192.*.*.*]

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

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

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-20 18:45:29  No: 115810  IP: [192.*.*.*]

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

編集 削除
超初心者  2004-08-24 11:41:01  No: 115811  IP: [192.*.*.*]

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

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

失礼いたします。

編集 削除