魔塔之拯救白娘子 完整工程下载地址：
《魔塔之拯救白娘子》~11地图编辑器-地图编辑界面鼠标点击判断:
鼠标点击判断：
①点击的对象是卡通图片切换：完成对3种类型的卡通切换并显示
②点击的对象是某个卡通图片：获得该开通的编号，显示相应的信息，比如怪物属性
③点击的是地图界面：根据②的在地图界面绘制②的卡通并显示
④其他选择，比如退出编辑，清空地图等等。
Sub 地图编辑界面鼠标点击判断()If Running <> 8 Then Exit SubIf Xi.MouseKey(xgL_BUTTON) Then鼠标X坐标 = Xi.MouseX鼠标Y坐标 = Xi.MouseYIf 鼠标X坐标 = 497 Or 鼠标X坐标 > 497 And 鼠标X坐标 < 573 ThenIf 鼠标Y坐标 = 44 Or 鼠标Y坐标 > 44 And 鼠标Y坐标 < 67 Then地图编辑器界面按钮按下标志1 = True地图编辑器界面按钮按下标志2 = False地图编辑器界面按钮按下标志3 = False地图编辑器界面_选择图形编号 = 1End IfEnd IfIf 鼠标X坐标 = 582 Or 鼠标X坐标 > 582 And 鼠标X坐标 < 656 ThenIf 鼠标Y坐标 = 44 Or 鼠标Y坐标 > 44 And 鼠标Y坐标 < 67 Then地图编辑器界面按钮按下标志1 = False地图编辑器界面按钮按下标志2 = True地图编辑器界面按钮按下标志3 = False地图编辑器界面_选择图形编号 = 1End IfEnd IfIf 鼠标X坐标 = 666 Or 鼠标X坐标 > 666 And 鼠标X坐标 < 742 ThenIf 鼠标Y坐标 = 44 Or 鼠标Y坐标 > 44 And 鼠标Y坐标 < 67 Then地图编辑器界面按钮按下标志1 = False地图编辑器界面按钮按下标志2 = False地图编辑器界面按钮按下标志3 = True地图编辑器界面_选择图形编号 = 1End IfEnd If'以上判断是否按下编辑器界面的3个选项按钮'以下判断是否按下清空地图，保存地图和载入地图If 鼠标X坐标 = 174 Or 鼠标X坐标 > 174 And 鼠标X坐标 < 252 ThenIf 鼠标Y坐标 = 455 Or 鼠标Y坐标 > 455 And 鼠标Y坐标 < 478 Then地图编辑器界面按钮按下标志_保存地图 = TrueEnd IfEnd IfIf 鼠标X坐标 = 318 Or 鼠标X坐标 > 318 And 鼠标X坐标 < 395 ThenIf 鼠标Y坐标 = 455 Or 鼠标Y坐标 > 455 And 鼠标Y坐标 < 478 Then地图编辑器界面按钮按下标志_清空地图 = TrueEnd IfEnd IfIf 鼠标X坐标 = 34 Or 鼠标X坐标 > 34 And 鼠标X坐标 < 115 ThenIf 鼠标Y坐标 = 455 Or 鼠标Y坐标 > 455 And 鼠标Y坐标 < 480 ThenIf 地图编辑器界面按钮按下标志_载入地图 = False Then地图编辑器界面按钮按下标志_载入地图 = TrueElse地图编辑器界面按钮按下标志_载入地图 = False'End IfEnd IfEnd If'退出地图编辑器，返回游戏第一页If 鼠标X坐标 = 543 Or 鼠标X坐标 > 543 And 鼠标X坐标 < 613 ThenIf 鼠标Y坐标 = 462 Or 鼠标Y坐标 > 462 And 鼠标Y坐标 < 484 ThenIf MsgBox("你是否放弃地图编辑，返回主菜单？如果没有保存地图，请点否！", vbQuestion Or vbYesNo, Me.Caption) = vbYes ThenRunning = 9: 读档标志 = False: 判断running状态_初始化: BackPic.LoadGraph "image\魔塔背景\魔塔背景1.jpg", xgBLACKEnd IfEnd IfEnd If'以下判断是否选择了某个土块'检测第1行1-9Dim 地图编辑器界面_鼠标选择范围X坐标 As SingleDim 地图编辑器界面_鼠标选择范围y坐标 As SingleDim j As Integer地图编辑器界面_鼠标选择范围X坐标 = 474地图编辑器界面_鼠标选择范围y坐标 = 102For j = 0 To 8If 鼠标X坐标 = 地图编辑器界面_鼠标选择范围X坐标 + j * 32 Or 鼠标X坐标 > 地图编辑器界面_鼠标选择范围X坐标 + j * 32 And 鼠标X坐标 < 地图编辑器界面_鼠标选择范围X坐标 + j * 32 + 26 ThenIf 鼠标Y坐标 = 地图编辑器界面_鼠标选择范围y坐标 Or 鼠标Y坐标 > 地图编辑器界面_鼠标选择范围y坐标 And 鼠标Y坐标 < 地图编辑器界面_鼠标选择范围y坐标 + 32 Then地图编辑器界面_选择图形编号 = j + 1End IfEnd IfNext'检测第2行10-19地图编辑器界面_鼠标选择范围X坐标 = 474地图编辑器界面_鼠标选择范围y坐标 = 146'For j = 0 To 8If 鼠标X坐标 = 地图编辑器界面_鼠标选择范围X坐标 + j * 32 Or 鼠标X坐标 > 地图编辑器界面_鼠标选择范围X坐标 + j * 32 And 鼠标X坐标 < 地图编辑器界面_鼠标选择范围X坐标 + j * 32 + 26 ThenIf 鼠标Y坐标 = 地图编辑器界面_鼠标选择范围y坐标 Or 鼠标Y坐标 > 地图编辑器界面_鼠标选择范围y坐标 And 鼠标Y坐标 < 地图编辑器界面_鼠标选择范围y坐标 + 32 Then地图编辑器界面_选择图形编号 = j + 1 + 9End IfEnd IfNext'检测第3行20-29地图编辑器界面_鼠标选择范围X坐标 = 474地图编辑器界面_鼠标选择范围y坐标 = 185'For j = 0 To 8If 鼠标X坐标 = 地图编辑器界面_鼠标选择范围X坐标 + j * 32 Or 鼠标X坐标 > 地图编辑器界面_鼠标选择范围X坐标 + j * 32 And 鼠标X坐标 < 地图编辑器界面_鼠标选择范围X坐标 + j * 32 + 26 ThenIf 鼠标Y坐标 = 地图编辑器界面_鼠标选择范围y坐标 Or 鼠标Y坐标 > 地图编辑器界面_鼠标选择范围y坐标 And 鼠标Y坐标 < 地图编辑器界面_鼠标选择范围y坐标 + 32 Then地图编辑器界面_选择图形编号 = j + 1 + 18If 地图编辑器界面按钮按下标志1 = True And 地图编辑器界面_选择图形编号 > 25 Then 地图编辑器界面_选择图形编号 = 25: Exit ForEnd IfEnd IfNext'检测第4行30-39地图编辑器界面_鼠标选择范围X坐标 = 474地图编辑器界面_鼠标选择范围y坐标 = 225'For j = 0 To 6If 鼠标X坐标 = 地图编辑器界面_鼠标选择范围X坐标 + j * 32 Or 鼠标X坐标 > 地图编辑器界面_鼠标选择范围X坐标 + j * 32 And 鼠标X坐标 < 地图编辑器界面_鼠标选择范围X坐标 + j * 32 + 26 ThenIf 鼠标Y坐标 = 地图编辑器界面_鼠标选择范围y坐标 Or 鼠标Y坐标 > 地图编辑器界面_鼠标选择范围y坐标 And 鼠标Y坐标 < 地图编辑器界面_鼠标选择范围y坐标 + 32 Then地图编辑器界面_选择图形编号 = j + 1 + 27If 地图编辑器界面按钮按下标志2 = True And 地图编辑器界面_选择图形编号 > 28 Then 地图编辑器界面_选择图形编号 = 28: Exit ForEnd IfEnd IfNext''检测第5行40-49'地图编辑器界面_鼠标选择范围X坐标 = 474' 地图编辑器界面_鼠标选择范围y坐标 = 225''' For j = 0 To 6'' If 鼠标X坐标 = 地图编辑器界面_鼠标选择范围X坐标 + j * 32 Or 鼠标X坐标 > 地图编辑器界面_鼠标选择范围X坐标 + j * 32 And 鼠标X坐标 < 地图编辑器界面_鼠标选择范围X坐标 + j * 32 + 26 Then'' If 鼠标Y坐标 = 地图编辑器界面_鼠标选择范围y坐标 Or 鼠标Y坐标 > 地图编辑器界面_鼠标选择范围y坐标 And 鼠标Y坐标 < 地图编辑器界面_鼠标选择范围y坐标 + 32 Then'' 地图编辑器界面_选择图形编号 = j + 1 + 27'''End If'End If'' Next'以上判断是否选择绘图图形快'以下判断选择了图形快以后进行绘图工作' 当前K=1当前J=0当前图片编号：0图片 X坐标：0图片Y坐标：32'当前K=1当前J=1当前图片编号：1图片 X坐标：32图片Y坐标：32'当前K=1当前J=2当前图片编号：1图片 X坐标：64图片Y坐标：32'当前K=1当前J=3当前图片编号：1图片 X坐标：96图片Y坐标：32'当前K=1当前J=4当前图片编号：1图片 X坐标：128图片Y坐标：32'当前K=1当前J=5当前图片编号：1图片 X坐标：160图片Y坐标：32'当前K=1当前J=6当前图片编号：1图片 X坐标：192图片Y坐标：32'当前K=1当前J=7当前图片编号：1图片 X坐标：224图片Y坐标：32'当前K=1当前J=8当前图片编号：1图片 X坐标：256图片Y坐标：32'当前K=1当前J=9当前图片编号：1图片 X坐标：288图片Y坐标：32'当前K=1当前J=10当前图片编号：1图片 X坐标：320图片Y坐标：32'当前K=1当前J=11当前图片编号：1图片 X坐标：352图片Y坐标：32'当前K=1当前J=12当前图片编号：0图片 X坐标：384图片Y坐标：32''1-29为基本道具；'30-79为道具 ；'80-99为怪物Dim tempX As Integer '地图X边界判断'Dim tempY As Integer '地图y边界判断Dim m() As StringDim k As IntegerFor k = 1 To 11'判断第一行地图编辑器界面_鼠标选择范围X坐标 = 32地图编辑器界面_鼠标选择范围y坐标 = 32 * kFor j = 0 To 10If 鼠标X坐标 = 地图编辑器界面_鼠标选择范围X坐标 + j * 32 Or 鼠标X坐标 > 地图编辑器界面_鼠标选择范围X坐标 + j * 32 And 鼠标X坐标 < 地图编辑器界面_鼠标选择范围X坐标 + j * 32 + 32 ThenIf 鼠标Y坐标 = 地图编辑器界面_鼠标选择范围y坐标 Or 鼠标Y坐标 > 地图编辑器界面_鼠标选择范围y坐标 And 鼠标Y坐标 < 地图编辑器界面_鼠标选择范围y坐标 + 32 Then'地图编辑器界面_选择图形编号 = j + 1 + 27' 地图编辑器界面_图形说明'地图数据(1) = "0,1,1,1,1,1,1,1,1,1,1,1,0"m = Split(地图数据(k), ",")tempX = 鼠标X坐标 / 32If tempX > 11 Then tempX = 11m(tempX) = 地图编辑器界面_选择图形编号If 地图编辑器界面按钮按下标志2 = True Thenm(tempX) = m(tempX) + 29'地图编辑器界面_选择图形编号 = 地图编辑器界面_选择图形编号 + 29End IfIf 地图编辑器界面按钮按下标志3 = True Thenm(tempX) = m(tempX) + 79'地图编辑器界面_选择图形编号 = 地图编辑器界面_选择图形编号 + 79End If地图数据(k) = m(0) & "," & m(1) & "," & m(2) & "," & m(3) & "," & m(4) & "," & m(5) & "," & m(6) & "," & m(7) & "," & m(8) & "," & m(9) & "," & m(10) & "," & m(11) & "," & m(12)写临时地图数据 (0)地图编辑器界面_临时地图标志 = TrueEnd IfEnd IfNext jNext k'以下处理载入地图操作Dim 偏移量X As Integer '地图X边界判断Dim 偏移量Y As Integer '地图y边界判断'判断第一行32-43,503-511' 地图编辑器界面_鼠标选择范围X坐标 = 32' 地图编辑器界面_鼠标选择范围y坐标 = 503For j = 1 To 地图最大层号If j < 30 Then偏移量X = 10 + 20 * j: 偏移量Y = 503Else偏移量X = 10 + 20 * (j - 29): 偏移量Y = 530End IfIf 鼠标X坐标 = 偏移量X Or 鼠标X坐标 > 偏移量X And 鼠标X坐标 < 偏移量X + 15 ThenIf 鼠标Y坐标 = 偏移量Y Or 鼠标Y坐标 > 偏移量Y And 鼠标Y坐标 < 偏移量Y + 15 Then'处理点击加载地图事件当前正在编辑的地图编号 = j: 地图编辑器界面_修正地图 = TrueIf 地图编辑器界面_修正地图 = True And 当前正在编辑的地图编号 > 0 And 地图编辑器界面按钮按下标志_载入地图 = True Then读取地图数据 (当前正在编辑的地图编号)写临时地图数据 (0)End IfExit ForEnd IfEnd IfNext j'Next kEnd IfEnd Sub
本段代码虽然长，但结构非常清晰，当然写 也很随意，但还是很好懂的，在此不多说。
