[求助]在窗体中可以动态产生一个按钮,可是按钮的事件如何生成呀?
如果在设计阶段在ide中放一个按钮,可以写事件,但是我想在窗体的load事件中动态的生成一个按钮,按钮的单击事件写在何处呢?
下面是我动态产生按钮的代码,
Option Explicit
Dim WithEvents cmd1 As CommandButton
Private Sub Form_Load()
Set cmd1 = Controls.Add("vb.commandbutton", "button")
With cmd1
.Visible = True
.Width = 2500
.Height = 500
.Top = 1000
.Left = 1000
.Caption = "动态产生的"
End With
End Sub
