タイトル : SerialPortでのOpenについて 投稿日 : 2010/05/18(Tue) 19:00 投稿者 : 皐月
お世話になっております。WindowsXP、VB2005で開発をしています。 VB6.0でMSCommを使用していたプログラムを、VB2005のSerialPortに変更して、バージョンアップを行うことになりました。VB6.0が mcomm.PortOpen = True で、CTSHoldingがTrueになるのに対し、VB2005はポートを開くところでCtsHoldingのパラメータがFalseのままになってしまいます。 同様の動きをするよう記述しているつもりなのですが間違えているのでしょうか?ご存知の方ご教授ください。 ******** VB6.0 ******************* If mcomm.PortOpen = False Then ' ポートを開きます。 mcomm.PortOpen = True End If '接続が成功するかどうかを調べます If mcomm.CTSHolding <> True Then 'MsgBox "Communications port cannot be opend.(通信ポートをオープン出来ません!)" MsgBox LoadResString(1) mcomm.PortOpen = False Exit Function End If ********* VB2005 ******************* If SComm.IsOpen = False Then ' ポートを開きます。 SComm.Open() End If '接続が成功するかどうかを調べます If SComm.CtsHolding <> True Then 'MsgBox "Communications port cannot be opend.(通信ポートをオープン出来ません!)" MsgBox(My.Resources.commsg001) SComm.Close() Exit Function End If |