«

»

Aug 26

Unload 控件出现 Run-time error ’365′

“根据不同的选项,自动调整程序界面的布局。”——自己觉得是个不错的想法,但是辛辛苦苦写完代码,运行时却出错了!

程序的大致设想是通过 ComboBox 控件选择不同的工作项目,用 Label 控件显示出该工作项目的主要工作流程。用 Load 和 Unload 语句动态增减 Label 控件数组。大致语句如下:



Dim mintProjectIndex as Integer
Private Sub cmbProject_Click()
Dim lngCount as Long
Dim i as integer
lngCount = lblProcess.UBound
If mintProjectIndex <> cmbProject.ListIndex Then
For i = 1 to lngCount
Unload lblProcess(i)
Next
End If
End Sub

运行,错误就出现了:Run-time error ’365′ Unable to unload within this context
搜索了一下,在 MSDN 上找到了官方答案(链接在此),原来 ComboBox 的 Click 事件中是不能用 Unload 语句的。我晕!

看来只能另想办法了。哎,写了一下午的代码啊……

1 comment

  1. Anonymous

    private sub form_load()
    timer1.interval=100
    end sub

    private sub form_activate()
    load control
    end sub

    private sub combo1_click()
    timer1.enabled = true
    end sub

    private sub timer1_timer()
    unload control
    timer1.enabled=false
    end sub

    msdnbbs上的办法。呵呵,

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>