Discussion :

[bartimeus35]

Bonjour tous,
J'ai une fonction qui Permet d'afficher un gif animé dans un formulaire, j'ai dons un truc du genre ci-dessous appelé sur minuterie . Ca fonctionne sauf que c'est déguaulasse à cause du select ,

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
Function afficher_frame(no_frame)
 
Select Case no_frame
 Case 1
    Me!ImgProgress.PictureData = Me.frame1.PictureData
 Case 2
    Me!ImgProgress.PictureData = Me.frame2.PictureData
 Case 3
    Me!ImgProgress.PictureData = Me.frame3.PictureData
 Case 4
    Me!ImgProgress.PictureData = Me.frame4.PictureData
 Case 5
    Me!ImgProgress.PictureData = Me.frame5.PictureData
 Case 6
    Me!ImgProgress.PictureData = Me.frame6.PictureData
 Case 7
    Me!ImgProgress.PictureData = Me.frame7.PictureData
 End Select
end function

Je voudrais y mettre le code suivant qui me semble plus propre mais ça ne marche pas, quelqu'un a t il la solution ? je m'énerve la dessus depuis plusieurs heures. cf erreur ci dessous

Code :

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

1
2
3
 
frame = "Me.frame" & no_frame & ".PictureData"
Me!ImgProgress.PictureData = frame

[CODE]

[Jean-Philippe André]

Salut,

je partirai sur un pragmatique

Code :

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

1
2
3
Function afficher_frame(no_frame)
    Me!ImgProgress.PictureData = Me.Controls("frame" & no_frame).PictureData
End Function

[bartimeus35]

youpi!!!