Public fMainForm As frmselect_inSub Main() Dim fLogin As New frmLogin fLogin.Show vbModal
If Not fLogin.OK Then '登录失败,退出应用程序 End End If Unload fLogin Set fMainForm = New frmselect_in Load fMainForm fMainForm.Show
End Sub ---------------------------------------- 以下在窗体中 Public OK As Boolean Private Sub cmdOK_Click()'检查正确用户名及密码 If ... Then OK = True Me.Hide Else MsgBox "对不起!你的输入有误,或用户不存在", , "sorry" End IfEnd Sub
If Not fLogin.OK Then
'登录失败,退出应用程序
End
End If
Unload fLogin Set fMainForm = New frmselect_in
Load fMainForm fMainForm.Show
End Sub
----------------------------------------
以下在窗体中
Public OK As Boolean
Private Sub cmdOK_Click()'检查正确用户名及密码
If ... Then OK = True
Me.Hide
Else
MsgBox "对不起!你的输入有误,或用户不存在", , "sorry" End IfEnd Sub
您好,请问如何改为同步执行?谢谢。
wynbfqny:
您好,程序中哪个是开关变量?谢谢。