渲染目标层

zh1110

Dim tex As Direct3DTexture8 '创建贴图主体
texDime = 512
Set tex = device.CreateTexture(texDime, texDime, 0, D3DUSAGE_RENDERTARGET, D3DFMT_R5G6B5, D3DPOOL_DEFAULT)
'创建渲染，模板表面，取得tex级别，这样对texSurf的改变就会反映到tex上

Dim texSurf As Direct3DSurface8
Dim stencilS As Direct3DSurface8

Set texSurf = tex.GetSurfaceLevel(0)
Set stencilS = device.CreateDepthStencilSurface(texDime, texDime, D3DFMT_D16, D3DMULTISAMPLE_NONE)
'取得dx默认的渲染，模板表面

Dim backBuffS As Direct3DSurface8 'superficie del backbuffer principale
Dim ZbuffS As Direct3DSurface8 'superficie del Zbuffer principale

Set backBuffS = device.GetRenderTarget
Set ZbuffS = device.GetDepthStencilSurface

'设置渲染目标表面

device.SetRenderTarget texSurf, stencilS, 0

......渲染飞机

'还原渲染目标表面

device.SetRenderTarget backBuffS, ZbuffS, 0

......渲染鸡蛋

完

　

白日幽灵

好！！！！！很感谢a