在VB.NET中，经常需要处理动画性能的问题，尤其是当需要处理大量的矢量数据时。本文将探讨如何通过VB.NET创建高性能的动画，以及如何将这些数据发送到3D软件如Truespace或Maya中。
主要的想法是创建一个由外部程序、音乐、游戏手柄等驱动的动画。想象一下，如果自己的对象能够随着低音鼓、旋律和踩镲跳舞，那将是一种怎样的音乐可视化效果？
本文将提供一个良好的文档结构，以保持比例和一致性。
主要的视图应该集中在clsStickStructure.vb类上。它保存了任何点的属性，并且也保存了该点是否相对于其他点。因此，可以使用简单的运动学来创建动画。
If MoveIndex > -1 Then
If e.Button = Windows.Forms.MouseButtons.Left Then
Call MoveObjectToPosition(MoveIndex, New Point(e.X, e.Y), False)
ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
Call MoveObjectToPosition(MoveIndex, New Point(e.X, e.Y), True)
End If
End If
在移动鼠标时，选择应该固定在网格上，以更快地创建模型：
Private Sub MoveObjectToPosition(ByVal ObjectIndex As Integer, ByVal Pos As PointF, ByVal MoveFullObject As Boolean)
Dim X, Y As Integer
Dim DiffX, DiffY As Integer
Dim item2 As StickStructure
Dim i As Integer
X = CInt(Pos.X / GridSize) * GridSize
Y = CInt(Pos.Y / GridSize) * GridSize
' ... 更多代码 ...
End Sub
以下函数将帮助选择下一个点对象：
Private Function GetNextFreeItemIdNumber() As Integer
Dim i As Integer
Dim res As Integer = 1
Dim S As clsStickStructure.StickPoint
If Stick.Points Is Nothing OrElse Stick.Points.Length = 0 Then
Return 1
End If
For i = 0 To Stick.Points.Length - 1
S = Stick.GetItemById(Stick.Points(i).Id)
If S Is Nothing Then
Exit For
Else
res = S.Id + 1
End If
Next
Return res
End Function