MSCOMM 8015错误(不能设置通信状态)

[jewith]

MSCOMM 8015错误(不能设置通信状态)?请问这问题如何解决?
请各位帮忙,在线等待.........

[wyy1001]

Dim Read As String
Dim Second As String
Dim abc As String
Dim Flag As Boolean
'设置并返回波特率、奇偶校验、数据位、停止位参数
DBComm.CommPort = 1 ' 使用 COM1
DBComm.Settings = "2400,E,7,1" ' 2400 波特，无奇偶校验，8 位数据，一个停止位。
DBComm.InputLen = 0 ' 当输入占用时，
' 告诉控件读入整个缓冲区
DBComm.PortOpen = True ' 打开端口

怎么会那样呀

[TechnoFantasy]

可能是设置Settings 属性的问题，代码贴出来看看。

[jewith]

If Frm_Print.MSComm1.PortOpen = True Then Frm_Print.MSComm1.PortOpen = False
Frm_Print.MSComm1.CommPort = Val(bpPort)
Frm_Print.MSComm1.Settings = "57600,N,8,1"
Frm_Print.MSComm1.Handshaking = comNone
Frm_Print.MSComm1.RThreshold = 1
Frm_Print.MSComm1.SThreshold = 1
Frm_Print.MSComm1.PortOpen = True
If (Err.Number = 8002) Or (Err.Number = 8005) Then
MsgBox "Incorrect Communication Port selected.", vbInformation, "COM Port Error"
OpenCommPort = False

Else
OpenCommPort = True
End If
我在自己机器上打,没问题.到另外一台上打8015错误!
这样有问题吗?

[jewith]

谢谢大家