vb 模块中调用窗体控件的click事件

来源：百度知道 编辑：UC知道 时间：2024/09/20 07:09:57
我想在模块中定义一个变量a，通过判断窗体上click事件发生的对象来定义该变量的值。比如：command1的click事件发生了，那么变量a的值为1，command2的click事件发生了，那么变量a的值为2.
请问该怎么写代码呢？
先说声谢谢哦

在定义模块时加参数,用参数传递值
在command1的click事件里用:
call 过程名(1)

在command2的click事件里用:

call 过程名(2)

public sub 过程名(byref x as integer)
dim a as integer
a=x
...............
end sub

模块内定义Public a As Integer
在窗体内
Private Sub Command1_Click()
a=1
End Sub
Private Sub Command2_Click()
a=2
End Sub

在click事件的开头对a赋值就可以了嘛