J'ai une erreur lors du rendu de mes éléments, voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
        '[------------------------------------]
        '   3. RENDER LAYERS
        '[------------------------------------]
 
        If bRenderLayer Then
            D3DDev.SetStreamSource(0, vbLayer, 0)
            Dim i As Long
            For i = 0 To iLayer - 1 Step 18
                D3DDev.SetStreamSource(0, vbLayer, 0)
                D3DDev.DrawPrimitives(PrimitiveType.TriangleStrip, i, 8)
                D3DDev.DrawPrimitives(PrimitiveType.TriangleStrip, i + 10, 2)
                D3DDev.DrawPrimitives(PrimitiveType.TriangleStrip, i + 14, 2)
            Next i
        End If
 
        '[------------------------------------]
        '   4. RENDER ELEMENTS
        '[------------------------------------]
        D3DDev.SetStreamSource(0, vbElem, 0)
        D3DDev.VertexFormat = CustomVertex.PositionColoredTextured.Format
        D3DDev.DrawPrimitives(PrimitiveType.LineList, 0, iElem / 2)
L'erreur est située lors de
Code : Sélectionner tout - Visualiser dans une fenêtre à part
D3DDev.DrawPrimitives(PrimitiveType.TriangleStrip, i, 8)
et ça me dit Error in the application.

Pourtant, si je ne fait qu'inverser la partie RENDER LAYERS avec la partie RENDER ELEMENTS, je n'ai plus d'erreur et ça fonctionne... Je pourrais bien le changer de place, mais j'aimerais comprendre pourquoi ça fonctionne pas.

Merci
[/code]