Question

VB编程调试时出现没子程序怎么办Private Sub Command1_Click()

程序如下:
Private Sub Command1_Click()
Dim X As String
Dim Num As Variant
Dim outbyte(0) As Byte
outbte(0) = CByte(Num)
If Text1.Text = "" Then
X = MsgBox("发送数据不能为空", 16)
Exit Sub
End If
If Not MSComm1.PortOpen Then
MSComm1.PortOpen = True
End If
Num = Str(Text1.Text)
outbte(0) = CByte(Num)
MSComm1.OutBufferCount = 0
MSComm1.Output = outbyte

End Sub
调试时提示没有子程序,如何解决?谢谢!
这是上位机对单片机通迅写的程序,希望哪位大V能有完整程序提供.谢谢!

Answer 1

一种方法是使用简单的控件数组，点击看详细说明这里，N个简单的了解控件数组是同一类型的控制是出了名的，但它们的数量是不同的（指数）

例如，有超过10箱，使下面的代码[先放10检查1，注意检查1，不检查1，CHECK2，Check3 ...... Check10]

BR>“---注意的原因在MouseUp事件的代码是为了防止连续发车的Click事件产生一个”堆栈溢出控制“的错误，点击看详细私人小组Check1_MouseUp（指数为整数，按钮，整数，移位作为整数，X为单，Y为单）
值=（检查1（指数）。价值+ 2）国防部2
对于i = 0到9 '10控制10-1 = 9 BR>检查1（I）。价值= 0
下一步
检查1（指数）。价值=数值，点击看详细END SUB

追问

各位大V,邦邦啊.