几位版主:set 表单名=nothing是否可以释放该表单的所有资源.

Question

还有我有没有办法知道某个表单是否已经完全施放.
在另一个表单中使用以下代码调用: 
If Not (CRY_CDNOJE Is Nothing) Then
   MsgBox "NOT NOTHING"
End If
好像没用........

Answer 1

dim oForm as Form
For Each oFrom in Forms
    if oForm.Name = "Form1" then
        msgbox "Form1 not is nothing"
    else
        Msgbox "Form1 is nothing"
    end if
Next随手按你的意思写的，你自己试试，应该可以的。

Answer 2

If Obj Is Nothing Then dosomething