Discussion :

[rag83]

Bonjour à tous,

J'ai un formulaire qui, au Form_Load, affiche avec le code suivant une photo en fonction d'un OpenArgs récupéré dans un autre formulaire :

Code :

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

1
2
3
4
Private Sub Form_Load()
Me.photo.PictureType = 1
Me.photo.Picture = "F:\Stagiaires\Photos\" & Me.OpenArgs & ".jpg
End Sub

Je voudrais maintenant avoir sur la photo un bouton qui passe à la photo suivante à chaque clic.

Il me semble donc qu'il faut que je récupère la valeur d'OpenArgs, puis que je la stocke dans une nouvelle variable où elle sera incrémentée de 1 à chaque clic sur le bouton, mais comment faire ?

Merci à ceux qui voudront bien m'aider.

[madefemere]

Bonjour,

Comme ça, je dirai qu'il faut mettre la valeur de M.OpenArgs dans un variable globale de ton formulaire. Et utiliser l'incrémentation de cette valeur lors du click sur ton bouton.

Un code du genre devrait fonctionner

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
Option Compare DataBase
Option Explicit
Dim NumPhoto as Integer
 
Private Sub Form_Load()
Me.photo.PictureType = 1
Me.photo.Picture = "F:\Stagiaires\Photos\" & Me.OpenArgs & ".jpg"
NumPhoto = Me.OpenArgs
End Sub
 
'Code pour incrémenter le numéro de la photo
Private Sub TonBoutonSuivant_Click()
NumPhoto = NumPhoto+1 'Incrémenter
Me.photo.PictureType = 1
Me.photo.Picture = "F:\Stagiaires\Photos\" & NumPhoto & ".jpg"
End Sub

Cordialement,

[rag83]

Bonjour Madefemere,

Ça fonctionne, merci.

Dans mes tentatives j'y étais presque , à la différence que j'avais placé le

Code :

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

Dim NumPhoto as Integer

dans le code du bouton et je récupérais la valeur de OpenArgs dans ce même code, je voyais bien pourquoi ça ne fonctionnait pas sans voir cette solution.

Merci encore