1/5 (3 avis)
Vue 4 098 fois - Téléchargée 367 fois
'------------------------------------------------------------------------- '-- 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
17 déc. 2002 à 13:33
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.
16 déc. 2002 à 20:42
(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 :]
@+
15 déc. 2002 à 23:25
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.