我如何让启动时的SPLASH窗体全屏显示?

Question

我如何让启动时的SPLASH全屏显示?
还有我如何控制它消失的时间??

Answer 1

我如何让启动时的SPLASH全屏显示?
//
自己做个窗体作为SPLASH,把窗体的windowstate属性设置成最大化,
还有我如何控制它消失的时间??
//
在窗体上放个时间控件,对时间控件编程,你可以在规定的时间里执行你的操作.

Answer 2

可以使用 API：Sleep
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)Option Explicit
Public fMainForm As frmMain
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Sub Main()
    frmSplash.Show
    frmSplash.Refresh
    Sleep 2000         Set fMainForm = New frmMain
    Load fMainForm
    Unload frmSplash
    fMainForm.Show
End Sub

Answer 3

在窗体上放个时间控件,对时间控件编程,你可以在规定的时间里执行你的操作.
这样是不是太麻烦了,难道SPLASH属性里面就没有可以让它停得长一点的属性吗?

Answer 4

可以使用 API：Sleep
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)'This project needs a button
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    Me.Caption = "Your system will sleep 5 sec."
    'Sleep for 5000 milliseconds
    Sleep 5000
    Me.Caption = ""
End Sub
Private Sub Form_Load()
    Me.Caption = ""
    Command1.Caption = "Sleep ..."
End Sub