用VB应用程序向导做一个:新建工程------VB应用程序向导-----下一步------下一步最后选上“启动应用程序时的展示屏幕”---------------------------------------- Public fMainForm As frmMain Sub Main() frmSplash.Show frmSplash.Refresh Set fMainForm = New frmMain Load fMainForm Unload frmSplash fMainForm.Show End Sub
用VB应用程序向导做一个:新建工程------VB应用程序向导-----下一步------下一步最后选上“启动应用程序时的展示屏幕” "登陆窗口" ---------------------------------------- Public fMainForm As frmMain Sub Main() frmSplash.Show frmSplash.Refresh Set fMainForm = New frmMain Load fMainForm Unload frmSplash fMainForm.Show End Sub
Public fMainForm As frmMain
Sub Main()
frmSplash.Show
frmSplash.Refresh
Set fMainForm = New frmMain
Load fMainForm
Unload frmSplash
fMainForm.Show
End Sub
"登陆窗口"
----------------------------------------
Public fMainForm As frmMain
Sub Main()
frmSplash.Show
frmSplash.Refresh
Set fMainForm = New frmMain
Load fMainForm
Unload frmSplash
fMainForm.Show
End Sub