Discussion :

[jean_jean]

Bonsoir,

Je suis en train de programmer une application de calcul de poutres

celles-ci sont constituées de noeuds et d'éléments dont il faut entrer les caractéristiques dans une feuille. Les cases sont créées dynamiquement, la feuille s'adapte avec un scroll sans aucun problème.

Seulement je ne sais pas comment récupérer les données entrées dans ces textbox pour les replacer dans une matrice .

Je ne pense pas que ce soit le code le plus économe ni le plus trivial, mais il fonctionne jusqu'à présent, mais peut-être que je dois changer d'approche pour plus de fonctionnalité...? Ou changer de code?

En vous remerciant de m'avoir lu!


NB: je n'ai pas rajouté le code du scroll pour éviter de surcharger le quote

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
 
Private sub form_load()
     Dim i As Integer
     Dim n As Integer
     Dim f As Integer
     Dim nb_noeuds As Integer
     Dim textbox_inertie As TextBox     
 
     Dim frame_element_form As Object
     Dim frame_noeud_form As Object
     Dim element As String
     Dim noeud As String
     Dim frame As String
 
nb_noeuds = 4
 
     n = nb_noeuds + 1
 
     For i = 1 To n - 1
 
 
    ' ### GESTION DE L'INTERFACE GRAPHIQUE DES ELEMENTS ###
 
     Set frame_element_form = Controls.Add("VB.Frame", "frame_element_" & i)
     With frame_element_form
        .Visible = True
        .Caption = "Élément " & i
        .Top = 100 + 1100 * (i)
        .Left = 500
        .Width = 10000
        .Height = 1000
     End With
 
     'ajout des textbox d'inertie de l'élément
     Set textbox_inertie = Controls.Add("vb.textbox", "textbox_inertie_" & i)
     Set textbox_inertie.Container = frame_element_form
     With textbox_inertie
        .Visible = True
        .Text = "0"
        .Top = 500
        .Left = 800
        .Width = 800
        .Height = 100
    End With
 
next i
end sub
'le code continue mais sa structure est semblable

[ProgElecT]

Salut

On a chacun ses petites habitudes, personnellement je préfère mettre un premier TextBox et lui donne l'index 0, par la suite, dynamiquement j'en crée par code autant que le besoin s'en fait sentir.
Pour la récupération des informations j’utilise le/les index pour distinguer chacun d'eux.

[jean_jean]

Salut

On a chacun ses petites habitudes, personnellement je préfère mettre un premier TextBox et lui donne l'index 0, par la suite, dynamiquement j'en crée par code autant que le besoin s'en fait sentir.
Pour la récupération des informations j’utilise le/les index pour distinguer chacun d'eux.

Salut!

J'ai essayé d'attribuer un .name aux éléments mais apparemment ce n'est pas possible, donc du coup j'ai essayer de rechercher via l'index comme tu le proposais mais je ne sais pas quel nom est utilisé pour les distinguer!

Bonne journée!

[iclic]

Bonjour,

Tu crées un Textbox.
Dans la propriété index, tu indiques 0 (donc tu as créé un groupe de contrôles nommé Text1 (0).

Dans ta procédure tu fais (ici un exemple)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
For i = 1 To 4
   'pour créer chaque contrôle
   Load Form1.Text1(i)
   Text1(i).Height = 200
   Text1(i).Top = Text1(i - 1).Top + 500
   ' Rend visible chaque  nouveau bouton.
   Text1(i).Visible = True
  Next

Et voir dans la MSDN: Index, propriété (groupe de contrôles)