frmSplash(frmSplash.frm)窗体
frmSplash(frmSplash.frm)窗体:一个Timer窗体
Private Sub Form_Click()
CreateGame 1 'Initialize game
frmMain.Show 'Show window
Unload Me
End Sub
Private Sub tmrEffect_Timer()
Dim nX As Long, nY As Long, Cnt As Long
Dim Delay As Long, T1 As Long, T2 As Long
Dim Start As Byte, nSteps As Byte
Dim Ret As POINTAPI
Delay = 0: nSteps = 3
For Start = 0 To nSteps - 1
T1 = GetTickCount
T2 = GetTickCount
For Cnt = Start To frmSplash.ScaleWidth Step nSteps
While T2 - T1 < Delay
T2 = GetTickCount
Wend
nX = Cnt
nY = Me.ScaleWidth
frmSplash.Line (Cnt, 0)-(Cnt, Me.ScaleHeight), 0
frmSplash.Line (0, Cnt)-(Me.ScaleWidth, Cnt), 0
T1 = GetTickCount
Next Cnt
Next Start
CreateGame 1 'Initialize game
frmMain.Show 'Show window
Unload Me
End Sub