Creation dynamique d'objets

Bonjour,
je suis entrain de realiser un petit raytracer et je me trouve en face d'un petit problème lors du chargement de la scène.
j'ai un fichier .ini qui contient les infos concernant la lumière, la caméra et surtout les différents objets qui se trouvent sur la scène.
j'aimerais que mon prog crée dynamiquement mes objets (sans savoir combien ils seront et de quels types).
je précise: j'aurai par exemple dans mon ini la description d'un cube , un plan, deux triangles et un sphère.
j'aimerais pouvoir créer un objet de chaque dans mon programme.
je ne veut que créer des objets dont les classes sont définies à l'avance.
j'ai pensé à un truc du genre:

for i=1 to nombredobjets
    if type=sphère then
       dim objet(i) as sphere
    elseif type=cube then
       dim objet(i) as cube
    elseif  ...
    end if
next

une fois ces ojets crées je n'aurai pas de blème pour les exploiter, mais c'est la création qui plante, il me dit qu'il attend une constante.
je suis sous vb 6.
quelque un aurait il une petite idée?

merci d'avance

amicalement
miro

    Heeeeeee, tout dabort je tien à dire que je n'ai pas VB6 sous la main.
    Mais il me semble possible de crée des tableaux de taille dynamique avec des types de données personalisés (ce qui n'est pas possible en VBA). Donc si tu crée un type 'objet' (ou même un type 'cube', une type 'plan', ...). Prenons le cas d'un type de donnée identique pour tout les objets (type 'objet') dans le quel tu stoque le type d'obj, sa possition, ... Si tu à ce tableau tu peut re redimentioner avec des exprésion du type "redim <NomTableau> ('Mini' to 'Maxi')" (généralement le mini est '0' mais il est possible de mettre une autre valeur '159' par exemple). ATTENTION le 'redim' tout seul change la taille du tableau ET SUPPRIME LES DONNEES CONTENUE. Il faut donc ajouter dans la commande le mot reserver 'Preserve'. La commande au complet est donc "ReDim Preserve <NomTableau>('Mini' to 'Maxi')".
Il me semble qu'il est possible de crée des variable dynamiquement autrement en VB6 mais je ne sais plus command
    La déclaration d'un tableau dynamisue est "Dim <NomTableau> () as <TypeObjet>" Dans le cas d'un type 'objet' mais il n'est pas utilisable de suite il faut pour cela déja lui définir une plage (Exemple d'un bout de code :)

Public Objet() as ObjetType

Private Sub CréeObj ()
    Redim Objet(0 to 0)
    Objet(0).Type = "Plan"
    Objet(0)...
    Do While Compteur < NombreObjet
       Compteur = Compteur + 1
       Redim Preserve Objet (0 to Compteur)
       ...
    Loop
End Sub

Pour crée un type de donée (Exemple) :

Public Type Personne
    Nom As String
    Prénom As String
    NumSQ As String
    Adrs As String
    ...
End Type

Bon avec ça tu dois pouvoir t'en sortir.

Bon courage
D'oh! Nuts!
Mmmmm...
 DONUTS

Salut,

Est ce que c'est cette boucle qui est dans le programme?

Si j'ai bien compris:

Tu as un seul tableau "objet" pouvant contenir soit une sphere soit un cube.

Petit rappel:

 - Dim c'est pour la déclaration, Si tu veux l'affectation utilise Set.
- Je crois que la déclaration selon conditions n'est pas faisable.
- Tu ne peux pas utiliser type comme nom de variable remplace le par type_ par exemple.


@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée

Heee, jrivetc'est à moi ou à mi12ox que tu t'adresse?
Temps que j'y pense il est plus simple de crée deux variable en long suplémentaire par tableau pour stoquer le numéro de la permierre et dernierre 'case' de ton tableau dynamique (même si tu peut les retrouver avee "Ubound (<NomTableau>)" et "LBound (<NomTableau>)" qui renvoie respectivement le dérnierre case et la premierre case du tableau passée en argument.)

D'oh! Nuts!
Mmmmm...
 DONUTS

SAlut,

C'était a mi12ox (ton post est arrive le temps de ma réponse)

@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée

Salut,

Tu as tout à fait raison.

Rien à redire à ton dernier post. si ce n'est que tu peux utiliser aussi le TypeName(Objet(i))
@+, Julien
Pensez: Moteur de Recherche, Réponse Acceptée