Créer un objet dont le nom est issu d'un String

Version imprimable

04/04/2010, 17h08
Claude_Azoulai

Créer un objet dont le nom est issu d'un String

Bonjour à tous

Pour remplir une feuille avec des vignettes, j'ai besoin de créer par code un nombre non connu au départ d'objets PicturesBox.
J'aimerai me servir d'un String que je modifierai à chaque fois et qui serai le nom de l'objet PictureBox que je créerai pour le placer sur la feuille.
Je n'ai pas trouvé comment créer un objet dont le nom est issu d'un String.
Quelqu'un peut-il me dire comment faire ou me proposer une autre solution ?
Merci de votre réponse

Claude Azoulai

Bonjour,
en gros tu fais comme dans cette discussion : http://www.developpez.net/forums/d90...-feuille-code/
et tu rajoutes la propriété .name à laquelle tu assignes ton string.
genre :

Code:

1
2
3
4
5
6
7
8
9
10
Dim Picture1 As New PictureBox
        With Picture1
            .Left = 10
            .Top = 10
            .Width = 100
            .Height = 100
            .Visible = True
            .Name = MonStringName
        End With
        Me.Controls.Add(Picture1)

04/04/2010, 19h46
Claude_Azoulai

Merci à Sankasssss
J'ai du mal m'expliquer. si je crée deux objets avec le mème nom d'objet, même avec deux propriétés .name différentes et que je les charge sur ma feuille, seule la dernière reste sur la feuille.
Normal puisque ils s'appellent tous les deux Picture1.
C'est justement le nom de l'objet à savoir Picture1, Picture2, Picture3 etc... que je veux créer par code sans être obligé de mettre une dizaine de lignes de code pour chaque PictureBox car il peut en avoir plusieur centaines sur une feuille.
J'espère avoir mieux présenté mon problème.

Claude Azoulai
04/04/2010, 20h45
Sankasssss

Un objet n'a pas vraiment de nom, le nom de ta variable qui contiendra l'objet, à savoir Picture1 dans notre cas, importe peu, tout ce que tu dois faire attention, c'est de bien changer la position de tes control , si tu les empiles, c'est normale que tu n'en voie qu'une ;)
Pour preuve, tu peux créer des control en faisant une boucle et en incrémentant les positions du control .
Chaque control étant créé dans une variable qui aura toujours le même nom mais qui contiendra a chaque tour une nouvelle instance d'objet, donc un nouveau control . Le control précédent ne disparait pas vu qu'il est ajouté à la collection de control de ta form...

Bonjour
Je te remercie de ne pas me laisser tomber.
C'est bien ce que j'ai essayé de faire avant mon dernier message.
Voici le code

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
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Picture1 As New PictureBox
        With Picture1
            .Left = 10
            .Top = 10
            .Width = 60
            .Height = 80
            .Visible = True
            .Name = "Pic1"
            .SizeMode = PictureBoxSizeMode.StretchImage
            .Image = Image.FromFile("C:\Toto.jpg")
        End With
        Me.Controls.Add(Picture1)
        With Picture1
            .Left = 100
            .Top = 10
            .Width = 60
            .Height = 80
            .Visible = True
            .Name = "Pic2"
            .SizeMode = PictureBoxSizeMode.StretchImage
            .Image = Image.FromFile("C:\Titi.jpg")
        End With
        Me.Controls.Add(Picture1)
    End Sub
End Class

J'ai bien changé la position du deuxème contrôle avant de l'ajouter à la collection, mais seul le deuxième contrôle est visible.
Si je sort de la routine avant le deuxième With, le premier contrôle est bien là.
Il manque peut-être quelque chose ?
Veux-tu bien y jeter un coup d'oeil s'il te plait ?
Merci de ta réponse

Claude Azoulai

apres avoir sauvegarder le 1er control dans ta colection tu dois recreer un nouvel objet avec

Code:

Picture1 = New PictureBox

aussi non tu modifies le 1er composant, tu lui changes ca place et son nom...

ce qui nous donne :

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
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Picture1 As New PictureBox
        With Picture1
            .Left = 10
            .Top = 10
            .Width = 60
            .Height = 80
            .Visible = True
            .Name = "Pic1"
            .SizeMode = PictureBoxSizeMode.StretchImage
            .Image = Image.FromFile("C:\Toto.jpg")
        End With
        Me.Controls.Add(Picture1)
        Picture1 = New PictureBox
        With Picture1
            .Left = 100
            .Top = 10
            .Width = 60
            .Height = 80
            .Visible = True
            .Name = "Pic2"
            .SizeMode = PictureBoxSizeMode.StretchImage
            .Image = Image.FromFile("C:\Titi.jpg")
        End With
        Me.Controls.Add(Picture1)
    End Sub
End Class

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
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Picture1 As New PictureBox
        With Picture1
            .Left = 10
            .Top = 10
            .Width = 60
            .Height = 80
            .Visible = True
            .Name = "Pic1"
            .SizeMode = PictureBoxSizeMode.StretchImage
            .Image = Image.FromFile("C:\Toto.jpg")
        End With
        Me.Controls.Add(Picture1)
        Dim Picture2 As New PictureBox
        With Picture2 
            .Left = 100
            .Top = 10
            .Width = 60
            .Height = 80
            .Visible = True
            .Name = "Pic2"
            .SizeMode = PictureBoxSizeMode.StretchImage
            .Image = Image.FromFile("C:\Titi.jpg")
        End With
        Me.Controls.Add(Picture2)
    End Sub
End Class

05/04/2010, 13h57
Claude_Azoulai

Merci pour ton aide.
Ca a marché et j'en comprend mieu le fonctionnement grace à toi.

Claude Azoulai
05/04/2010, 14h02
Sankasssss

De rien, le forum est la pour ca ;)
Essaye d'être complet dès ton premier post, met tout ton code, comme ca c'est plus facile, et plus rapide pour la personne qui t'aide ;)
Bonne journée, et bon codage :pc: