动态卸载控件的问题

Question

希望在combobox的下拉菜单点选变化时，改变窗体上按钮控件的数量（按钮控件为动态创建的控件数组），我在change和click事件中使用unload卸载，运行时提示“不能在该上下文中卸载”，我该怎么办？请各位帮忙！多谢！

Answer 1

'首先在窗口中加一个Text控件,将其Index属性设置为0'加载10个控件
Private Sub Command1_Click()
    Dim i As Long
    Dim lngIndex As Long
    
    For i = 1 To 10
        lngIndex = Text1.UBound + 1
        Load Text1(lngIndex)
        Text1(lngIndex).Top = Text1(lngIndex - 1).Top + Text1(lngIndex - 1).Height + 100
        Text1(lngIndex).Left = Text1(lngIndex - 1).Left
        Text1(lngIndex - 1).Visible = True
    Next
End Sub'卸载控件
Private Sub Command2_Click()
    Dim i As Long
    Dim lngCount As Long
    lngCount = Text1.UBound
    
    For i = 1 To lngCount
        Unload Text1(i)
    Next
End Sub

Answer 2

用按钮控制是可以实现，但我想在在combobox的下拉菜单点选变化时，根据combobox选中的数值改变窗体上按钮控件的数量，我在change和click事件中使用unload卸载，运行时提示“不能在该上下文中卸载”。

Answer 3

应该是不可能当然可以卸载，如果不行你就直接写出UNLOAD的句子看看，我一般这样调程序

Answer 4

这是我调试的代码：
Private Sub Combo1_Change()
     Unload Me.Cmd2(5)
End Sub
问题依旧，还是提示“不能在该上下文中卸载”，不知是什么意思。

Answer 5

在ComboBox控件中的事件是不允许对动态控件进行UNLOAD操作的,相关说明看看MSDN中有解释.

Answer 6

那你直接DESTROYWINDOW Me.Cmd2(5).HWND试试。