1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
|
objPresentParams = New PresentParameters
objPresentParams.Windowed = True
objPresentParams.SwapEffect = SwapEffect.Discard
objPresentParams.EnableAutoDepthStencil = True
objPresentParams.AutoDepthStencilFormat = DepthFormat.D16
Try
objDevice = New Direct3D.Device(0, Direct3D.DeviceType.Hardware, ecran, CreateFlags.SoftwareVertexProcessing, objPresentParams)
objDevice.RenderState.ZBufferEnable = True
objDevice.RenderState.ZBufferWriteEnable = True
Catch ex As Exception
MsgBox(ex.Message)
End try |
Partager