VB6でMSCommを使い、エラー処理をするには？ (ID:87898)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 みなさん、アドバイスありがとうございます。 御礼が遅くなり申し訳ありません。 おかげさまで解決しました。 Public変数TimeOut(boolean)を定義しておいて、送信時に (1)タイマインターバル設定 (2)タイマ許可 その後、Do〜Loop文の中で、ターゲットからの応答を待ちます。 Loopの中でTimeOutをチェックしTrueになっていたら、Doループから 抜けて、タイマを停止(Enabled=False)し、Exit Subを実行。 TimeOutは、Private Sub Timer1_Timer()の中でセットしています。 Public Sub Trans() | MSComm1.Output = strSendData TimeOut = False 'Public変数 Timer1.Interval = 2000 Timer1.Enabled = True Do While MSComm1.InBufferCount < 2 DoEvents If TimeOut = True Then Exit Do End If Loop | End Sub Private Sub Timer1_Timer()は省略。 以上、ありがとうございました。