VB怎么让多个同一类型的对象共用一段事件代码

Question

假设我有一个CommandBarButton对象A, 它的click事件我们在下面给加上public sub A_Click(),接着我又来了个CommandBarButton对象B,它和A的代码逻辑一样，我不想写B_Click(),我只想两个对象公用这段事件代码,或者再夸张一点，100个CommandBarButton,难道我还为每一个都去写一个Click事件吗？谢谢

Answer 1

vb的控件可以设置也数组，不用数组的话，每个控件也可以有自己的tag。这两条在一般情况下可用。对于其他情况，一般做法是设置窗口的执行函数，并响应某一种类型。比如响应所有的普通菜单都弹出一个msgbox。

Answer 2

使用控件数组就可以了。
例如TEXT控件，你要所有的TEXT都响应ONCHANGE事件.
你先吧窗体上的TEXT控件都改成控件数组：先放 一个TEXT控件，选中，CTRL+C再点窗体空白处按CTRL+V，VB就会自动创建控件数组。
然后双击它，就会出现：
Private Sub Text1_Change(Index As Integer)End Sub
你只要用SELECT CASE INDEX
就可以区别是哪一个TEXT控件了。