魔塔之拯救白娘子 完整工程下载地址:
《魔塔之拯救白娘子》地图编辑器-背景绘制:这个子程序绘制的背景是静态的,如果绘制动态的可参考完整工程里的 动态背景Draw 子程序:
Sub 背景Draw()Dim j As IntegerDim k As IntegerDim m() As StringDim n As Integer'绘制作战区域图片X坐标 = 0图片Y坐标 = 0For k = 0 To 12If k > 12 Then Exit Form = Split(地图数据(k), ",")For n = 0 To 12图片编号(n) = Val(m(n))'写文件LOG ("k=" & k & "图片编号:" & 图片编号(n))Next nFor j = 0 To 12'If j > 12 Then Exit ForIf 图片编号(j) < 80 ThenWith 储存基本的物体图形数组(图片编号(j)).Cell = 1.DrawGraph 图片X坐标 + j * 32, 图片Y坐标End WithEnd IfIf 图片编号(j) > 79 ThenWith 储存基本的物体图形数组(80).Cell = 图片编号(j) - 79.DrawGraph 图片X坐标 + j * 32, 图片Y坐标End WithEnd If'Debug.Print "当前K=" & k & "当前J=" & j & "当前图片编号:" & 图片编号(j) & "图片X坐标:" & 图片X坐标 + j * 32 & "图片Y坐标:" & 图片Y坐标' 写文件LOG ("当前K=" & k & "当前J=" & j & "当前图片编号:" & 图片编号(j) & "图片X坐标:" & 图片X坐标 + j * 32 & "图片Y坐标:" & 图片Y坐标)Next j图片Y坐标 = 图片Y坐标 + 32'Next kErase m()Erase 图片编号()End Sub
这段代码的作用就是根据地图数据,读取相对于的卡通图片,绘制到相对于的坐标上。