除了这句话外还有什么提示没有?
比如,是否放了MSComm1控件,这个控件是否指定了相应的串口号,相应的串口号是否被别的程序占用(也可能是自己的程序占用了,但是出了问题,没有正常释放,这样只能重启电脑)……
form最小化时form1.scaleheight和form1.scalewidth的值为0,导致text1.height和command7.left的赋值为负数,是无效属性赋值
Dim number As Integer
Dim outbyte(0) As Byte
number = Val(Text1.Text)
outbyte(0) = CByte(number)
MSComm1.OutBufferCount = 0
MSComm1.Output = outbyte