有两个Form: Form1,Form2
Form1上有一个Button,其click事件用来启动Form2。启动并显示Form2的条件是:
1,Form2中的一函数执行后,返回true,那么就启动并显示
2,Form2中的一函数执行后,返回false,那么就不启动也并显示
//////////////////////////////////////////////////////
以上该怎么做?
我做出来为什么老是出错?
Form1上有一个Button,其click事件用来启动Form2。启动并显示Form2的条件是:
1,Form2中的一函数执行后,返回true,那么就启动并显示
2,Form2中的一函数执行后,返回false,那么就不启动也并显示
//////////////////////////////////////////////////////
以上该怎么做?
我做出来为什么老是出错?
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测试通过,你试试看
不要写在 FORM2的 LOAD里