关于动态数组控件卸载的有关问题
关于动态数组控件卸载的问题
自定义了一个控件,想要根据数据库的记录加载这个控件,从数据库选记录的方法是有条件的,通过一个combobox里面选择条件,想要根据这个下拉框选择控件的数目,然后用load方法在form_load里面加载。
问题是每次控件数不同,因此需要在加载前用unload方法把原来的控件现移去。
结果我发现这个代码直接在form_load里面写不行,在combo_click里面写也不行,如果在界面上加个按钮,响应按钮事件写unload可以
所以请问,如果我想用combobox控制控件的自动载入有什么好办法吗?
对了,这个我用controls.add remove也不行,问题是和上面的一样
错误提示如下:
unabale to unload within this context
------解决方案--------------------
最好加个判断.
Private Function IsCtl(obj) As Boolean
Dim tmp As String
IsCtl = True
On Error GoTo err
tmp = obj.Name
Exit Function
err:
IsCtl = False
End Function
如果控件存在就删除 用unload方法是可以删除的...
------解决方案--------------------
加个定时器试试。在form_load的最后或combobox的单击事件中,让定时器的enable=true,将unload控件的代码写在定时器中。
自定义了一个控件,想要根据数据库的记录加载这个控件,从数据库选记录的方法是有条件的,通过一个combobox里面选择条件,想要根据这个下拉框选择控件的数目,然后用load方法在form_load里面加载。
问题是每次控件数不同,因此需要在加载前用unload方法把原来的控件现移去。
结果我发现这个代码直接在form_load里面写不行,在combo_click里面写也不行,如果在界面上加个按钮,响应按钮事件写unload可以
所以请问,如果我想用combobox控制控件的自动载入有什么好办法吗?
对了,这个我用controls.add remove也不行,问题是和上面的一样
错误提示如下:
unabale to unload within this context
------解决方案--------------------
最好加个判断.
Private Function IsCtl(obj) As Boolean
Dim tmp As String
IsCtl = True
On Error GoTo err
tmp = obj.Name
Exit Function
err:
IsCtl = False
End Function
如果控件存在就删除 用unload方法是可以删除的...
------解决方案--------------------
加个定时器试试。在form_load的最后或combobox的单击事件中,让定时器的enable=true,将unload控件的代码写在定时器中。