VB编程制作自动窗口抖动

那个命令能点这个

Dim a, f
Private Sub Form_Load(()
f = 0
a = 0
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If f <> 12 Then
If a = 0 Then
Form1.Top = Form1.Top + 80
a = a + 1
ElseIf a = 1 Then
Form1.Left = Form1.Left + 80
a = a + 1
ElseIf a = 2 Then
Form1.Top = Form1.Top - 80
a = a + 1
ElseIf a = 3 Then
Form1.Left = Form1.Left - 80
a = 0
End If
f = f + 1
End If
End Sub

建立一个按扭就OK了

Private Sub Command1_Click() Dim i As Integer For i = 1 To 50 Me.Left = Me.Left - 50 Me.Top = Me.Top - 50 Me.Left = Me.Left + 50 Me.Top = Me.Top + 50 Next End Sub

前几个都太麻烦 您试下这个

Dim ray As Long For ray = 1 To 400 Form1.Top = Form1.Top - 100 Form1.Left = Form1.Left - 100 Form1.Top = Form1.Top + 100 Form1.Left = Form1.Top + 100 Next ray

ok编写完毕

Dim a, f As Integer

Private Sub Form_Load() f = 0 a = 0 Timer1.Enabled = True Timer1.Interval = 50 '抖动速度 End Sub Private Sub Timer1_Timer() If f <> 12 Then If a = 0 Then Form1.Top = Form1.Top + 80 a = a + 1 ElseIf a = 1 Then Form1.Left = Form1.Left + 80 a = a + 1 ElseIf a = 2 Then Form1.Top = Form1.Top - 80 a = a + 1 ElseIf a = 3 Then Form1.Left = Form1.Left - 80 a = 0 End If f = f + 1 End If If f > 12 Then Timer1.Enabled = False End Sub

Private Sub Command1_Click() For i = 1 To 20 Form1.Left = Form1.Left + 20 Next i For i = 1 To 20 Form1.Top = Form1.Top + 20 Next i For i = 1 To 20 Form1.Left = Form1.Left - 20 Next i For i = 1 To 20 Form1.Top = Form1.Top - 20 Next i End Sub