【IT168技术文档】

  如果在VB中实现比较简单的动画效果，也许很多人会选用Timer控件，其实API函数中有一个LineDDA，用这个函数实现简单的动画效果还是比较不错的。因为是API函数，所以很一般化，因此很多语言都可以用它来实现简单的动画。

  该函数的原型如下：

BOOL LineDDA(int nXStart, int nYStart, int nXEnd, int nYEnd, LINEDDAPROC lpLineFunc, LPARAM lpData);

  参数说明如下：

nXStart：起点的X值

nYStart：起点的Y值

nXEnd：终点的X值

nYEnd：终点的Y值

lpLineFunc：回调函数的地址

lpData：用户自定义参数（这个参数会传给回调函数）

  这个函数和动画其实没什么关系，它的功能就是计算出连接两点的线段上的每一个屏幕像素的坐标，这两个点的坐标已经在函数的前四个参数中给出。每计算出一个坐标，该函数就会调用第五个参数所指的回调函数，我们可以在回调函数中完成一些简单的操作，以实现动画效果。

  回调函数的原型是： VOID CALLBACK LineDDAProc(int X, int Y, LPARAM lpData);

  前两个参数是点的坐标，第三个参数就是由LineDDA传过来的自定义参数，是由我们自己指定的，传什么都行。 :)

  LineDDA 函数在VB中的声明是：

Public Declare Function LineDDA Lib "gdi32.dll" (ByVal n1 As Long, ByVal n2 As Long, ByVal n3 As Long, ByVal n4 As Long, ByVal lpLineDDAProc As Long, ByVal lParam As Long) As Long

  其回调用函数原型为：

Public Sub LineDDAProc(ByVal X As Long, ByVal Y As Long, ByVal lpData As Long)

  在VB中，回调函数必须放在标准模块中，传递函数地址时使用AddressOf运算符，后面接函数名。

  VB源程序如下：

  窗体模块：

Option Explicit
Private Sub Command1_Click()
' 循环调用 LineDDA 函数, 在其指定的回调中实现简单动画

Dim i As Long
Dim point(9) As POINTAPI
For i = 0 To UBound(point) - 1
point(i + 1).X = point(i).X + 50
If point(i).Y = 0 Then point(i + 1).Y = 50 Else point(i + 1).Y = 0
LineDDA point(i).X, point(i).Y, point(i + 1).X, point(i + 1).Y, AddressOf LineDDAProc, Me.hdc
Next i
End Sub