Discussion :

[Benzema34]

bonjour à tous
ce code a fonctionné et puis ne fonctionne plus maintenant pour la cause suivante : type mismatch

je connais mon erreur mais je ne vois pas que est l'erreur car je déclare une nouvelle collection dans laquelle j'insère des objetx image
merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Initialise()
Dim l As New Collection
Dim a As Image
 
l.Add Im1
l.Add Im2
l.Add Im3
l.Add Im4
l.Add Im5
l.Add Im6
l.Add Im7
l.Add Im8
l.Add Im9
l.Add Im10
l.Add Im11
l.Add Im12
l.Add Im13
l.Add Im14
l.Add Im15
 
For Each a In l
a.Picture = LoadPicture("c:\pionvide.jpg")
Next
End Sub

[ProgElecT]

Quel est ton outil de programmation ?
Ici tu es sur le forum general, il est fait pour les questions communes a tous language BASIC, ton code laisse supposer fortement à du VB6, il y a un forum dedié.