Question

vb串口程序运行时总提示8012错误，端口未打开。怎么回事？

Private Sub Command1_Click()
MSComm1.Output = Text1.Text
End Sub

Private Sub Command2_Click()
Dim st As String
st = MSComm1.Input
Text2.Text = st
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
MSComm1.Settings = "9600,N,8,1"
MSComm1.CommPort = 1
MSComm1.InBufferSize = 256
MSComm1.OutBufferSize = 256

MSComm1.SThreshold = 1
MSComm1.RThreshold = 1

MSComm1.PortOpen = ture
End Sub
台式机有串口。

Answer 1

倒数第二行，改为MSComm1.PortOpen = True，纯粹拼写错误。