private sub userform_initialize()
dim kj as object
set kj=me.controls.add("Forms.Frame.1","我是框架")
kj.caption="框架是我"
kj.left=130
kj.top=50
dim ml as object
set ml=me.controls.add("Forms.CommandButton.1","我是命令按钮")
ml.caption="点我删除框架"
ml.left=30
ml.top=30
end sub
'上面的窗口初始化，用代码生成了一个框架的控件和一个命令按钮的控件，
现在我要用这个命令按钮去删除这个框架，应该怎么去写这个用代码生成的命令按钮的点击应用呢？
反正，下面的代码不行，因为这纯粹是一个新的过程
private sub ml_click()
me.controls.remove “框架是我”
改下面这样
Dim WithEvents ml As CommandButton ''''注意这里用withevents来申明
Private Sub userform_initialize()
Dim kj As Object
Set kj = Me.Controls.Add("Forms.Frame.1", "我是框架")
kj.Caption = "框架是我"
kj.Left = 130
kj.Top = 50
''dim ml as object'''要按照上面那样申明才行
Set ml = Me.Controls.Add("Forms.CommandButton.1", "我是命令按钮")
ml.Caption = "点我删除框架"
ml.Left = 30
ml.Top = 30
End Sub
Private Sub ml_click()
Me.Controls.Remove ("我是框架")
End Sub