|
|

楼主 |
发表于 2006-7-26 14:41:00
|
显示全部楼层
Re:贴图怎么变成这样了啊,哪设置错误了?
这个已经解决了被他覆盖掉的问题了
Private Sub mloop()
Dim TriStrip(3) As TLVERTEX
TriStrip(0) = CreateTLVertex(10, 10, RGB(222, 255, 255), 0, 0) 'vertex 1
TriStrip(1) = CreateTLVertex(138, 10, RGB(255, 255, 255), 1, 0) 'vertex 2
TriStrip(2) = CreateTLVertex(10, 202, RGB(255, 255, 255), 0, 1) 'vertex 3
TriStrip(3) = CreateTLVertex(138, 202, RGB(255, 255, 255), 1, 1)
Do
DoEvents
PaintScreen xgCYAN
D3DDevice.SetTexture 0, bb.Texture
InitDX.RenderBegin
D3DDevice.DrawPrimitiveUP D3DPT_TRIANGLESTRIP, 2, TriStrip(0), Len(TriStrip(0))
InitDX.RenderEnd
Loop
End Sub
但是D3DDevice.SetRenderState D3DRS_ALPHABLENDENABLE, True
这样就显示不了。
|
|