用VB编写DirectX7.0游戏（上）

核心提示：DirectX7.0终于出现了，同前面DirectX6相同，用VB编写DirectX7.0游戏（上），版本7也带了一个庞大（129M）的SDK开发库，同DirectX6SDK库相比，在这个模式之下，你可以设置使用定义及动态调色板，DirectX7的SDK库提供了以下新的功能：＊对于VisualBasic的支持，用户可以

DirectX7.0终于出现了，同前面DirectX6相同，版本7也带了一个庞大（129M）的SDK开发库，同DirectX6SDK库相比，DirectX7的SDK库提供了以下新的功能：
＊对于VisualBasic的支持。用户可以使用类库在VisualBasic环境下开发基于DirectX的程序。
＊提供更多DirectX3D立即模式（ImmediateMode）下的API函数，以支持DirectX7中新的3D特效，包括立体环境映射、顶点混合等。
＊DirectMusic支持DownLoadableSoundLevel2标准。
＊DirectInput支持8按键的游戏杆设备，同时支持Microsoft的力反馈摇杆。SDK库提供了读取力反馈效果文件的方法。同时提供了ForceEditor程序来建立效果。
对于VB爱好者来说，新的SDK库终于提供了完整的对VB的支持，现在终于可以使用VisualBasic来编写DirectX的程序了。
一、DirectXSDK库的安装
微软提供的SDK库是一个“重”达129M的dx7sdk.exe自解压缩文件，你可以上网下载或者从配套光盘上获得这个文件。双击文件就会弹出Winzip自解压缩对话框。在弹出的WinZipSelf－ExtractDK7SDK.EXE窗口中输入解压缩文件的路径，然后点击“Unzip”按钮解压缩SDK文件：
要注意的是，dx7sdk.exe解压缩之后的体积有220M，硬盘比较紧张的读者在解压缩之前首先看看你的硬盘的容量是否足够。
解压缩完毕之后，进入解压缩的目录中，双击Setup.exe文件就可以安装DirectX7.0SDK文件了。安装是采用标准的InstallShield界面，玩Windows的读者应该对这种安装界面驾轻就熟，只要跟着安装提示一步一步地走就可以了。安装完毕之后，安装程序会在开始菜单中添加一个MicrosoftDirectX7SDK的菜单，其中包括DirectX7设置工具、VB范例和SDKHelp等菜单项。
现在开始进入VB，开始我们的DirectX的VB编程。在这里我们使用的是VB6企业版（英文）。Windows98中文版。
打开VB，点击菜单中的PRoject|References项，在ObjectLibrary列表中会有一项：DirectX7.0ForVisualBasicTypeLibrary列表项，这个就是DirectX7.0VB类库，选中该项，再选“ok”按钮，就可以将库加入工程文件中。
二、DirectX编程初步
1DirectX7对象
DirectX7对象是DirectXVB对象中其他所有对象的服务和起始对象，这个对象包含了建立诸如DirectDraw、Direct3D、DirectSound、DirectInput等对象的方法。同时该对象还包含了一系列的三维控件顶点和距阵的操作函数以及一些DirectX系统函数。在VB中可以通过Dim...New来直接定义和初始化一个DirectX7对象，例如：
DimDirectXAsNewDirectX7
当建立成功一个DirectX7对象之后，就可以使用该对象的DirectDrawCreate、Direct3DRMCreate等方法建立DirectDraw、Direct3D对象了。
DirectX7对象范例1：获得系统中的DirectDraw和DirectSound驱动
建立一个新的工程文件，点击菜单中的Project|References项，在ObjectLibrary列表中选中DirectX7.0ForVisualBasicTypeLibrary项后按确定按钮（以下的程序都需要这个步骤，后面将不再做说明）。然后在Form1中加入一个ListBox控件和四个CommandButton控件，在Form1的代码窗口中加入以下代码：
OptionExplicit
DimDirectXAsNewDirectX7
DimDDEnumAsDirectDrawEnum
DimDDSoundAsDirectSoundEnum

PrivateSubCommand1_Click()
DimCount,iAsInteger
SetDDEnum=DirectX.GetDDEnum
Count=DDEnum.GetCount
List1.Clear
Fori=1ToCount
List1.AddItemDDEnum.GetDescription(i)
Nexti
SetDDEnum=Nothing
EndSub

PrivateSubCommand2_Click()
DimCount,iAsInteger
SetDDEnum=DirectX.GetDDEnum
Count=DDEnum.GetCount
List1.Clear
Fori=1ToCount
List1.AddItemDDEnum.GetName(i)
Nexti
SetDDEnum=Nothing
EndSub

PrivateSubCommand3_Click()
DimCount,iAsInteger
SetDDSound=DirectX.GetDSEnum
Count=DDSound.GetCount
List1.Clear
Fori=1ToCount
List1.AddItemDDSound.GetDescription(i)
Nexti
EndSub

PrivateSubCommand4_Click()
DimCount,iAsInteger
SetDDSound=DirectX.GetDSEnum
Count=DDSound.GetCount
List1.Clear
Fori=1ToCount
List1.AddItemDDSound.GetName(i)
Nexti
EndSub

PrivateSubForm_Load()
Command1.Caption=“DirectDraw驱动描述”
Command2.Caption=“DirectDraw驱动名称”
Command3.Caption=“DirectSound驱动描述”
Command4.Caption=“DirectSound驱动名称”
EndSub

PrivateSubForm_Unload(CancelAsInteger)
SetDirectX=Nothing
EndSub
运行程序，分别点击不同的按钮，在列表框中就会出现相应的设备驱动名和描述。
2DirectDraw7对象
DirectDraw是一个与Windows图形系统接口(GDI)相兼容的直接操作显示设备的软件接口。DirectDraw提供与硬件无关性的同时允许直接操作显存。程序只要使用一些基本的标准硬件约定，如：RGB及YUV色彩格式及解析度。你无须调用特殊的过程来使用显存块移动(Blitter)及调色板。使用DirectDraw，你可简单操作显存，完全使用各种硬件特性而不必理会各种不同硬件之间的差异。
2.1建立DirectDraw对象
DirectDraw7对象是DirectX7中的DirectDraw对象，你需要首先建立一个DirectX7对象，然后使用该对象的DirectDrawCreate方法来建立DirectDraw7对象。例如：
DimDXAsNewDirectX7
DimDDrawAsDirectDraw7
SetDDraw=DX.DirectDrawCreate(“”)
2.2建立协作层
当建立了一个DirectDraw对象之后，首先要设定DirectDraw的协作层。实现的方法是调用DirectDraw对象的SetCoOperativeLevel函数。该函数的定义是：
object.SetCooperativeLevel(hdlAsLong,flagsAsCONST_DDSCLFLAGS)
其中参数hdl指定程序的窗口句柄，参数flag决定程序运行的方式，函数调用
DDraw.SetCooperativeLevelMe.hWnd,DDSCL_NORMAL
将使程序运行于普通的协作层即窗口模式之下。在这种协作层你无法改变主平面调色板或进行页交换，因为程序可以使用多窗口。而函数调用
DDraw.SetCooperativeLevelMainForm.hWnd,DDSCL_EXCLUSIVEOr_
DDSCL_FULLSCREEN
将使程序运行于全屏幕模式之下。在全屏幕协作模式之下你可以完全使用硬件的一切。在这个模式之下，你可以设置使用定义及动态调色板，改变显示分辨率及进行页交换。->