[VB6] récupération de données d'un array
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:
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 |
