魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~10地图编辑器-卡通绘制

魔塔之拯救白娘子 完整工程下载地址：
《魔塔之拯救白娘子》地图编辑器-背景绘制：这个子程序绘制的背景是静态的，如果绘制动态的可参考完整工程里的 动态背景Draw 子程序：

Sub 背景Draw()
   
    Dim j As Integer
    
    Dim k As Integer
   Dim m() As String
   
   Dim n As Integer
   
'绘制作战区域
   
    图片X坐标 = 0
    图片Y坐标 = 0
    
    For k = 0 To 12
    If k > 12 Then Exit For
    m = Split(地图数据(k), ",")

For n = 0 To 12
图片编号(n) = Val(m(n))

'写文件LOG ("k=" & k & "图片编号：" & 图片编号(n))
Next n

   For j = 0 To 12

'If j > 12 Then Exit For
If 图片编号(j) < 80 Then
       With 储存基本的物体图形数组(图片编号(j))
            .Cell = 1
            .DrawGraph 图片X坐标 + j * 32, 图片Y坐标
        End With
        End If
        
   If 图片编号(j) > 79 Then
   
       With 储存基本的物体图形数组(80)
            .Cell = 图片编号(j) - 79
            .DrawGraph 图片X坐标 + j * 32, 图片Y坐标
        End With
        End 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 k
  Erase m()
 Erase 图片编号()
End Sub

这段代码的作用就是根据地图数据，读取相对于的卡通图片，绘制到相对于的坐标上。