Discussion :

[maan]

bonjour,

j'ai créé des textbox dynamiquement,
mais quand je supprime le dernier , et je crée un autre je trouve que l'index continue dans l'ordre precedent
example:
le dernier a l'index 9
je le supprime par champ.dispose
je crée un autre que je suppose qu'il aura l'index 9 de nouveau, mais je trouve qu'il a l'index 10
mon code:

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
50
Public Class Form1
    Dim i As Integer
 
    Dim macollection As New Collection
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim champ As New TextBox
 
        i = i + 1
 
        champ.Name = "tot" & Str(i)
        Me.Controls.Add(champ)
        macollection.Add(champ)
 
        champ.Top = 30 * i
        champ.Left = 100
        champ.Width = 400
        champ.Height = 20
 
        macollection(i).Text = "voila je suis numero" & Str(i) & Chr(32) & macollection(i).Left & Chr(32) & macollection(i).Top
        AddHandler champ.KeyPress, AddressOf changerletexte
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim l As Integer
        For l = 1 To macollection.Count
            If l = macollection.Count Then
                macollection(l).dispose()
                MsgBox(l)
'issi je trouve que l = i! 
'meme après la suppression du dernier champ!
'pour quoi il y a un champ dans l'index qui reste vide?
'comment je peux supprimer le dernier champ de l'index à chaque fois en cliquant sur ce bouton?
            End If
        Next
 
    End Sub
 
    Private Sub changerletexte(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        Dim k As Integer
 
        For k = 1 To macollection.Count
            If macollection(k).name = sender.name Then
msgbox(macollection(k).text)
            End If
        Next
 
    End Sub
 
End Class

est ce qu'il y a une methode pour garder la contiguité des textbox créés namport quelle que soit l'index supprimé?
je vous remercie en avance

[Flamby38]

Ce serait pas mal de mettre des balises CODE pour ton code ^^

Sinon ben il faut que tu enleves l'élément de ta collection, il doit y avoir une fonction remove ou delete pour la collection.

[hunteshiva]

*idem je lit mm pas ton code ....*

Code :

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

1
2
 ' On efface la boite
        Me.Controls.Remove(pictBoite(NumTypeCouche, NumBoite))

je crée des pictureBox dynamiquement,
et je les effacées a l'aide de ce code

Bonne continuation

[Pol63]

Code :

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

1
2
 ' On efface la boite
        Me.Controls.Remove(pictBoite(NumTypeCouche, NumBoite))

je crée des pictureBox dynamiquement,
et je les effacées a l'aide de ce code

ce code n'est pas super top
un control est non managé il est donc nécessaire d'appeler Dispose pour qu'il libère la mémoire
appeler Dispose sur un control fait aussi qu'il se détache automatiquement de son parent (et donc n'apparait plus dans Me.Controls)

(le cas du posteur est différent, c'est une collection à lui, donc il doit faire remove manuellement après Dispose)

[hunteshiva]

??
je suis amateur en vb

tu veut dire que quand je fait juste remove, sa le supprime mais pas de la mémoire ?

[Pol63]

??
je suis amateur en vb

tu veut dire que quand je fait juste remove, sa le supprime mais pas de la mémoire ?

c'est ce que je dis oui, ca le supprime visuellement seulement

enfin ca sera supprimé de la mémoire (grace au garbage collector) mais seulement quand l'OS arrivera à saturation
Dispose sur les éléments Disposable permet une libération immédiate de la mémoire non managée

[Pol63]

les collections ne vont pas de 1 à count mais de 0 à count-1

et il faut en effet remover de la collection après dispose

et tu boucles pour rien, tu boucles et arrivé au dernier tu fais .dispose
autant disposer le dernier élément directement sans boucler

Code :

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

macollection(macollection.count -1).dispose

[maan]

les collections ne vont pas de 1 à count mais de 0 à count-1

et il faut en effet remover de la collection après dispose

et tu boucles pour rien, tu boucles et arrivé au dernier tu fais .dispose
autant disposer le dernier élément directement sans boucler

Code :

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

macollection(macollection.count -1).dispose

bon soire Pol63,

toujour je n'arrive pas à supprimer le dernier textbox chaque fois où je clique sur le bouton!
voici mon code

Code :

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

1
2
3
4
 
macollection(macollection.Count - 1).dispose()
        macollection.Remove(macollection.Count - 1)
        MsgBox(macollection.Count)

merci bien

[Pol63]

macollection.Count - 1 est un nombre, ton code essaye donc de supprimé le nombre de la collection, collection qui ne contient surement pas de nombres ...
donc soit lui dire de remover le numéro tant

Code :

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

1
2
3
macollection(macollection.Count - 1).dispose()
macollection.RemoveAt(macollection.Count - 1)
MsgBox(macollection.Count)

soit lui dire de remover le textbox

Code :

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

1
2
3
macollection(macollection.Count - 1).dispose()
macollection.Remove(macollection(macollection.Count - 1))
MsgBox(macollection.Count)

[maan]

macollection.Count - 1 est un nombre, ton code essaye donc de supprimé le nombre de la collection, collection qui ne contient surement pas de nombres ...
donc soit lui dire de remover le numéro tant

Code :

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

1
2
3
macollection(macollection.Count - 1).dispose()
macollection.RemoveAt(macollection.Count - 1)
MsgBox(macollection.Count)

soit lui dire de remover le textbox

Code :

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

1
2
3
macollection(macollection.Count - 1).dispose()
macollection.Remove(macollection(macollection.Count - 1))
MsgBox(macollection.Count)

dans les deux cas, ca genere un erreur!
et dans le premier cas

Code :

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

RemoveAt

il genere une erreur disant que

RemoveAt n'est pas un membre de la collection

[garciajulien]

Dispose ne supprime pas ta textbox, il desalloue la memoire occupee, si tu veux la supprimer tu fais:

Code :

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

maCollection.removeAt(i)

Ju