MSCommについて

環境/言語:[Windows2000、VB6.0SP6]
分類:[VB6以前]

こんばんわ
本日も皆様の知識を分けて頂きたく質問させて頂きます。

モデムとの通信ソフトを作りたく、下記のプログラムを作ったのですが
MSComm1_OnCommイベントが発生せず大変頭を悩ませております。
Form1にコマンドボタン2個配置しただけの簡単な物なので
Command1_Click中に肝心な設定が抜けてるのだと思っております。
MSComm1_OnCommイベントを動作させる設定が
「MSComm1.RThreshold = 1」以外にあるのでしょうか？

MSDNのサンプル(VBTerm)では問題なく、やりたいことはできたのですが
シンプルに作り変えようとして躓いてしまいました。

Private Sub Command1_Click()
MSComm1.CommPort = 6
MSComm1.RThreshold = 1
MSComm1.ParityReplace = 0
MSComm1.Settings = "115200,n,8,1"
MSComm1.PortOpen = True
End Sub

Private Sub Command2_Click()
MSComm1.Output = "AT" & vbCr
End Sub

Private Sub MSComm1_OnComm()
MsgBox "aaaa"
End Sub

申し訳ないですが宜しくお願い致します。

■No6635に返信(nottisanさん)

こんにちは、nottisanさん。
私では、何をやりたいのか判りかねますが、

> MSComm1_OnCommイベントが発生せず大変頭を悩ませております。

いや、起きているはずです。

　MSComm1.RThreshold = 1

とした場合、1バイトを受信する度にOnComm()イベントが発生するはずでは?


> MSComm1_OnCommイベントを動作させる設定が
> 「MSComm1.RThreshold = 1」以外にあるのでしょうか？

まあ、ありますね。

　MSComm1.SThreshold = 1

とした場合は、送信バッファが空になった時にOnComm()イベントが発生します。

java.lang.Nullpo 様
たいへんご丁寧な回答ありがとうございます。

言いづらいのですが、通信設定が微妙に間違えており
受信ができない状態になっておりました。
真に申し訳ないです。m(_ _)m

機器が送信して来ないのですからOn_Commイベントも動作しないのは
当然でした。(^^;

>MSComm1.SThreshold = 1
も使い方次第で良いプログラムが組めそうです。
ありがとうございました。