CRÉÉ 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
-
15 déc. 2002 à 23:25
TheSin Messages postés 331 Date d'inscription mardi 12 novembre 2002 Statut Membre Dernière intervention 10 février 2009 - 17 déc. 2002 à 13:33
TheSin Messages postés 331 Date d'inscription mardi 12 novembre 2002 Statut Membre Dernière intervention 10 février 2009 - 17 déc. 2002 à 13:33
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
https://codes-sources.commentcamarche.net/source/5335-cree-une-matrice-de-picturebox
17 déc. 2002 à 13:33
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.
16 déc. 2002 à 20:42
(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 :]
@+
15 déc. 2002 à 23:25