Créé une 'matrice' de picturebox

Télécharger le projet
Commenter

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 ;)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (EnDSuB)