有没有一个叫Textsend的文本框?是不是这个少了,一般是你到别处复制代码,没有修改造成的,要注意代码 中的一些对象不要少了
我是路过的。。可能是“If”没有“then”和“End if”。我也是新手啊!!
b(0) = &H53
b(1) = &H54
b(2) = &H1
b(7) = &H45
b(8) = &H4E
For j = 1 To 4
b(2 + j) = "&H" & Hex(Asc(Mid(Text1.Text, j, 1)))
Next
If MSComm1.PortOpen = True Then
MSComm1.Output = b()