Créé une 'matrice' de picturebox
Soyez le premier à donner votre avis sur cette source.
Vue 3 791 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 :
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
- [C++][Matrice] création d'une matrice ✓ - Forum - C++ & C++ .NET
- 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
Commentaires
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.