在modual
frmSplash.Show
frmSplash.Refresh
delay 3
GoSub LoginProcess
Set fMainForm = New frmMain
Load fMainForm <======****
Unload frmSplash
fMainForm.Show
Exit Sub
LoginProcess:
frmLogin.Show vbModal
Select Case gPasswordMode
Case 10
Unload frmLogin
Set frmLogin = Nothing
Case 20
GoTo LoginProcess
Case 30
MsgBox "未完成使用者名稱及密碼輸入", vbCritical, "登入"
Unload frmLogin
Set frmLogin = Nothing
End
End Select
Return
End Sub
****已對frmMain的windowstate設定2(最大化)
但登錄密碼後,載入主表單不會最大化,請問有何方法使它最大化。thk!