Scroll bar pour image
Soyez le premier à donner votre avis sur cette source.
Vue 8 040 fois - Téléchargée 956 fois
Description
Le principe est très simple: il faut que le scroll soit proportionnel à la difference entre l'image et le cadre.
C'est pourquoi la valeur maximal de scroll est de -100 (if faut que sa soit negatif car le reglage du scroll se dirige vers le bas.
C'est pourquoi la valeur maximal de scroll est de -100 (if faut que sa soit negatif car le reglage du scroll se dirige vers le bas.
Source / Exemple :
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'ScrollBar avec une photo
'par NFO (NeoFO)
'extrait du programme Bitmap Project (2e concours)
'Cette page contient un picturebox(cadre),une imagebox(grandeimage) et deux scrolls
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Form_Load()
HScroll1.Max = -100
VScroll1.Max = -100
End Sub
Private Sub HScroll1_Change()
'Régalge de l'image horizontalement
biz = GrandeImage.Width - Cadre.Width 'Différence de taille entre le cadre et l'image
GrandeImage.Left = biz * HScroll1.Value / 100
End Sub
Private Sub HScroll1_Scroll()
'Régalge de l'image horizontalement
If HScroll1.Value < HScroll1.Max Then
HScroll1.Value = HScroll1.Value + 10
End If
biz = GrandeImage.Width - Cadre.Width
GrandeImage.Left = biz * HScroll1.Value / 100
End Sub
Private Sub VScroll1_Change()
'Régalge de l'image vzerticalement
biz = GrandeImage.Height - Cadre.Height
GrandeImage.Top = biz * VScroll1.Value / 100
End Sub
Private Sub VScroll1_Scroll()
'Régalge de l'image verticalement
If VScroll1.Value < VScroll1.Max Then
VScroll1.Value = VScroll1.Value + 10
End If
biz = GrandeImage.Height - Cadre.Height
GrandeImage.Top = biz * VScroll1.Value / 100
End Sub
Codes Sources
A voir également
- Image bar
- Simple scrollbar - Meilleures réponses
- Basic scroll - Meilleures réponses
- Javascript : Precharger des images + barre de progression(progress bar) - CodeS SourceS - Guide
- Delphi / Pascal : Tskintrack composant track bar à l'aide d'image sous delphi 6 - CodeS Sourc - Guide
- Bar de status pour le chargement des images avec pourcentage ( vrai ) - Codes sources - Javascript (Effets)
- Delphi / Pascal : Progress bar image/3d/dégradée/simple - CodeS SourceS - Guide
- VB dot net (image et scroll bar) ✓ - Forum - Visual Basic
G essayé de le tester sous .NET avec 2 Panels (à la place de l'image et de la picturebox).
Cela ne marche pas. Quel est l'équivalent de l'Evènement Change sous .net ?
J'ai essayé ValueChanged mais ça ne marche pas.
Car en fait sous VB6, l'évènement Scroll permet de savoir kan on déplace la barre de défilement et l'évènemnt Change permet de savoir quand on click sur les petites flèches, c bien ça ?
Merci
++
- Messages postés
-
112
- Date d'inscription
- vendredi 27 octobre 2000
- Statut
- Membre
- Dernière intervention
- 26 janvier 2011
1j'espere avoir vite une reponse a ce suget car moi je suis bloqué
- Messages postés
-
97
- Date d'inscription
- vendredi 22 octobre 1999
- Statut
- Membre
- Dernière intervention
- 13 juin 2016
1Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.