UC知道VB右下角滚动提示问题
来源：百度知道 编辑：UC知道 时间：2024/07/02 06:57:51
VB做右下角如MSN那样的消息提示程序,下面代码可以实现向上滚动,但如何隔十秒后向下收缩却不会,请求高手指点.帮我修改一下代码,十分感谢.
Private Sub Form_Load()
Me.Move Screen.Width - Me.Width, Screen.Height
Timer1.Interval = 20
End Sub
Private Sub Timer1_Timer()
Static i As Long
If i >= Me.Height + 450 Then Timer1.Interval = 0
Me.Move Screen.Width - Me.Width - 200, Screen.Height - i
i = i + 120
End Sub
Private Sub Form_Load()
Me.Move Screen.Width - Me.Width, Screen.Height
Timer1.Interval = 20
End Sub
Private Sub Timer1_Timer()
Static i As Long
If i >= Me.Height + 450 Then Timer1.Interval = 0
Me.Move Screen.Width - Me.Width - 200, Screen.Height - i
i = i + 120
End Sub
Dim a%
Private Sub Form_Load()
Me.Move Screen.Width - Me.Width, Screen.Height
Timer1.Interval = 20
a = 0
End Sub
Private Sub Timer1_Timer()
Static i As Long
If a = 0 Then
If i >= Me.Height + 450 Then a = 2
Me.Move Screen.Width - Me.Width - 200, Screen.Height - i
i = i + 120
ElseIf a = 1 Then
If i <= 0 Then MsgBox "完成!": End
Me.Move Screen.Width - Me.Width - 200, Screen.Height - i
i = i - 120
ElseIf a = 2 Then
i = i + 10
If i >= 5500 Then a = 1: i = 4200
End If
End Sub