下面的代码是按键盘上下左右键可以实现地图滚动，运行代码之前，在当前目录放一张2048*2048的，文件名为map.jpg，是地图；在窗体设计器里面放一个picturebox，命名为map，再放一个timer，名字不用改，然后运行代码即可，你可以根据实际情况修改。
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Const MERGEPAINT = &HBB0226
Private Const SRCAND = &H8800C6
Private Const SRCCOPY = &HCC0020
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, _
ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, _
ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_ESCAPE = &H1B '
Private Const VK_UP = &H26 '上
Private Const VK_DOWN = &H28 '下
Private Const VK_LEFT = &H25 '左
Private Const VK_RIGHT = &H27 '右
Dim frame As Single
Dim MAPX As Long, MAPY As Long '地图坐标
Dim AN As Single, BN As Single '角色坐标
Dim I As Single, PLAY As Long
Dim FPSX As Long, FPSY As Long, SPEED As Long '游戏画面每秒的帧数
Private Sub Form_Load()
Form1.Height = 480 * 15: Form1.Width = 640 * 15
Me.Show
PICMAP.Picture = LoadPicture("MAP.jpg")
MAPX = 1024: MAPY = 1024
frame = 1
AN = 0: BN = 200
I = 0.2
PLAY = 1
FPSY = GetTickCount()
FPSX = FPSY
End Sub
Private Sub Timer1_Timer()
DoEvents
SPEED = (FPSY - FPSX)
Label1.Caption = "FPS = " & Int(1000 / (SPEED + 1))
BitBlt Me.hDC, MAPX, MAPY, 2048, 2048, PICMAP.hDC, 0, 0, vbSrcCopy
BitBlt Me.hDC, MAPX - 2048, MAPY, 2048, 2048, PICMAP.hDC, 0, 0, vbSrcCopy
BitBlt Me.hDC, MAPX, MAPY - 2048, 2048, 2048, PICMAP.hDC, 0, 0, vbSrcCopy
BitBlt Me.hDC, MAPX - 2048, MAPY - 2048, 2048, 2048, PICMAP.hDC, 0, 0, vbSrcCopy
AN = AN + SPEED * I
If AN < -50 Then I = -I: PLAY = 1
If AN > 550 Then I = -I: PLAY = 2
Me.Refresh
If GetAsyncKeyState(VK_ESCAPE) And &H8000 Then End
If MAPX > 0 And GetAsyncKeyState(VK_RIGHT) And &H8000 Then MAPX = MAPX - SPEED * frame
If MAPX < 2048 And GetAsyncKeyState(VK_LEFT) And &H8000 Then MAPX = MAPX + SPEED * frame
If MAPY > 0 And GetAsyncKeyState(VK_DOWN) And &H8000 Then MAPY = MAPY - SPEED * frame
If MAPY < 2048 And GetAsyncKeyState(VK_UP) And &H8000 Then MAPY = MAPY + SPEED * frame
FPSX = FPSY
FPSY = GetTickCount()
End Sub
开放世界游戏中的大地图背后有哪些实现技术
1始源：Aeon Of Strife-发展：DotA问世
不管你是否关注，MOBA都已成为游戏领域的一个重要内容。就在前不久，DotA 2锦标赛的消息还登上了《纽约时报》的首页，这类游戏已经无法阻挡了，不过，MOBA游戏起初并不起眼。当然，没有一个人能够说清楚MOBA为什么可以逐渐成为了PC游戏领域的现象级游戏内容，这也是小编要和大家分享MOBA发展史的原因。最近，外媒整理了MOBA游戏的起源和发展历史，以下是编译的内容：以下的文章会谈到MOBA类内容的起源、以及如何变成众多开发商们的‘摇钱树’并对游戏业产生重大影响的过程，当然，如果你确切的了解什么是MOBA的话，可能理解起来会比较容易。其实，MOBA的特点有很多，比如大多数都有2个以上的队伍选择不同英雄进行对战(通常是5V5)，竞技地图通常是三条兵线并且连接双方基地，玩家们必须击败对手，摧毁对方基地才算获胜。每个人控制的英雄都可以升级技能、获得金币并购买装备强化英雄能力，还可以击杀野怪获得额外的经验、金钱以及增值道具。听起来似乎很简单，但实际上却是极其复杂和具有竞技性以及挑战性的过程。下面我们就来看看这类游戏是如何逐步发展到今天的：始源：Aeon Of Strife
星际争霸
1998年，《星际争霸》发行，暴雪娱乐公司第一次在暴雪娱乐制作并发行的游戏中绑定了地图编辑器。利用这款地图编辑器，当时有一位叫做Aeon64的玩家制作出一张名为Aeon Of Strife的自定义地图，这就是所有MOBA游戏的雏形。在这个自定义地图中，玩家们可以控制一个英雄单位与电脑控制的地方团队进行作战，地图有3条兵线，并且连接双方主基地，获胜的目标就是摧毁对方主基地。尽管是Aeon Of Strife奠定了MOBA类游戏的根基，但其实今天真正的MOBA和最初有很大的差别。一方面来说，双方的团队成员增加到了5人，而且，当时的Aeon of Strife并非竞技型地图，只是PVE的单机地图，而且当时的地图中，英雄是不能升级的，也没有设置野怪或者在三条兵线旁边设置其他生物。发展：DotA问世在2002年，暴雪发布了另一款实时策略游戏《魔兽争霸Ⅲ》，和《星际争霸》一样，玩家也可以在这款游戏中创作自定义的地图。在2003年，一名叫做Eul(现就职于Valve公司)的地图编辑者受到Aeon of Strife地图的启发而创作了叫做Defense of the Ancients的地图，很快，其他的玩家们也可以创作自己版本的DotA了，每个创作者都可以自己增加英雄、物品和其他防御设施。和Aeon of Strife一样，DotA地图也允许玩家们控制英雄在三线地图上与对手战斗，不过与原作不同的是，电脑AI对手变成了真实的玩家团队，而且DotA地图增加了5V5的玩法，并且允许玩家们控制的英雄升级，还在三条兵线之间加入了野怪。当时的DotA可以说是如今MOBA类游戏最相像的原型。最后，一名叫做Steve Feak(现任LOL游戏策划)的地图编辑者和Guinsoo(即羊刀，现任拳头公司游戏设计师)一起创作了DotA Allstars，这个地图涵盖了多个DotA版本的多种元素，并且很快成为最受欢迎的DotA地图。
DotA Allstars是当代MOBA的重要的奠基者
然而，此时的DotA Allstars依然是《魔兽争霸Ⅲ》(以下简称War 3)的一个地图而已，这也意味着该游戏地图完全依赖War 3的游戏资源，所以这个地图里的所有英雄都没有自己全新的模式，更不可能给这些地图创作者们带来任何利润。Feak最终离开了原来的地图研发团队，与另一个地图编辑者冰蛙(即IceFrog，就职于Valve)合作。在IceFrog的指导下，DotA继续发展，并且在平衡性方面取得了更大的进展，DotA持续受到广大玩家的欢迎。
你好，一、程序技术篇：算法和架构（Programming Algorithms & Architecture）
1. 无限循环的平铺地图（Infinite Tiling）
2. 可预测随机数和无限宇宙（Predictable Random）
3. 精度问题解决方案
4. 超大地形的处理 （Terrain Visualization）
4.1 古典算法（从 GeoMipMapping，Progressive Mesh 到 ROAM）
4.2 层次的艺术（Quadtree 和 Chunked LOD）
4.3 以GPU为主的技术（从 Paging，Clipmap 到 GPU Terrain）
5. id tech 5 的 megatexture （超大地表上的非重复性海量贴图）
6. 过程式的内容 （Procedural Content Generation）
6.1 过程式纹理（Procedural Texturing）
6.2 过程式建模（Procedural Modeling）
二、内容制作篇：设计和创造（Content Design & Creation）
1. 随机地图类游戏 (Diablo II) 中地图的拼接
2. 无缝大世界 (World of Warcraft) 中区域地图的拼接
3. 卫星地质数据的导入，规整化和再加工（一些飞行模拟类游戏）
4. 超大地图的协同编辑：并行操作，数据同步，手动和自动锁的运用
三、异次元篇：我们的征途是星辰大海
1. 终极沙盒（EVE）：当规模大到一定程度——宇宙级别的混沌理论与蝴蝶效应
2. 打通两个宇宙（EVE & Dust）：发现更广阔的世界——宇宙沙盒游戏和行星射击游戏联动
