Nom d'objet variable (PictureBox)
Bonjour
Au lieu même de saisir toutes les lignes ci-dessous
Code:
1
2
3
4
| PB_Smiley_1.Image = Bitmap.FromFile("C:\Smiley_1.png")
PB_Smiley_2.Image = Bitmap.FromFile("C:\Smiley_2.png")
'...
PB_Smiley_100.Image = Bitmap.FromFile("C:\Smiley_100.png") |
J'aimerais avoir la possibilité d'incrémenter un nom d'objet variable. J'ai saisi le code ci-dessous mais cela ne fonctionne pas.
Code:
1
2
3
4
5
6
7
8
9
| For n As Integer = 1 To 100
Dim Pic As PictureBox
n = 1
Pic = Me.Controls("PB_Smiley_" & n)
Pic.Image = Bitmap.FromFile("C:\Smiley_" & n & ".png")
Next n |
Puis-je demander votre aide ? Le message d'erreur est le suivant : La référence d'objet n'est pas définie à une instance d'un objet.
