ImageList Image erreur syntaxe

**totoche** · 01/09/2006, 15h39

Sur ma Form1 j'ai posé un ImageList dans lequel j'ai inserer mes image.
Sur ma Form2 j'ai posé un composant image, dans le code de cette form :

Code :

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

1
2
Option Explicit
ImgImprim.Picture = Form1.ImageList1.ListImages(1).Picture

sur cette ligne là J'ai l'erreur "Incorrect à l'interieur d'une procédure"
1 est pourtant bien l'index de l'image dans l'ImageList

**Asdorve** · 01/09/2006, 15h51

tu peux montrer stp plus de code avant et après, qu'on puisse replacer dans le contexte?

**totoche** · 01/09/2006, 15h54

voili voilou

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
25
26
27
28
29
30
31
32
33
34
35
36
37
Option Explicit
ImgImprim.Picture = Form1.ImageList1.ListImages(1).Picture
 
 
 
Private Sub cbStructures_Click()
Dim objDTMO As clsServices, I As Integer, Entry
Set objDTMO = New clsServices
baseDTMO = cbStructures.Text
objDTMO.genereDTMO (baseDTMO)
frameENVOI.Visible = True
For I = 2007 To 2016
       cbAnnees.AddItem I  ' Ajoute l'année
   Next I
 
End Sub
 
 
Private Sub Form_Load()
'***************Charger le combobox Structures
Dim rst As ADODB.Recordset
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
Call InitConnStruct
'Ouverutre connection
cnx.Open
'Exécution de la requête
rst.Open "SELECT * FROM T_structures", cnx
'Set cbStructures.DataSource = rst
While Not rst.EOF
cbStructures.AddItem (rst("RAISON_SOCIALE"))
rst.MoveNext
Wend
If baseDTMO = "" Then
frameENVOI.Visible = False
End If
End Sub