Alors je suis all�e explorer la possibilit�, qu'a signal�e Andrew Pitonyak, de cr�er des types de variables personnelles :
Type FormeType As Type
LaForme As Object
sensderotation As Boolean
PointInflexion1 As com.sun.star.awt.Point
etc
End Type
Dim ToutSurLaForme2 As FormeType
C'est un vrai plaisir � manipuler : Point1DeForme2 = ToutSurLaForme2.PointInflexion3
Bref, �a n'a pas les inconv�nients des tableaux.
Mais, il y a toujours un mais, �a n'en a pas les avantages non plus : pas d'indexation.
Il me fallait donc d�clarer un ToutSurLaFormex par Forme cr��e.
D'o� ma question.
Oui, quelques manipulations m'ont confirm� que ces "structures" sont tr�s limit�es en comparaison avec les structures des autres langages.
Mais pour ton probl�me, tu peux �viter les tableaux de tableaux. Je pense qu'il est plus simple de cr�er un tableau par sous-donn�e � m�moriser, exemple :
Option Explicit
Public Const maxFormes = 50 Public laForme(maxFormes) As Object Public sensRotationHoraire(maxFormes) As Boolean Public PointInflexion1(maxFormes) As new com.sun.star.awt.Point
Sub Main dim inflex As new com.sun.star.awt.Point ' pour la forme de rang 17 sensRotationHoraire(17) = true inflex.X = 2503 inflex.Y = 3456 PointInflexion1(17) = inflex ' pour la forme de rang 22 sensRotationHoraire(22) = false inflex.X = 1234 inflex.Y = 4321 PointInflexion1(22) = inflex ' v�rifier le remplissage xray.xray PointInflexion1(17) xray.xray PointInflexion1(22) xray.xray PointInflexion1(16) End Sub
Tu peux bien s�r d�finir des sous-programmes pour simplifier des manipulations r�p�titives : il suffit de transmettre le rang de la forme.
Bonne journ�e Bernard
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
