Question

vb运行时错误380,无效属性值

我的程序是这样写的

Private Sub Command1_Click()
Dim a As Byte
a = &H6
MSComm1.Output = a
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.PortOpen = True
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputMode = 1
MSComm1.InBufferCount = 0
MSComm1.RThreshold = 1

End Sub
谢谢

Answer 1

Dim a(0) As Byte
a(0) = &H6
MSComm1.Output = a