Discussion :

[gryffondor8392]

J'aimerais savoir s'il existe un control scrollbar dont la valeur max peut être supérieur à 32 767. Valeur que l'on ne peu pas dépasser avec un scrollbar habituel sinon ca cause une erreur.

[ProgElecT]

Slider: composant contenu dans MSComctlLib (Microsoft Windows Common Controls 6.0
Property Value As Long ----> (plage -2 147 483 648 à 2 147 483 647)

Mais .... essais un ScrollBar .Max = 32767 prenant la largeur maximal de l'écran et de bouger son curseur ...

En général on utilise .Value multiplié ou divisé par X, ou encore -X ou encore + X, c'est pourquoi 32 767 est souvent largement suffisant.

[gryffondor8392]

Slider: composant contenu dans MSComctlLib (Microsoft Windows Common Controls 6.0
Property Value As Long ----> (plage -2 147 483 648 à 2 147 483 647)

Mais .... essais un ScrollBar .Max = 32767 prenant la largeur maximal de l'écran et de bouger son curseur ...

En général on utilise .Value multiplié ou divisé par X, ou encore -X ou encore + X, c'est pourquoi 32 767 est souvent largement suffisant.

Dsl mais je ne comprends pas ce que tu veux dire.

[ProgElecT]

Sur un Form, 5 Labels (Autoseize = true) et un HScroll

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
Private Sub HScroll1_Change()
'affichage de 0 à 327670 par pas de 10
Label1 = CLng(HScroll1.Value) * 10
'affichage de 0,0 à 3276,7 par pas de 0,1
Label2.Caption = CLng(HScroll1.Value) / 10
'affichage de 1000 à 33767 par pas de 1
Label3.Caption = CLng(HScroll1.Value) + 1000
'affichage de -1000 à 31767 par pas de 1
Label4.Caption = CLng(HScroll1.Value) - 1000
'affichage de 1000 à -31767 par pas de 1
Label5.Caption = 1000 - HScroll1.Value
End Sub
Private Sub HScroll1_Scroll()
HScroll1_Change
End Sub

[gryffondor8392]

voila le code que j'ai :

Private Sub VScroll1_Change()

Picture5.Top = -VScroll1.Value

End Sub

mais une fois que la valeur max est attente ca ne va pas plus loin et la je ne vois pas comment faire pour que mon défillement puisse continuer

[ProgElecT]

Une chose qui n'a pas à voire avec un scrollbar (sa capacité .value en Integer) mais qui pourra surement te débloquer.
Mes le conteneur ou est placer le PictureBox en ScaleMode = VBpixels (3)
Un twips = 15 pixels, si tu es en conteneur Pixels (max value du ScrollBar = 32670)*15) = 490050 pixels, donc un solution possible pour ton besoin de déplacement .Top du PictureBox