可以添加一个splash窗体,然后选择sub main过程为启动对象,并用show方法先是该窗体。 Private sub main() frmsplash.show '显示快速窗口 '在下面添加启动过程 ...... '显示主窗口 frmMain.show '卸载快速窗口 unload frmsplash end sub
试试看: Private Sub Form_Initialize() '调用API函数setwindowpos把frmSplash始终置于最前。 frmSplash.Show End SubPrivate Sub Timer1_Timer() Unload frmSplash Timer1.Enabled = False End Sub
doevents
Private sub main()
frmsplash.show
'显示快速窗口
'在下面添加启动过程
......
'显示主窗口
frmMain.show
'卸载快速窗口
unload frmsplash
end sub
Private Sub Form_Initialize()
'调用API函数setwindowpos把frmSplash始终置于最前。
frmSplash.Show
End SubPrivate Sub Timer1_Timer()
Unload frmSplash
Timer1.Enabled = False
End Sub