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.

[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

[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]

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

[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

[maan]

bon soir tous le monde,

je vous remercie vous tous pour vos réponse.

concernant la balise code,
excusez moi.
je n'ai pas fait l'attention
cordialement

Maan

[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

[Pol63]

Code :

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

Dim macollection As New Collection

=>

Code :

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

Dim macollection As New system.collections.generic.list(of textbox)

et le RemoveAt devrait être dispo




et si tu comptes atteindre un bon niveau, il faut prendre le temps de lire des cours/tutos comme celui ci http://plasserre.developpez.com/cours/vb-net/
et aussi paramétrer VB comme il faut pour qu'il t'empêche d'écrire des conneries/bugs (option strict on entre autres)

[maan]

voici mon code finale
j'ajoute un textbox et je peux le supprimer, et chaque fois je clique sur le bouton de suppression je supprime le dernier textbox.
si je reajoute un textbox va avoir l'index du dernier textbox supprimé
mais j'ai partis de

Code :

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

macollection.count

car la faite de metre - 1
supprime le textbox qui est avant le dernier!
je vous remercie tous pour votre aide
et merci bien Pol63.

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
 
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
        Me.BackColor = Color.Black
        Dim champ As New TextBox
 
        i = macollection.Count + 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 lolo
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
 
 
        If macollection.Count <> 0 Then
            macollection(macollection.Count).dispose()
            macollection.Remove(macollection.Count)
            MsgBox(macollection.Count)
        End If
 
    End Sub
 
    Private Sub lolo(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
                Select Case Asc(e.KeyChar)
                    Case AscW(ControlChars.Cr) 'Enter key
                        e.Handled = True
 
                    Case AscW(ControlChars.Back) 'Backspace
 
                    Case 45, 46, 48 To 57 'Negative sign, Decimal and Numbers
 
                    Case Else ' Everything else
                        e.Handled = True
                End Select
 
 
 
 
            End If
        Next
 
    End Sub
 
 
 
    Private Sub Button1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button1.KeyPress
 
    End Sub
 
    Private Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
 
    End Sub
End Class

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
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 = macollection.Count + 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
 
 
        If macollection.Count <> 0 Then
            macollection(macollection.Count).dispose()
            macollection.Remove(macollection.Count)
            MsgBox(macollection.Count)
        End If
 
    End Sub
End Class

[maan]

Code :

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

Dim macollection As New Collection

=>

Code :

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

Dim macollection As New system.collections.generic.list(of textbox)

et le RemoveAt devrait être dispo




et si tu comptes atteindre un bon niveau, il faut prendre le temps de lire des cours/tutos comme celui ci http://plasserre.developpez.com/cours/vb-net/
et aussi paramétrer VB comme il faut pour qu'il t'empêche d'écrire des conneries/bugs (option strict on entre autres)

merci bien pour ce cours, vraiment est un cours bien détaillé, grand merci à son auteur.
concernant le parametrage de l'environnement, je ne sais pas comment faire, si tu peux un peux expliquer?
cordialement

[Pol63]

dans les propriétés du projet tu peux définir le comportement du compilateur
tu peux aussi le définir dans outils/options et les paramètres seront alors pris à chaque nouveau projet

option strict on interdit par exemple des conversions implicites comme tu en fais un peu partout
genre
macollection(i).Text
nulle part tu as écrit dans ton code que macollection contient des textbox, elle pourrait donc contenir des carottes
et unecarotte.Text n'existe pas donc le compilateur ne te laisserait pas écrire macollection(i).Text (et il faudrait pas une conversion ou un cast explicite)
d'ailleurs je ne pense pas que l'autocomplétion te propose .Text

ca peut paraitre chiant de pas pouvoir écrire ce qu'on veut, mais ca évite les bugs quand le code commence à être conséquent
parce que tous les développeurs font des bugs, c'est normal, mais avoir des barrières de protection permet d'en faire moins

[maan]

dans les propriétés du projet tu peux définir le comportement du compilateur
tu peux aussi le définir dans outils/options et les paramètres seront alors pris à chaque nouveau projet

option strict on interdit par exemple des conversions implicites comme tu en fais un peu partout
genre
macollection(i).Text
nulle part tu as écrit dans ton code que macollection contient des textbox, elle pourrait donc contenir des carottes
et unecarotte.Text n'existe pas donc le compilateur ne te laisserait pas écrire macollection(i).Text (et il faudrait pas une conversion ou un cast explicite)
d'ailleurs je ne pense pas que l'autocomplétion te propose .Text

ca peut paraitre chiant de pas pouvoir écrire ce qu'on veut, mais ca évite les bugs quand le code commence à être conséquent
parce que tous les développeurs font des bugs, c'est normal, mais avoir des barrières de protection permet d'en faire moins

je te remercie bien pour ton aide sérieuse.