Images/fichiers
abdelmjid_enim
Messages postés
29
Date d'inscription
dimanche 16 avril 2006
Statut
Membre
Dernière intervention
9 juillet 2006
-
21 juin 2006 à 16:03
Reacen Messages postés 282 Date d'inscription mardi 22 août 2006 Statut Membre Dernière intervention 21 décembre 2010 - 21 juin 2006 à 18:30
Reacen Messages postés 282 Date d'inscription mardi 22 août 2006 Statut Membre Dernière intervention 21 décembre 2010 - 21 juin 2006 à 18:30
1 réponse
Reacen
Messages postés
282
Date d'inscription
mardi 22 août 2006
Statut
Membre
Dernière intervention
21 décembre 2010
21 juin 2006 à 18:30
21 juin 2006 à 18:30
Si j'ai compris ce ue tu veux dir
c'est que tu a des images que tu veux defiler dans un picturebox avec
une command Suivant ? dans une form appeler userform !
Donc , je sais pas si ça va t'aider ! Mais voila
tu renomme chaque fichiers par un N° ex:
1.jpg
2.jpg
3.jpg ect...
puis tu tape
'--------------------------
Dim Tr
Dim Fich
sub userform_load ()
if tr "" then tr "0"
end sub
sub command1_click ()
msgbox "Suivant"
on error resum next
tr=tr+1
Fich = "c:\mondossier" & tr & ".jpg"
pcturebox.picture = fich
end sub
sub command1_click ()
msgbox "Precedant"
on error resum next
tr=tr-1
Fich = "c:\mondossier" & tr & ".jpg"
pcturebox.picture = fich
end sub
C bon , sinon , tu peu bien eclaircire ton idée
c'est que tu a des images que tu veux defiler dans un picturebox avec
une command Suivant ? dans une form appeler userform !
Donc , je sais pas si ça va t'aider ! Mais voila
tu renomme chaque fichiers par un N° ex:
1.jpg
2.jpg
3.jpg ect...
puis tu tape
'--------------------------
Dim Tr
Dim Fich
sub userform_load ()
if tr "" then tr "0"
end sub
sub command1_click ()
msgbox "Suivant"
on error resum next
tr=tr+1
Fich = "c:\mondossier" & tr & ".jpg"
pcturebox.picture = fich
end sub
sub command1_click ()
msgbox "Precedant"
on error resum next
tr=tr-1
Fich = "c:\mondossier" & tr & ".jpg"
pcturebox.picture = fich
end sub
C bon , sinon , tu peu bien eclaircire ton idée