vb中动画程序设计

最新推荐文章于 2022-05-09 15:05:29 发布

vanvae

最新推荐文章于 2022-05-09 15:05:29 发布

阅读量609

点赞数

分类专栏： vb作业文章标签： vb timer integer

本文链接：https://blog.csdn.net/vanvae/article/details/7547645

版权

vb作业专栏收录该内容

12 篇文章 0 订阅

订阅专栏

学习这个还挺有意思的！

编写程序代码如下：

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