Créé une 'matrice' de picturebox
Soyez le premier à donner votre avis sur cette source.
Vue 3 928 fois - Téléchargée 354 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 :
ptit pub : http://endsub.free.fr ;)
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
- Créé une 'matrice' de picturebox
- Créer une matrice en c ✓ - Forum - C
- Visual Basic / VB.NET : Créer une ipicture, ipicturedisp, picturebox, stdpicture depuis un ta - Guide
- Créer une série de pictureBox dynamiquement ✓ - Forum - C# / .NET
- Creer une matrice ✓ - Forum - C++ & C++ .NET
- [C++][Matrice] création d'une matrice ✓ - Forum - C++ & C++ .NET
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.
(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 :]
@+
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.