J’utilise bel et bien la version 17 de WinDev.
La ligne qui pose problème est :
C3D1>>ClearScene
C3D1 est le champ ActiveX de la fenêtre “Fenêtre2”.
Si je mets cette ligne en commentaire, une erreur se produit sur la prochaine ligne de code.
J’ai remarqué que cette erreur intervait lorsqu’il est écrit “Aucun” dans la liste ActiveX qui se trouve en faisant clic droit sur le champ ActiveX -> Description -> général.
Mais dans ce cas, que faut-il mettre ?
Le code d’initialisation de la fenêtre est :
LOCAL
occ est un entier sur 2 octets=0
cpr, cpg, cpb sont des réels
s,x,y sont des réels
nom est une chaîne
C3D1>>ClearScene
//C3D1>>BackColor=0
C3D1>>Picture = "intro.bmp"
POUR occ = 1 A 80
cpr=0.0
cpg=0.0
cpb=0.0
C3D1>>GetColorDescriptor(occ, nom, cpr, cpg, cpb)
s=C3D1>>InsertCube(nom, 10, 10, 10, occ)
x = x + 1
SI x = 11 ALORS
y = y + 1
x = 1
FIN
C3D1>>Solids(s)>>Translate(0, (x * 13), (y * 13))
FIN
C3D1>>setlight(0, 0, -10)
C3D1>>setcamera(0, 0, -70)
C3D1>>setview(800)
C3D1>>RotateScene(0, 178, 25)
C3D1>>RenderMode = 1
C3D1>>DrawScene
C3D1>>SaveToFile("cube.dat")
ActiveXEvénement("ObjectClick",C3D1,"ObjectClick")
ActiveXEvénement("MouseDown",C3D1,"MouseDown")