Créé une 'matrice' de picturebox

Soyez le premier à donner votre avis sur cette source.

Vue 3 752 fois - Téléchargée 338 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

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.

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.