VB中利用LineDDA函数做简单动画

第第页VB中利用LineDDA函数做简单动画VB中利用LineDDA函数做简单动画

发表于：2023-05-26来源：：点击数：标签：

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

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

该函数的原型如下：

BOOLLineDDA(intnXStart,intnYStart,intnXEnd,intnYEnd,LINEDDAPROClpLineFunc,LPARAMlpData);

参数说明如下：

nXStart：起点的X值

nYStart：起点的Y值

nXEnd：终点的X值

nYEnd：终点的Y值

lpLineFunc：回调函数的地址

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

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

回调函数的原型是：VOIDCALLBACKLineDDAProc(intX,intY,LPARAMlpData);

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

LineDDA函数在VB中的声明是：

PublicDeclareFunctionLineDDALib"gdi32.dll"(ByValn1AsLong,ByValn2AsLong,ByValn3AsLong,ByValn4AsLong,ByVallpLineDDAProcAsLong,ByVallParamAsLong)AsLong

其回调用函数原型为：

PublicSubLineDDAProc(ByValXAsLong,ByValYAsLong,ByVallpDataAsLong)

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

VB源程序如下：

窗体模块：

OptionExplicit

PrivateSubCommand1_Click()

'循环调用LineDDA函数,在其指定的回调中实现简单动画

DimiAsLong

Dimpoint(9)AsPOINTAPI

Fori=0ToUBound(point)-1

point(i+1).X=point(i).X+50

Ifpoint(i).Y=0Thenpoint(i+1).Y=50Elsepoint(i+1).Y=0

LineDDApoint(i).X,point(i).Y,point(i+1).X,point(i+1).Y,AddressOfLineDDAProc,Me.hdc

Nexti

EndSub

标准模块：

OptionExplicit

'API函数声明

PublicDeclareFunctionLineDDALib"gdi32.dll"(ByValn1AsLong,ByValn2AsLong,ByValn3AsLong,ByValn4AsLong,ByVallpLineDDAProcAsLong,ByVallParamAsLong)AsLong

PublicDeclareFunctionDrawTextLib"user32.dll"Alias"DrawTextA"(ByValhdcAsLong,ByVallpStrAsString,ByValnCountAsLong,lpRectAsRECT,ByValwFormatAsLong)AsLong

PublicDeclareSubSleepLib"kernel32.dll"(ByValdwMillisecondsAsLong)

'API类型声明

PublicTypeRECT

LeftAsLong

TopAsLong

RightAsLong

BottomAsLong

EndType

PublicTypePOINTAPI

XAsLong

YAsLong

EndType

'API常量声明

PrivateConstDT_CENTER=&H1

PrivateConstDT_VCENTER=&H4

'LineDDA函数的回调函数

'参数:X,Y为点坐标,lpData为自定义参数

PublicSubLineDDAProc(ByValXAsLong,ByValYAsLong,ByVallpDataAsLong)

DimrctAsRECT

IfXMod10=0Then

rct.Left=X

rct.Right=rct.Left+18

rct.Top=Y

rct.Bottom=rct.Top+18

DrawTextlpData,"LPP",-1,rct,DT_CENTEROrDT_VCENTER

Sleep(100)

DoEvents

En