Génération automatique de paramètre

Bonjour,

Je suis débutant en codage VB, mais ma question est d'ordre général je pense :

Est-ce qu'il est possible de créer un code permettant de générant automatiquement des nouveaux paramètres internes au code (et ensuite de les renommer avec un incrément), pour les utiliser par la suite ?

Le problème étant que je ne connais pas à l'avance le nombre de paramètres dont je vais avoir besoin.

Merci pour votre réponse

5 réponses

  1. Contributeur
    Bonjour,
    Huuummm plus claire que ça tu meure :DD
    Essaye d'expliquer un peu mieux Stp, avec un exemple concret si possible.
    A+
    1. J'ai besoin d'un nombre inconnu de paramètre dans un code, dans l'idéal il faudrait que je puisse avoir une boucle du type :

      For i=1 to n

      param.i = "création param"

      Next

      si n vaut 3 j'obtiendrai

      param.1
      param.2
      param.3
      1. Contributeur
        Tes paramètres y ressemble à quoi ?
        mais une piste..
        Sub Essais()
        Dim n As Integer, i As Integer
        Dim Param()
            'pour le test
            n = 3
            ReDim Param(n)
            For i = 1 To n
                Param(i) = "Param " & i
            Next i
        End Sub

        Difficile de faire mieux sans renseignement concret.
        A+

        1. Puisque tu insistes je vais te mettre un morceau de code :

          Sub CATMain()

          [...]

          'Dim reference1 As Reference
          Set reference1 = part1.CreateReferenceFromObject(hybridShapePlaneOffset1)

          'Dim hybridShapeIntersection1 As HybridShapeIntersection
          Set hybridShapeIntersection1 = hybridShapes1.Item("Intersection.25")

          'Dim reference2 As Reference
          Set reference2 = part1.CreateReferenceFromObject(hybridShapeIntersection1)

          hybridShapeSpline1.AddPointWithConstraintExplicit reference2, Nothing, -1#, 1, Nothing, 0#

          'Dim hybridShapeIntersection2 As HybridShapeIntersection
          Set hybridShapeIntersection2 = hybridShapes1.Item("Intersection.26")

          'Dim reference3 As Reference
          Set reference3 = part1.CreateReferenceFromObject(hybridShapeIntersection2)

          hybridShapeSpline1.AddPointWithConstraintExplicit reference3, Nothing, -1#, 1, Nothing, 0#

          'Dim hybridShapeIntersection3 As HybridShapeIntersection
          Set hybridShapeIntersection3 = hybridShapes1.Item("Intersection.27")

          hybridShapeSpline1.AddPointWithConstraintExplicit reference3, Nothing, -1#, 1, Nothing, 0#

          body1.InsertHybridShape hybridShapeSpline1

          part1.InWorkObject = hybridShapeSpline1

          part1.Update

          End Sub

          Je travaille sous CATIA, une fonction sert à créer une droite en reliant des points. Chaque point semble être stocké dans la variable "reference1", 2 ,3. je souhaite automatiser la sélection des points, leur nombre total est n. Je ne sais donc pas à l'avance combien créer de paramètre "référence" ...
          1. Contributeur
            Je te rappel que tu est dans le forum VB?
            Je comprend rien à ton code.
            Je laisse la place
            A+
            PS: ton titre aurait dû être plus clair.