本文将带你进入一个探索之旅，一个艰难困苦的
VB游戏编程之旅。由于
VB没有快速的图形操作方法，所以它不是一个常用的游戏
开发工具。不过这并没有阻碍那些勇于探索的人，只要巧妙地运用一些API知识，我们就可以做所有的事情。
设计步骤： 一、绘制图像 让太空飞船显示在屏幕上只要调用一个简单的
API函数，实际上，我们使用API函数是考虑了速度因素，正常情况下PaintPicture方法就足够了。然而，由于太空船将到处做曲线运动，我们将调用
BitBlt这一个API函数，它并没有特别的地方，只是将两个图象融合成一个图象。使用一些聪明的"技巧"，我们可以将太空飞船放入到一个充满星星的背景之中，并能让它到处移动。
二、获取随机数 微软提供的Rnd函数将返回一个在（0，1）之间的
随机数，然而，在我们得到一个随机数之前，建议先发出一个"Randomize Timer"命令，timer函数返回午夜0点以来时间所经历过的秒数，Randomize命令设置了一个随机数产生器的种子，不要研究其背后的深邃的原理，只要明白这个命令可以使我们每一次都可以得到一个不同的随机数就可以了。
三、程序实现 现在我们已经拥有了着陆程序所有必需的元素，但是正象开药方一样，我们还需要小心的将它们组合在一起。首先生成一个新的工程，在FORM1上放置三个图片
控件。
下面是我使
用VB开发的一个太空飞船着陆游戏的界面效果图，有兴趣的朋友可以
下载我的源代码
一、绘制图像
如果让太空飞船进行太空可能要花费上亿美元，但是让我们的太空飞船显示在屏幕上只要调用一个简单的API函数，实际上，我们使用API函数是考虑了速度因素，正常情况下PaintPicture方法就足够了。然而，由于太空船将到处做曲线运动，我们将调用BitBlt这一个API函数，它并没有特别的地方，只是将两个图象融合成一个图象。使用一些聪明的"技巧"，我们可以将太空飞船放入到一个充满星星的背景之中，并能让它到处移动。
好了，上面的介绍已经很充分了，让我们介绍一下BitBlt函数声明：
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 |
上面的声明虽然看上去很复杂，但实际使用中却相当容易。
无论什么时候，当
在Windows下绘制图象时，用于绘制的区域有大量的特性，包括尺寸、颜色和设备类型。所有这些信息都被
封装在一个称为"设备上下文"的对象中。尽管VB尽其所能来隐藏它们，因为它们只用在API函数中，但实际上所有可以用来绘制的物体都拥有设备上下文（下文将简称"DC"），包括打印机、图片框和窗体。所有的上述的对象都提供了指向DC的句柄，它可以通过对象的hDC属性来获取。在调用BitBlt这个API函数时所使用的 hDescDC 和 hSrcDC参数正是这个属性。
X和Y参数用来说明在目标区域进行绘制图象时的起始位置，nWidth和nHeight参数说明源图象的尺寸大小，xSrc和ySrc用来定义目地区域抓取源图象的尺寸大小。因为我们正在使用API函数，所以必须工作在像素模式下，所以只要使用图片框控件，就要将"scalemode"属性设置为3 - Pixels。
最后一个参数dwRop将带来各种填充、混合效果，它允许你按位（bit）为单位来操作，将源图象与目标图象融合在一起。它使用与PaintPicture方法相同的常量，这些常量可以在
帮助文件中查询。它们包括：vbSrcCopy，直接将源图象拷贝到目标区域；vbSrcInvert，我们将在后续程序中用到它，让太空船放入到布满星星的背景中。
下面让我们来看看如何使用这个API函数。
启动VB，并创建一个标准的EXE工程，在Form1窗体中放入两个尺寸相同的图片（
Picture）控件，在Picture1中载入你的宠物照片，或是你喜爱的
主题公园风景照，或是Windows的云彩背景图片。确定两个控件的尺寸足够容纳图象。另外，在窗体中放入两个按钮控件。将第一个按钮的"
caption"属性设置为"COPY"，在这个按钮的
click事件中添加如下代码：
Private Sub Command1_Click()
Picture1.ScaleMode = vbPixels
Picture2.ScaleMode = vbPixels
BitBlt Picture2.hDC, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, Picture1.hDC, 0, 0, vbSrcCopy
End Sub |
将第二个按钮的"caption"属性设置为"Invert"，在这个按钮的click事件中添加如下代码：
Private Sub Command2_Click()
BitBlt Picture2.hDC, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, Picture2.hDC, 0, 0, vbDstInvert
End Sub |
现在，编译你的应用程序，试着点击这两个按钮观看代码所产生的效果。当点击命令按钮Button2时，图片是不是按位操作实现了反转，如果是，正是我所想提供的效果。
到目前为止我们已经做好了让飞船进入太空的准备。现在到了添加其他一些现实元素，如星星的时候了，我原来考虑制造具有火焰及3D效果的小球来代表星星，但它对于我们的着陆游戏来说有点显得过于专业，所以到现在我还是坚持使用黄色的小点来代表处它。
在游戏的开始，我们需要在容纳飞船的图片框架内绘制星星。所以，我们必须遍历图片框内的所有像素，并决定在某一个特定的点上是否有一个星星。正如你将在下面看到的一样，我们可以通过For...Next
loop循环来实现一个功能。VB提供了一个PSet函数来设置某一个像素点的颜色，但它的速度太慢，所以我们使用另外一个API函数，SetPixelV。这个函数声明如下：
Declare Function SetPixelV Lib "gdi32" Alias "SetPixelV" (ByVal hdc As Long, _
ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long |
这个函数实质上等同于SetPixel函数，但是它的速度更快，因为它不返回设置像素点的颜色。正如你所看到的，我们必须又一次使用图片框的hDC属性。x 和 y是像素点的坐标，它以像素为单位。crColor是将要设置的RGB颜色值。
[1] [2] [3] 下一页
