怎样用VB知识设计程序模拟鸟儿的飞行（或其他动物的运动）

VB可以模拟鸟和其它动物运动，但仅仅是机械的模拟效果并不好。为了真实还原动物动作模拟，所以人类发明了动作捕捉设备，用来采集动物和人类动作。采集的数据内容一般来说是三维的，即3D骨骼各个节点的x、y、z坐标以及它们银扰首分别朝向的轴旋转角度ax、ay、az。有了这些数据，可以用任意编程软件读取后想法显李绝示出来。

对于VB来说，需要能够设定例如鸟类翅膀的旋转角度和位置，这是VB图形处理的难点，毕竟像Flash只要设置元素角度属性值即可，但VB里则需要自己写对图像的旋转和图片背景透明程序。因此建议模拟动物在Flash里完成会轻松得多，而且Flash里还有很好的动画支持，即使不用编程也能做出动物锋数运动。

希望对你做动物运动有用 :)

首先准备两张图片，，多张也行，，我之前做过一个，代码贴出给你，袭链，所需的控件自己话，，你迟禅高看得懂的～～

Dim Bj As Integer

Private Sub Command1_Click()

Bj = 1

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

If Bj = 1 Then

Image1.Picture = LoadPicture("Bfly1.bmp")

Else

Image1.Picture = LoadPicture("Bfly2.bmp")

End If

Bj = -Bj

Image1.Move Image1.Left + 100, Image1.Top - 50

End Sub

你给邮箱码尺我，我发个给你算了～～

---