CRÉÉ UNE 'MATRICE' DE PICTUREBOX

Signaler
Messages postés
259
Date d'inscription
dimanche 14 juillet 2002
Statut
Membre
Dernière intervention
17 août 2012
-
TheSin
Messages postés
331
Date d'inscription
mardi 12 novembre 2002
Statut
Membre
Dernière intervention
10 février 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/5335-cree-une-matrice-de-picturebox

XGuarden
Messages postés
259
Date d'inscription
dimanche 14 juillet 2002
Statut
Membre
Dernière intervention
17 août 2012

Sa re3semble etrangement a un code que lon utilisait a lécole a la différence que le nom des variable est changer....suposont tu la fait vriament toi meme il reste que il la deja sur le site......mais plus ya de aip plus ya de fun ééé
EnDSuB
Messages postés
38
Date d'inscription
vendredi 11 janvier 2002
Statut
Membre
Dernière intervention
10 octobre 2007

Saut, désolé si cé déja sur le site , j'ai vraiment po fé gaffe
(po envie de regarder toutes les sources du site !!!)
jé fé ce code de mes propres neuronnes et j'ai pensé k'il pouvait servir a d'autre personne :]
@+
TheSin
Messages postés
331
Date d'inscription
mardi 12 novembre 2002
Statut
Membre
Dernière intervention
10 février 2009

Salut !

J'ai légèrement modifié ton code :



Private Sub Form_Load()

dim nbre,i,j as integer

Dim ImgTop As Integer
Dim ImgLeft As Integer


ImgLeft = Image1(0).Left
ImgTop = Image1(0).Top

nbre=0

For i = 1 To 10
For j = 1 To 10

nbre=nbre+1

Load Image1(nbre)

With Image1(Image1.Count - 1)
.Visible = True
.Left = ImgLeft + Image1(0).Width * (j - 1)
.Top = ImgTop + Image1(0).Height * (i - 1)
End With

Next i
Next j

End Sub



C'est pas un peu plus simple ? (je l'ai pas testé (fait à l'arrache), mais j'utilise un truc à peu près comme ça chez moi.