vb动画设计程序

 

编写程序代码如下：

Public TopBottom, LeftRight As String
Private Sub Form_Click()
    If Timer1.Enabled = False Then
       Timer1.Enabled = True
    Else
       Timer1.Enabled = False
    End If
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
       Case 61
          Timer1.Interval = 10
       Case 45
          Timer1.Interval = 100
    End Select
End Sub
Private Sub Form_Load()
    TopBottom = "0"
    LeftRight = "0"
End Sub

Private Sub Timer1_Timer()
    Select Case TopBottom & LeftRight
        Case "00"
            Form1.Image1.Top = Form1.Image1.Top - 10
            Form1.Image1.Left = Form1.Image1.Left - 10
            Form1.Image1.Move _
            Form1.Image1.Left - 10, Form1.Image1.Top - 10
            If Form1.Image1.Top <= 0 Then
                TopBottom = "1"
            End If
            If Form1.Image1.Left <= 0 Then
            LeftRight = "1"
            End If
        Case "10"
            Form1.Image1.Top = Form1.Image1.Top + 10
            Form1.Image1.Left = Form1.Image1.Left - 10
            If Form1.Image1.Top >= _
            Form1.ScaleHeight - Form1.Image1.Height Then
                TopBottom = "0"
            End If
            If Form1.Image1.Left <= 0 Then
                LeftRight = "1"
            End If
        Case "01"
            Form1.Image1.Top = Form1.Image1.Top - 10
            Form1.Image1.Left = Form1.Image1.Left + 10
            If Form1.Image1.Top <= 0 Then
                TopBottom = "1"
            End If
            If Form1.Image1.Left >= _
            Form1.ScaleWidth - Form1.Image1.Width Then
                TopBottom = "0"
            End If
        Case "11"
            Form1.Image1.Top = Form1.Image1.Top + 10
            Form1.Image1.Left = Form1.Image1.Left + 10
            If Form1.Image1.Top >= _
            Form1.ScaleHeight - Form1.Image1.Height Then
                TopBottom = "0"
            End If
            If Form1.Image1.Left >= _
            Form1.ScaleWidth - Form1.Image1.Width Then
                LeftRight = "0"
            End If
    End Select
End Sub