這是我撰寫的內容，text1什么也收不到，新手還請多多指教，謝謝了！
Private Sub Form_Load()
MSComm1.CommPort = 1 '您的串口是 COM1
MSComm1.InputMode = comInputModeText
MSComm1.Settings = "9600,n,8,1"
MSComm1.RThreshold = 6
MSComm1.EOFEnable = true
MSComm1.Handshaking = comNone
MSComm1.InBufferSize = 1024
Text1.Text = ""
End Sub
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent '接收資料
Case comEvReceive '對資料進行處理
InString = MSComm1.Input
Text1.Text = InString + Text1.Text
End Select
End Sub
uj5u.com熱心網友回復：
Form_Load沒有打開埠吧， MSComm1.PortOpen = Trueuj5u.com熱心網友回復：
另外一個軟體在用COM1口， MSComm1.PortOpen = True 這句加上后會顯示串口已打開，提示錯誤，這個思考方向好像做不到uj5u.com熱心網友回復：
在同一臺電腦上不能有兩個程式同時打開同一個串口,你可以用串口模擬軟體模擬出另一個串口,然后模擬連接兩個串口 就可以通信了.uj5u.com熱心網友回復：
CBOM1、COM2...................uj5u.com熱心網友回復：
if MSComm1.PortOpen = false thenMSComm1.PortOpen = True
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/13534.html
上一篇：萌新求教，vb6.0連接access用了.Fields再用.movenext報錯
下一篇：求助VB高手