魔塔之拯救白娘子 完整工程下載地址：
《魔塔之拯救白娘子》地圖編輯器：流程控制-卡通選擇
本課主要講一下，卡通圖片的選擇。如下圖所示。

卡通圖片由3種：
①基礎類：25個，主要是路面、NPC、門、樓梯之類。
②刀具類：28個，主要是紅寶石、血瓶、武器等道具。
③怪物類：34種，各種妖魔鬼怪。
前一課，在地圖編輯器流程控制第一項地圖數據初始化后，接著就是，卡通圖片初始化。下圖的代碼就是：

'地圖編輯器 Sub 地圖編輯器_初始化()'繪制一個6*6的區域作為選擇繪制圖形的地方地圖編輯器_選擇圖形DrawIf 地圖編輯器界面按鈕按下標志1 = False ThenWith 儲存按鈕的圖形數組(0)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph 400, 10End WithElseWith 儲存按鈕的圖形數組(1)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph 400, 10End With地圖編輯器界面按鈕按下標志2 = False地圖編輯器界面按鈕按下標志3 = FalseEnd IfIf 地圖編輯器界面按鈕按下標志2 = False ThenWith 儲存按鈕的圖形數組(2)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph 485, 12End WithElseWith 儲存按鈕的圖形數組(3)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph 485, 12End With地圖編輯器界面按鈕按下標志1 = False地圖編輯器界面按鈕按下標志3 = FalseEnd IfIf 地圖編輯器界面按鈕按下標志3 = False ThenWith 儲存按鈕的圖形數組(4)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph 570, 10End WithElseWith 儲存按鈕的圖形數組(5)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph 570, 10End With地圖編輯器界面按鈕按下標志1 = False地圖編輯器界面按鈕按下標志2 = FalseEnd IfIf 地圖編輯器界面按鈕按下標志_清空地圖 = False ThenWith 儲存按鈕的圖形數組(6)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph 220, 420End WithElseWith 儲存按鈕的圖形數組(7)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph 220, 420End WithEnd IfIf 地圖編輯器界面按鈕按下標志_保存地圖 = False ThenWith 儲存按鈕的圖形數組(8)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph 80, 420End WithElseWith 儲存按鈕的圖形數組(9)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph 80, 420End WithEnd IfIf 地圖編輯器界面按鈕按下標志_載入地圖 = False ThenWith 儲存按鈕的圖形數組(10)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph -70, 420End WithElseWith 儲存按鈕的圖形數組(11)'.SetDisplayRect 0, 0, 128, 64.SetScale 0.3, 0.3.Cell = 1.DrawGraph -70, 420End WithEnd IfEnd Sub

地圖編輯器_選擇圖形Draw：這個子程序的作用，就是3種卡通圖片之間的切換（根據你的點擊類型來判斷），由于卡通數目不一樣，所以在這里進行了分行顯示。

Sub 地圖編輯器_選擇圖形Draw()Dim j As IntegerDim k As IntegerDim 偏移值 As Integer圖片X坐標 = 440圖片Y坐標 = 100If 地圖編輯器界面按鈕按下標志1 = True ThenFor j = 1 To 25If j < 10 Then 偏移值 = j * 32If j > 9 And j < 19 Then 偏移值 = (j - 9) * 32If j > 18 And j < 29 Then 偏移值 = (j - 18) * 32With 儲存基本的物體圖形數組(j).Cell = 1.DrawGraph 圖片X坐標 + 偏移值, 圖片Y坐標End WithIf j = 9 Then 圖片Y坐標 = 圖片Y坐標 + 40If j = 18 Then 圖片Y坐標 = 圖片Y坐標 + 40Next jEnd IfIf 地圖編輯器界面按鈕按下標志2 = True ThenFor j = 1 To 28If j < 10 Then 偏移值 = j * 32If j > 9 And j < 19 Then 偏移值 = (j - 9) * 32If j > 18 And j < 29 Then 偏移值 = (j - 18) * 32If j > 27 And j < 37 Then 偏移值 = (j - 27) * 32'If J > 34 Then 偏移值 = (J - 34) * 32With 儲存基本的物體圖形數組(29 + j).Cell = 1.DrawGraph 圖片X坐標 + 偏移值, 圖片Y坐標End WithIf j = 9 Then 圖片Y坐標 = 圖片Y坐標 + 40If j = 18 Then 圖片Y坐標 = 圖片Y坐標 + 40If j = 27 Then 圖片Y坐標 = 圖片Y坐標 + 40'If J = 33 Then 圖片Y坐標 = 圖片Y坐標 + 40' 圖片Y坐標 = 圖片Y坐標 + 32NextEnd IfIf 地圖編輯器界面按鈕按下標志3 = True ThenFor j = 1 To 36If j < 10 Then 偏移值 = j * 32If j > 9 And j < 19 Then 偏移值 = (j - 9) * 32If j > 18 And j < 29 Then 偏移值 = (j - 18) * 32If j > 27 And j < 37 Then 偏移值 = (j - 27) * 32'If J > 34 Then 偏移值 = (J - 34) * 32With 儲存基本的物體圖形數組(80).Cell = j.DrawGraph 圖片X坐標 + 偏移值, 圖片Y坐標End WithIf j = 9 Then 圖片Y坐標 = 圖片Y坐標 + 40If j = 18 Then 圖片Y坐標 = 圖片Y坐標 + 40If j = 27 Then 圖片Y坐標 = 圖片Y坐標 + 40'If J = 33 Then 圖片Y坐標 = 圖片Y坐標 + 40' 圖片Y坐標 = 圖片Y坐標 + 32NextEnd IfEnd Sub

接下來就是程序關鍵的一環：動態顯示地圖上的卡通！

總結

以上是生活随笔為你收集整理的魔塔之拯救白娘子~我的第一个VB6+DX8做的小游戏源码~9地图编辑器-卡通选择的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。