form1.frm

vb实现飞机动画

VERSION 5.00
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00000000&
   Caption         =   "Form1"
   ClientHeight    =   6420
   ClientLeft      =   120
   ClientTop       =   420
   ClientWidth     =   11565
   LinkTopic       =   "Form1"
   ScaleHeight     =   6420
   ScaleWidth      =   11565
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   600
      Top             =   480
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim a As Integer, b As Integer, c As Integer, d As Integer, z As Integer, x As Integer
Private Sub huatu_Paint()
Form1.Cls
Form1.Scale (0, 500)-(1000, 0)
Line (a, c)-(b, d), vbRed, BF
e = c
f = (a + b) / 2
g = f
h = d
For i = e To e + 12 + x * z Step 0.01
Line (f - 12 - x * z, i)-(g + 12 + x * z, i), vbBlue
f = f + 0.01
g = g - 0.01
Next i
For i = h - 12 - x * z To h Step 0.01
Line (f - 12 - x * z, i)-(g + 12 + x * z, i), vbBlue
f = f + 0.01
g = g - 0.01
Next i
For i = b To b + 40 + x * z Step 0.018
Line (i, e)-(i, h), vbYellow
e = e - 0.01
h = h + 0.01
Next i
End Sub
Private Sub Form_Load()
a = 0: b = 40: c = 270: d = 230: z = 1: x = 0
Call huatu_Paint
End Sub

Private Sub Timer1_Timer()
a = a + 30: b = b + 30
a = a - z: b = b + z: c = c + z: d = d - z
x = x + 1
Call huatu_Paint
End Sub