大虾，为什么我这段代码能发送不能接收啊

[november]

我用扩展的com3，com4调试，双方都拿专用的工具的话能收发，如果一端用自己编的的话就不灵了，多谢。


Private Sub Command1_Click()
Dim Instring As String
Dim ytemp() As Byte
Dim stemp As String
stemp = Text1.Text
ytemp = StrConv(stemp, vbFromUnicode)
MSComm1.PortOpen = True
MSComm1.Output = ytemp
MSComm1.PortOpen = False
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 3
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.InputMode = comInputModeBinary
End Sub
Private Sub MSComm1_OnComm()
Dim ytemp() As Byte
Dim stemp As String
Select Case MSComm1.CommEvent
' Handle each event or error by placing
' code below each case statement
' Errors
Case comEventBreak ' A Break was received.
Case comEventFrame ' Framing Error
Case comEventOverrun ' Data Lost.
Case comEventRxOver ' Receive buffer overflow.
Case comEventRxParity ' Parity Error.
Case comEventTxFull ' Transmit buffer full.
Case comEventDCB ' Unexpected error retrieving DCB]
' Events
Case comEvCD ' Change in the CD line.
Case comEvCTS ' Change in the CTS line.
Case comEvDSR ' Change in the DSR line.
Case comEvRing ' Change in the Ring Indicator.
Case comEvReceive ' Received RThreshold # of
' chars.
ytemp = MSComm1.Input
stemp = StrConv(ytemp, vbUnicode)
Text2.Text = stemp
Case comEvSend ' There are SThreshold number of
' characters in the transmit
' buffer.
Case comEvEOF ' An EOF charater was found in
' the input stream
End Select
End Sub

[november]

5555555555555,没人理我

[BlueBeer]

不是不理你啦，是你的问题比较难搞。。。。。

[lovebeethoven]

你设置RTHRESHOLD属性了吗？默认为0，就是在接受字符时，不触发ONCOMM事件

[november]

恩
再去看看,多谢了