扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:中国IT实验室 来源:中国IT实验室 2007年10月2日
关键字:
在本页阅读全文(共2页)
'在后备缓存中绘制地图
Dim rMap As RECT
ddsBackBuffer.BltFast(0, 0, Map.ddsMap, rMap, CONST_DDBLTFASTFLAGS.DDBLTFAST_WAIT)
'在后备缓存中绘制人物
Dim rPlayer As RECT
Dim ddrval As Boolean
'rPlayer表示从图片中截取那块,从哪到哪。如果你打开很多游戏的位图看看的话你会发现一个人物的多种动态往往放在一张位图中,截取其中的不同块显示出来就形成了动画。
'表示从(0,0)这个位置开始取
rPlayer.Top = 0
rPlayer.Left = 0
'表示取到(32,32)这个位置
rPlayer.Right = 32
rPlayer.Bottom = 32
'其中0,0表示绘制的位置。
ddrval = ddsBackBuffer.BltFast(0, 0, ddsHero, rPlayer, CONST_DDBLTFASTFLAGS.DDBLTFAST_SRCCOLORKEY Or CONST_DDBLTFASTFLAGS.DDBLTFAST_WAIT)
'好了,后备缓存已经绘制完成了,可以翻转过来了,其实写屏的方法就是不停的翻转主面和缓存面
ddsPrimary.Flip(Nothing, CONST_DDFLIPFLAGS.DDFLIP_WAIT)
Public Structure myGest Public GestID As Int16 '武功编号 Public GestLV As Int16 '武功等级 End Structure |
Public Structure myXY Public iX As Int16 'X轴坐标 Public iY As Int16 'Y轴坐标 Public iAsp as Int16 '头朝的方向 End Structure |
Public Enum myResClass '物品分类 Head '头装备 Body '身上装备 Hand '手上装备 Eat '食品 Other '其他 End Enum Public ResClass As myResClass '物品类型 End Class |
Select Case iNowState Case 0 '开始界面 Case 1 '移动模块 Case 2 '对话模块 Case 3 '战斗模块 Case 4 '交易模块 Case 5 '主菜单 End Select 用eInput来存储键盘事件。定义如下: Public eInput As System.Windows.Forms.Keys = Keys.None '读取存储键盘信息 Protected Overrides Sub OnKeyDown(ByVal e As System.Windows.Forms.KeyEventArgs) eInput = e.KeyCode end sub |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者