請問各位大大:
我用RS-232的功能想傳送很多個TextBox的資料到另一台電腦,
傳送是沒問題但是接收端卻把傳送過來的資料全放在同一格,即是沒法對應接收
傳送:
Case "Command12" '傳送資料
If MsgBox("接受方請務必在新增狀態", vbYesNo + vbExclamation, "傳送資料") = vbYes Then
For e = 0 To 29
If e <> 1 Then
MSComm1.Output = Trim(Text1(e))
End If
Next e
End If
接收:
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
If MSComm1.InBufferCount > 0 Then
For e = 0 To 29
If e <> 1 Then
Text1(e) = Text1(e) + MSComm1.Input
End If
Next e
End If
End Select
End Sub
請問該如何解決?? 謝謝!!!
我用RS-232的功能想傳送很多個TextBox的資料到另一台電腦,
傳送是沒問題但是接收端卻把傳送過來的資料全放在同一格,即是沒法對應接收
傳送:
Case "Command12" '傳送資料
If MsgBox("接受方請務必在新增狀態", vbYesNo + vbExclamation, "傳送資料") = vbYes Then
For e = 0 To 29
If e <> 1 Then
MSComm1.Output = Trim(Text1(e))
End If
Next e
End If
接收:
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
If MSComm1.InBufferCount > 0 Then
For e = 0 To 29
If e <> 1 Then
Text1(e) = Text1(e) + MSComm1.Input
End If
Next e
End If
End Select
End Sub
請問該如何解決?? 謝謝!!!
全站熱搜
留言列表