如果在 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
标准模块：
Option Explicit
' API 函数声明
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 Declare Function DrawText Lib "user32.dll" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
Public Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
' API 类型声明
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Type POINTAPI
X As Long
Y As Long
End Type
' API 常量声明
Private Const DT_CENTER = &H1
Private Const DT_VCENTER = &H4
' LineDDA 函数的回调函数
' 参数 : X, Y 为点坐标 , lpData 为自定义参数
Public Sub LineDDAProc(ByVal X As Long, ByVal Y As Long, ByVal lpData As Long)
Dim rct As RECT
If X Mod 10 = 0 Then
rct.Left = X
rct.Right = rct.Left + 18
rct.Top = Y
rct.Bottom = rct.Top + 18
DrawText lpData, "LPP", -1, rct, DT_CENTER Or DT_VCENTER
Sleep (100)
DoEvents
End If
End Sub
上面的程序实现的效果是在窗体上按照一条反折线动态显示一些文字，在窗体中添加一个 CommandButton ，复制上面的代码即可。其实，在著名的 PGP 加密软件中，当密码输入错误时，窗口会很调皮的抖动一下，这个效果完全可以用 LineDDA 函数实现，关键就看我们的想象力了。 :D
这是上面的源程序下载地址： http://csdngoodname008.51.net/LineDDA.zip
-------------------------------------------
转载请通知作者并注明出处， CSDN 欢迎您！ *
作者：卢培培（ goodname008 ） *
邮箱： [email protected] *
-------------------------------------------