VB编程:仿QQ聊天框的抖动效果-58
Dim a
Private Sub Command1_Click()
a = 0
Timer1.Enabled =
True
End Sub
Private Sub Form_Load()
Timer1.Enabled =
False
Timer1.Interval =
50
Timer2.Enabled =
False
Timer2.Interval =
8000
End Sub
Private Sub Timer1_Timer()
Static b As
Integer
Timer2.Enabled =
True
If a = 0 Then
Me.Top = Me.Top + 80
a = a + 1
ElseIf a = 1 Then
Me.Left = Me.Left + 80
a = a + 1
ElseIf a = 2 Then
Me.Top = Me.Top - 80
a = a + 1
ElseIf a = 3 Then
Me.Left = Me.Left - 80
a = 0
End If
b = b + 1
' Print b
'抖动次数
End Sub
Private Sub Timer2_Timer()
If Timer1.Enabled = True
Then
Timer1.Enabled = False
Timer2.Enabled = False
End If
End Sub