Créé une 'matrice' de picturebox

1/5 (3 avis)

Vue 4 098 fois - Téléchargée 367 fois

Description

ben l'autre jour , j'ai un pote qui m'a demander si y'avait pas un autre moyen que de se taper manuellement le placement de 100 images les une a coté des autres pour former une 'map'
je lui est proposé sa :

Source / Exemple :


'-------------------------------------------------------------------------
'--                code réalisé par EndSub le 15/12/2002                --
'-- permet de créer une matrice d'image (ou de n'importe quel controle) --
'-- n'oublié pas de mettre la propriété index a 0 du controle d'origine --
'-------------------------------------------------------------------------

Private Sub Form_Load()
Dim FirstPass As Boolean
Dim ImgTop As Integer
Dim ImgLeft As Integer

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

For c = 1 To 10
 For d = 1 To 10
  
  If FirstPass = False Then
   FirstPass = True
   GoTo Continue
  End If
  Load Image1(Image1.Count)
  
  With Image1(Image1.Count - 1)
  .Visible = True
  .Left = ImgLeft + Image1(0).Width * (d - 1)
  .Top = ImgTop + Image1(0).Height * (c - 1)
  DoEvents
  End With
  
Continue:
 Next
Next

End Sub

Conclusion :


ptit pub : http://endsub.free.fr ;)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
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
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.
EnDSuB Messages postés 38 Date d'inscription vendredi 11 janvier 2002 Statut Membre Dernière intervention 10 octobre 2007
16 déc. 2002 à 20:42
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 :]
@+
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
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 ééé

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.