VB6.0使用DIRECTX8_3d编程资料.docVIP

你是否曾惊叹VB的简单易用与开发的速度之快？你是否对编写二维的游戏早已感到厌倦和无聊？你是否想有朝一日自己也能写出魔兽、CS、起义、古墓丽影……之类的3D游戏？你是否想过利用D3D甚至可以把你去过的旅游景点或你的家这些场景在电脑中构造出来，然后加入自己的创意、故事和情节搞点什么东西？你是否想过利用D3D可以构造你的岛屿、你的天堂，把你在现实世界中无法实现的梦想在虚拟世界中实现，或者预先把你的梦想可视化以便更快速地实现它？那么还犹豫什么？！让我们开始一趟激动人心的D3D学习之旅吧！? ? 首先选择一下各个工具的版本。VB我选择VB6，一是它速度比较快，二是我对它比较熟悉。然后由于VB6只含有DX7和DX8的函数库，因此对于DX版本的选择嘛，我就选用它所支持的最高版本DX8啦。常用的3D建模软件有3ds max和Maya，我个人觉得Maya的性能较好，而Maya导出X文件的插件能用于D3D中的最高版本是Maya 6（Maya 7虽然导出的X文件能在mesh viewer里查看，但是导入DD后不正常），因此我选用Maya 6.? ? 学习D3D，在软件方面需要一些类的知识，在数学方面需要一些向量代数、空间解析几何、矩阵的知识；对缺乏这些知识的初学者来说学习起来可能比较困难，如果实在看不懂，建议还是自己先补一下基础知识吧。不过请千万别灰心，想一想，能够随自己的意愿来设计3D游戏是多么激动人心的事情啊！请用这个目标来激励自己吧！? ? 下面让我们通过一个最简单的D3D的程序来开始讲解一些基本的DX和D3D概念：请大家首先动手完成以下步骤：1. 新建一个标准的exe工程；2. 在窗体上放一个Timer控件，设置Enabled=False，Interval=200；3. 选择菜单“工程(Project) - 引用(Reference)”，然后找到“DirectX 8 for Visual Basic Type Library”打勾，确定；4. 在窗体内输入如下代码： Option Explicit Private MyDirectX8? ?? ???As New DirectX8 Private MyDirect3D8? ?? ? As Direct3D8 Private MyDirect3DDevice8 As Direct3DDevice8 Private Sub Form_Load() ??Dim DispMode As D3DDISPLAYMODE ??Dim d3dpp? ? As D3DPRESENT_PARAMETERS ??Set MyDirect3D8 = MyDirectX8.Direct3DCreate ??MyDirect3D8.GetAdapterDisplayMode D3DADAPTER_DEFAULT, DispMode ??With d3dpp ? ? .Windowed = 1 ? ? .SwapEffect = D3DSWAPEFFECT_COPY_VSYNC ? ? .BackBufferFormat = DispMode.Format ??End With ??Set MyDirect3DDevice8 = MyDirect3D8.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, Me.hWnd, D3DCREATE_SOFTWARE_VERTEXPROCESSING, d3dpp) ??Timer1.Enabled = True End Sub Private Sub Timer1_Timer() ??Const WORLD_COLOR As Long = HFF00 ?? ??With MyDirect3DDevice8 ? ? .Clear 0, ByVal 0, D3DCLEAR_TARGET, WORLD_COLOR, 1#, 0 ? ? .BeginScene ? ? .EndScene ? ? .Present ByVal 0, ByVal 0, 0, ByVal 0 ??End With End Sub 运行。如果看见一个绿色的窗体的话，那么恭喜你，你已经编写了一个真正的D3D程序！? ? 这个程序很简单，但它的确是一个完整的D3D程序。? ? 下面来分析程序：? ? 先看模块的声明部分，声明了三个模块级变量，为了在以后的程序中能够一眼看出变量类型，我的命名采用“My+变量类型”的原则。第一个变量在声明类型的同时还创建了一个DirectX8对象（由New关键字可见），而后两个变量仅仅是声明类型而已，并没有新的对象被创建。到了Form_Load事件里的这一句：??Set MyDirect3D8 =