您所在位置：主题：求助 求vb高手帮忙解释程序 2
lj900108
[专家分：0] 发布于 2012-05-10 13:46:00
Public i As Integer
Private Sub Form_Load()
frmSplash.Width = 35
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If frmSplash.Width < 5535 Then
frmSplash.Width = frmSplash.Width + 100
Else
Timer3.Enabled = True
Timer1.Enabled = False
End If
End Sub
Private Sub Timer2_Timer()
If frmSplash.Width > 100 Then
frmSplash.Left = frmSplash.Left + 100
frmSplash.Width = frmSplash.Width - 100
Else
Unload Me
End If
End Sub
Private Sub Timer3_Timer()
Timer2.Enabled = True
Timer3.Enabled = False
End Sub
Private Sub Form_Load()
frmSplash.Width = 35
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If frmSplash.Width < 5535 Then
frmSplash.Width = frmSplash.Width + 100
Else
Timer3.Enabled = True
Timer1.Enabled = False
End If
End Sub
Private Sub Timer2_Timer()
If frmSplash.Width > 100 Then
frmSplash.Left = frmSplash.Left + 100
frmSplash.Width = frmSplash.Width - 100
Else
Unload Me
End If
End Sub
Private Sub Timer3_Timer()
Timer2.Enabled = True
Timer3.Enabled = False
End Sub
