有两个Form: Form1,Form2
Form1上有一个Button,其click事件用来启动Form2。启动并显示Form2的条件是:
1,Form2中的一函数执行后,返回true,那么就启动并显示
2,Form2中的一函数执行后,返回false,那么就不启动也并显示
//////////////////////////////////////////////////////
以上该怎么做?
我做出来为什么老是出错?

解决方案 »

  1.   

    form1 中
    Private Sub Command1_Click()
        Load Form2
        If Form2.ReturnValue(1) = True Then
            Form2.Show
        Else
            Unload Form2
        End If
    End Subform2中
    Private Sub Command1_Click()
        Unload Me
    End Sub
    Function ReturnValue(nResult As Integer) As Boolean
        If nResult = 1 Then
            ReturnValue = True
        Else
            ReturnValue = False
        End If
    End Function测试通过,你试试看
      

  2.   

    Unload (FORM2)
    不要写在 FORM2的  LOAD里