Discussion :

[winflow]

Bonjour,

J'ai les structure suivantes :

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
Type dataTab_sup
    id As String
    name As String
    localisation As String
    type_sup As String
    ipAddr As String
    numLicense As String
    memPhi As String
    dateAcqui As String
    dd As String
    os As String
    resEcran As String
    printer As String
End Type
Type local_sup
    id As Integer
    name As String
    dataTab_s() As dataTab_sup
End Type
Type batiment_sup
    id As Integer
    name As String
    local_s() As local_sup
End Type

A la suite je déclare la variable suivante :

Code :

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

Public tab_bat_sup() As batiment_sup

J'ai un formulaire que je vous joins

Dans ce formulaire j'ai le code suivant :

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
Option Explicit
Public indice_bat As Integer
 
 
'Initialisation du formulaire
Private Sub UserForm_Initialize()
    Dim cmp As Integer
    On Error GoTo fin:
    If UBound(tab_bat_sup) <> -1 Then
        'Ajout dans la liste déroulante modifiable tous les batiments déjà créés
        For cmp = 0 To UBound(tab_bat_sup)
            bat_sup.AddItem tab_bat_sup(cmp).name, cmp
        Next cmp
    End If
fin:
End Sub
Private Sub Suivant_bat_sup_Click()
    Unload Me
    Loc_form_sup.Show
End Sub
 
Private Sub Ajouter_bat_sup_Click()
    'Variable statique qui permet de savoir le numero du batiment que l'on souhaite ajouter
    Static i As Integer
    'Variable statique initialisée à 0
    ReDim Preserve tab_bat_sup(i)
    tab_bat_sup(i).id = i
    tab_bat_sup(i).name = CStr(bat_sup.Value)
    indice_bat = i
    'Incrémentation du compteur
    i = i + 1
End Sub

Le but de ce code est d'enregistrer les informations saisies dans la structure et d'ajouter les noms de bâtiments dans la liste modifiable.

Seulement voila ma variable i ne s'incrémente pas ! Impossible de redimensionner le tableau ! Impossible d'affecter la valeur saisie dans la liste !

Une variable statique est censée garder sa valeur à chaque appel de fonction cela ne veut pas dire que l'on ne peut pas y toucher --'. J'ai vu des exemples sur le forum qui me le prouve !


Merci d'avance

Cordialement

Winflow

[Uranne-jimmy]

Bonjour,
D'abord, je pense qu'il faut bien spécifier que i=0 à la déclaration, on sait jamais.
Ensuite, pour tes tableaux de structure, tu le redimensionnes à chaque ajout, une liste serait a mon avis plus intéressante qu'un tableau pour ranger tes bâtiments.

Maintenant je n'ai pas vraiment trop touché aux variables statiques, donc sur ce point, je ne trouve pas le problème ^^'.

[winflow]

Selon la définition d'une variable static elle est initialisée à 0 à la déclaration.

Comment je pourrait faire avec une liste dans ce cas ? On peut la redimensionner également ?
Je trouvais l'idée du tableau bonne mais bon ça fonctionne pas alors autant essayé autre chose.

[Uranne-jimmy]

Sur msdn dans l'exemple, il met bien i=0 : http://msdn.microsoft.com/fr-fr/libr...(v=vs.90).aspx Et on perds rien à tenter le coup.

Une liste n'a pas de taille prédéfini, tu ajoutes un élément à la liste et il se met à la fin, au dernier index, qu'on récupère par : maliste.count.
Ça s'initialise ainsi : dim maliste as new list(of mastructure)
Pour rajouter un élément : maliste.add(monobjet)
Pour obtenir le dernier élément (j'en suis un poil moins sûr) : maliste(maliste.count-1)
Bref : http://msdn.microsoft.com/fr-fr/libr...v=vs.110).aspx

[chaparo]

Les redim Preserve sont des gouffres à performance.
Pour les List je te conseil de suivre le cours de Mr Plasserre disponible sur ce site.

Edit : vu que Uranne m'a devancé sur les listes, pour le dernier éléments tu peux aussi faire maliste.last.

[winflow]

Par liste vous entendez listbox ? Parce que

Code :

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

dim maliste as new list(of mastructure)

ne fonctionne pas...

[chrismonoye]

Bonjour,
n’êtes vous pas en VB6 ?

[winflow]

Bonjour,

Je suis en visual basic 6.3

[Uranne-jimmy]

Si, c'est en effet du VB6, le mot clé Type est remplacé par la structure en vb.net, mais là du coup on sort de mon domaine de compétence.

Edit : faut aller voir les collections.

[chaparo]

Il est préférable d'utiliser des classes plutot que des structures ce qui reviens au meme pour ton application.

Code :

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

1
2
3
4
5
dim maliste as new List(of MaClasse)
maliste.add(New maclasse())
'or
dim item as new MaClasse()
maliste.add(item)

Et la tu auras un élément dans ta liste.
Si c'est pas de ca que tu parles il faudra etre un peu plus précis ^^

[winflow]

Je n'ai pas le mot clé List ...

[chrismonoye]

Ici c'est VB.Net
Il serait préférable de poster sur le bon forum.
C'est ici sauf erreur

[winflow]

Autant pour moi...

Désolé de vous avoir fait perdre votre temps ...

[_Ez3kiel]

Selon ton formulaire joint(Bat_form_sup.frm), tu as une variable globale i, selon ton code posté ici, une variable static i. Peut-être une piste ...

Mais comme tu l'as dit, une variable static peut-être modifiée bien sûr (c'est presque son utilité première), donc le souci est ailleurs

Code :

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

1
2
3
4
5
6
7
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Static toto As Integer
 
        toto += 1
 
        MsgBox(toto) '/1 /2 /3 /4 ...
    End Sub