如何为代码创建的多个控件指定同一个的事件处理程序（类模块的应用）

gjj136138139

我的一个窗体中用代码创建了3个combobox，我想这3个combobox共用一个事件处理程序，我定义了一个类模块来处理combobox的change事件，然后在窗体的初始化代码中创建3个combobox并且创建了一个控件数组（类模块为其成员），并把类模块的事件和窗体上的combobox控件关联起来。但是在实际窗体运行时，只有最后一个combobox响应了类模块中定义的change事件，其它的combobox无反应。折腾了好久也没弄明白。求各位大神解惑。

gjj136138139

我的一个窗体中用代码创建了3个combobox，我想这3个combobox共用一个事件处理程序，我定义了一个类模块来处理combobox的change事件，然后在窗体的初始化代码中创建3个combobox并且创建了一个控件数组（类模块为其成员），并把类模块的事件和窗体上的combobox控件关联起来。但是在实际窗体运行时，只有最后一个combobox响应了类模块中定义的change事件，其它的combobox无反应。折腾了好久也没弄明白。求各位大神解惑。



参照4楼蓝桥的代码，我改成动态数组的方式，这样的话就能生成n个combbox控件并使所有的控件共用一个change事件了。

饮冰e士

Application.Caller

蓝桥玄霜

请见附件。

鄂龙蒙

也想知道。。。。。。。。支持一下

gjj136138139

蓝桥玄霜 发表于 2024-9-17 15:23
请见附件。

参照你的代码，我改它Public cmbbox(1 To 3) As clsComboBox为Public cmbbox() As clsComboBox。然后在初始化combobox时 ReDim Preserve cmbbox(1 To i) As clsComboBox
    Set cmbbox(i) = New clsComboBox
    Set cmbbox(i).myComboBox = cmb
  这样就能实现动态的添加combobox并指定同一个change事件了。

micch

控件是对象，对象的使用，要注意，set 对象1=对象2,实际内存中是同一个对象。所以每一个combobox都应该绑定一个新的对象，也就是 new 类

大灰狼1976

gjj136138139 发表于 2024-9-17 15:49
参照你的代码，我改它Public cmbbox(1 To 3) As clsComboBox为Public cmbbox() As clsComboBox。然后在初 ...

Public cmbbox() As clsComboBox
Public cmbbox() As New clsComboBox
这里加个new的话，后面可以不用再new了，直接set

gjj136138139

micch 发表于 2024-9-17 20:43
控件是对象，对象的使用，要注意，set 对象1=对象2,实际内存中是同一个对象。所以每一个combobox都应该绑定 ...

受教了。总算明白了实质了。