Bonjour
Au lieu même de saisir toutes les lignes ci-dessous
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.
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.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager