动画设计

编写程序代码如下:

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

 

这个动画设计的程序让我感受到了VB 程序设计的魅力,一个程序可以让一系列的图案结合起来,太奇妙了
阅读更多
文章标签: timer integer vb
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭