罗培羽—教你用VB制作RPG游戏QQ:345697666E_mail：tyxxxx@qq.com我们的目标看看这一节我们会做到怎么样的效果显示一张图试试画图PublicDeclareFunctionGdiTransparentBltLib"gdi32"(ByValhdc1AsLong,ByValx1AsLong,ByValy1AsLong,ByValW1AsLong,ByValH1AsLong,ByValHdc2AsLong,ByValX2AsLong,ByValY2AsLong,ByValW2AsLong,ByValH2AsLong,ByValColorAsLong)AsLong画图GdiTransparentBltmain.hDC,0,0,main.Role.Width,main.Role.Height,main.Role.hDC,0,0,main.Role.Width,main.Role.Height,RGB(255,255,255)'画图画图图片Visible=FalseAutoSize=TrueAutoRedraw=TrueBorderStyle=0窗体AutoRedraw=True但是如何变成一张一张的呢属性：Cols--裁剪列数（形如"皿"）；Rows--裁剪行数（形如"目"）。GraphicCell属性：存放各个裁剪图的数组，通过引用格式：pictureclip1.graphiccell(下标)来引用每一幅经过裁剪得到的图片（其下标从0开始）。0123456789101112131415我要动起来第一步：鼠标点哪里我们的角色就到哪里我们先在Draw过程中添加参数，来控制图片的位置在Form_MouseDown事件中我们调用过程DrawForm_MouseDown事件就是当鼠标在在窗体上按下时，程序执行事件里的内容我们把按钮中的内容复制到事件中，加以简单的修改CallDraw(X,Y)在Form_MouseDown事件中：X代表鼠标的横坐标，而Y代表纵坐标第二步：一步一步走到目的地向量算法我们设角色现在的位置坐标为（X0,y0）我们要走到（Xt,Yt）的位置（X0,y0）（X0,y0）（X0,y0）（X0,y0）我们开始制作'坐标、移动速度计算Xt=XYt=YX0=XnY0=Ynn=0Xn=n*(Xt-X0)+X0Yn=n*(Yt-Y0)+Y0CallDraw(Xn,Yn)为了能让n自动变化，我们添加一个timer控件Timer1.Enabled=False'坐标、移动速度计算iXt=XYt=YX0=XnY0=Ynn=0Timer1.Enabled=True修改timer1但我们要的是每次走一定的距离而不是一定的比例怎么办呢？那我们每次就都来算一次位移的比例，使每次走的位移都一样。我们来定义两个变量Form_MouseDown中n=0后面我们加上下面这句来计算总位移s=Sqr((Xt-X0)^2+(Yt-Y0)^2)再加上k=10/s第三步：走到目的地自动停下我们在Timer1的代码中加上以下代码第四步：让角色有不同的面向线性规划上左右下上左右下IfYt-Y0>=Xt-X0AndYt-Y0>=-(Xt-X0)Then'"下"Role.Picture=PictureClip1.GraphicCell(0)Endif'面向判断IfYt-Y0>=Xt-X0AndYt-Y0>=-(Xt-X0)Then'"下"Role.Picture=PictureClip1.GraphicCell(0)ElseIfYt-Y0<=Xt-X0AndYt-Y0<=-(Xt-X0)Then'"上"Role.Picture=PictureClip1.GraphicCell(12)ElseIfYt-Y0>=Xt-X0AndYt-Y0<=-(Xt-X0)Then'"左"Role.Picture=PictureClip1.GraphicCell(4)ElseIfYt-Y0<=Xt-X0AndYt-Y0>=-(Xt-X0)Then'"右"Role.Picture=PictureClip1.GraphicCell(8)EndIfEndIfEndIfEndIf我要行走我们再定义两个变量Rpic、Ri我们在面向判断中每一句Role.Picture=PictureClip1.GraphicCell(下标)下面加上这一句Rpic=下标来记录我们的图片要从哪里调用起我们在Timer1_Timer中加上'行走动画处理Role.Picture=PictureClip1.GraphicCell(Rpic+Int(Ri/4))Ri=Ri+