求助:VB怎么做个 通用函数供其它事件调用...
PrivateSubC3_Click()IfMSComm1.PortOpen=FalseThenMSComm1.PortOpen=TrueMSComm1.InputLen...
Private Sub C3_Click()
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
MSComm1.InputLen = 0
sd = "01ED00BB8" '这行的东西不一样.......................
MSComm1.Output = Chr(5) + sd + SumChk(sd)
MSComm1.PortOpen = False
End If
End Sub
有几个按钮,功能都差不多.能不能在 VB通用那儿建立个....供几个按钮调用. 展开
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
MSComm1.InputLen = 0
sd = "01ED00BB8" '这行的东西不一样.......................
MSComm1.Output = Chr(5) + sd + SumChk(sd)
MSComm1.PortOpen = False
End If
End Sub
有几个按钮,功能都差不多.能不能在 VB通用那儿建立个....供几个按钮调用. 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询