VB 多个相同控件,相同事件,寻求简单方法
用VB 写一个串口通讯的上位机,有许多按键发送数据,但是每个按键按下后发送内容都类似,只是个别字节不一样,目前是一个按键click事件一个函数来写的,基本都是复制粘贴,再改细节。
不知道有没有简单的方法,用一个函数来写,用参数的方法把按键号和区别的字节数据传进去,这样也容易维护;
或者有其他的什么方法实现这种功能。
Private Sub Command21_Click()
Dim Data(4) As Byte
If Form1.MSComm1.PortOpen = False Then
MsgBox "【请打开串口】", vbOKOnly, "提示"
Else
If Len(Text1.Text) = 0 Then
MsgBox " 请输入地址号!", vbOKOnly, "Warning"
GoTo finish
End If
Data(0) = &HAA
Data(1) = Val(Text1.Text)
Data(2) = &H14
Data(3) = &HB
Data(4) = &H11
Form1.MSComm1.Output = Data
Command21.BackColor = &HC000&
Command22.BackColor = &H8000000F
finish:
End If
End Sub