Slider Picture

Question

Hello, j'ai une petite question ...
(Normal donc que je sois ici ...)

Comment peut - on faire dépendre une image d'un slider. J'ai plusieurs image et je voudrais que l'on puisse les faire défiler avec un slider ...

Merci

NuttyKizzy

Gobillot · Answer

tu met tes images dans une PictureBox, la PictureBox dans une autre PictureBox, et en fonction de la position du slider tu modifies la position de la première PictureBox, ce qui permet de faire défiler les images.

va voir ICI

Daniel

valtrase · Answer

Salut,

Ou Alors utilises l'objet Picture

Const NombreFile As Integer = 3
Dim PictureArray(1 To NombreFile) As Picture

Private Sub Form_Load()
Dim strFile As String
Dim intN As Integer
'~~~~ là soit tu fait une boucle si tes fichiers sont du style
'~~~~ MonFichier1.bmp, MonFichier2.bmp etc.....
For intN = 1 To NombreFile
    strFile = "c:\Monfichier" & Format(intN) & ".BMP"
    Set PictureArray(intN) = LoadPicture(strFile)
Next intN
'~~~~ Soit tu les rentres une par unes
    'strFile = App.Path & "\Monfichier1" & ".BMP"
    'Set PictureArray(1) = LoadPicture(strFile)
    'strFile = App.Path & "\LeFichier" & ".BMP"
    'Set PictureArray(2) = LoadPicture(strFile)
'~~~~ Etc.......

Slider1.Min = 1
Slider1.Max = NombreFile
Slider1.LargeChange = 1
Slider1_Click

End Sub

Private Sub Slider1_Click()
Picture1.Picture = PictureArray(Slider1.Value)
End Sub

____________________________________________________

Cordialement, Jean-Paul

Le Savoir n'a de valeur que s'il est partagé

Slider Picture

2 réponses

Discussions similaires