那个东西我加了呀! 而且我在屏幕上渲染两个图一个要加亮,一个不加亮(当然这是设想)
Private Sub Render2D()
M_Sprite.Draw2D(M_Pic1, New Point(0, 0), 0, New Point(400, 100), &HFFFFFFFF)
Dim numPasses As Integer, i As Integer
numPasses = effect.Begin(0)
For i = 0 To numPasses - 1
effect.BeginPass(i)
M_Sprite.Draw2D(M_Pic2, New Point(0, 0), 0, New Point(200, 100), &HFFFFFFFF)
effect.EndPass()
Next
effect.End()
End Sub