在vb的combobox 的click事件中怎么不能删除动态添加的控件?
我写了一个程序,想在combobox的click事件中删除动态添加的控件,但总是提示“实时错误'365':不能在该上下文中卸载”。我的程序如下:
Option Explicit
Dim fr As Frame
Private Sub Combo1_click()
Form1.Controls.Remove "fr"
End Sub
Private Sub Form_Load()
Dim cb As CheckBox
Set fr = Form1.Controls.Add("vb.frame", "fr")
With fr
.Visible = True
.Left = 2000
.Top = 1500
.Height = 2000
.Width = 3000
.Caption = "选择"
End With
Set cb = Form1.Controls.Add("vb.checkbox", "cb", fr)
With cb
.Visible = True
.Left = 200
.Top = 200
.Caption = "选项一"
End With
Form1.Combo1.AddItem ("项目一")
Form1.Combo1.ItemData(Combo1.NewIndex) = 1
Form1.Combo1.AddItem ("项目二")
Form1.Combo1.ItemData(Combo1.NewIndex) = 2
End Sub
窗体中设计时只加了一个combobox,然后动态添加了一个frame,并在其中添加了一个checkbox。望各位高手解答!另外,我试了在按钮的单击事件中,删除动态添加的控件的可以成功,为什么在combobox的单击事件中却不行呢?