caoyalu 发表于 2014-2-19 10:47:34

请教动态生成的窗体控件的控制问题

我在窗体初始化以后动态生成了一个按钮:
Dim OKbutton As CommandButton 'OK按钮(动态生成)
Set OKbutton = Me.Controls.Add("Forms.CommandButton.1", "button")
然后试图定义子程序对按钮进行控制:
Private Sub OKbutton_Click()
在启动程序以后,按钮生成成功,但是无论怎样点击按钮都没有反映,也就是点击按钮的动作并没有象我设想的那样启动子程序。
不知如何才能对按钮的点击动作进行控制。请教各位大侠。

vbcad 发表于 2014-2-19 12:46:45

'通过使用WithEvents关键字使得控件可以响应事件
   Private WithEvents OKbutton As CommandButton
放在代码的最上面
页: [1]
查看完整版本: 请教动态生成的窗体控件的控制问题