le programme me retourne une erreur : il n'arrive pas à communiquer avec la carte 3D je crois. Quand je met D3DDEVTYPE_REF au lieu de D3DDEVTYPE_HAL pour lancer l'émulation logiciel, ça marchye, mais étant donner qu'il ne passe plus par la carte 3D, tout est très très lent !
Dc apprement c'est un pbm de liaison entre DX8 et la carte 3D. Ja'i donc réinstallé à la fois mon pilote de carte 3D, et le SDK directX8, mais rien y fait.
Si qqn avait une solution, merci d'avance, Scalpweb
Dim DX As New DirectX8
Dim D3D As Direct3D8
Dim D3DDevice As Direct3DDevice8
Dim d3dX As New D3DX8
Function InitD3D(hWnd As Long) As Boolean
On Local Error Resume Next
Set D3D = DX.Direct3DCreate()
If D3D Is Nothing Then Exit Function
Dim mode As D3DDISPLAYMODE
D3D.GetAdapterDisplayMode D3DADAPTER_DEFAULT, mode
Dim d3dpp As D3DPRESENT_PARAMETERS
d3dpp.Windowed = 1
d3dpp.SwapEffect = D3DSWAPEFFECT_COPY_VSYNC
d3dpp.BackBufferFormat = mode.Format
Set D3DDevice = D3D.CreateDevice(D3DADAPTER_DEFAULT, D3DDEVTYPE_HAL, hWnd, _
D3DCREATE_SOFTWARE_VERTEXPROCESSING, d3dpp)
If D3DDevice Is Nothing Then Exit Function
D3DDevice.SetRenderState D3DRS_LIGHTING, False
InitD3D = True
End Function
'voila je pense qu'avec ça tu va pouvoir te mettre au travail lol