我想用VB和3DSMAX做一个简单的3D游戏。我该怎么做?
“作为TVEngine的私人电视”声明TV3D引擎对象。
“Private Scene As TVScene”声明了场景TVScene对象。
“Private Mesh As TVMesh”声明网格TVMesh对象。
Private InputE As TVInputEngine '声明输入(键盘、鼠标)对象。
私有子窗体_Load()
“Set TV = New TVEngine”将电视对象定义为TVEngine类的实例。
电视。init 3D windowedmode form 1 . hwnd '调用TV3D的一个函数Init3DWindowedMode来初始化3D窗口。参数是当前窗口的句柄。
“Set InputE = New TVInputEngine”将输入对象定义为TVInputEngine类的一个实例。
“Set Scene = New TVScene”将场景对象定义为TVScene的实例。
设置网格=场景。“createmeshbuilder”将网格对象定义为TVMesh的一个实例,该实例由scene的CreateMeshBuilder方法生成。
scene . setscenebackground 1,0,0 '设置背景颜色。
网状。“创建茶壶”来构建茶壶模型。
网孔越小。SetPosition 0,0,10 'Z,图像越大。
表单1。显示
‘do’开始进入游戏循环。
Doevens '使用Doevens函数来释放窗口用于其他事情。
电视。清除缓冲区的内容。
网状。“渲染”渲染网格(3D对象)
电视。“RenderToScreen”将缓冲区的内容呈现到屏幕上。
循环直到输入。iskey pressed (TV _ key _ escape)'直到用户按下Esc,游戏停止运行。
设置网格=无
设置场景=无
' Set InputE = Nothing '释放输入对象占用的内存空间。
“Set TV = Nothing”释放电视对象占用的存储空间。
“结束”程序结束
末端接头