Scroll bar pour image

Soyez le premier à donner votre avis sur cette source.

Vue 7 834 fois - Téléchargée 942 fois

Télécharger le projet
Commenter

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.

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
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
djcool74
Messages postés
44
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
12 février 2005
 -
Salut, ton code est pa mal.

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
++
Signaler
cs_azerty25
Messages postés
1115
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007
 -
Ta essayé de mettre ta picture sur autoredraw = true ?Sinon, bonne source assez simple mais qui peut aider les débutants !
Signaler
misterzinzin
Messages postés
112
Date d'inscription
vendredi 27 octobre 2000
Statut
Membre
Dernière intervention
26 janvier 2011
 1 -
g un petit probleme, les images se deplace bien mais lorsque je colle des bout d'image par la methode paintpicture, celle-ci se deplace bien aussi (mais ou est le probleme alors lol j'y vient) lorsque mes image collee avec paintpicture sorte de l'ecran puis qu'on y revient, elle ne sont plus la... disparu... une solution pour fixer les paintpicture dans le picture d'une picture (ca fait bizarre dit comme ca)
j'espere avoir vite une reponse a ce suget car moi je suis bloqué
Signaler
blq
Messages postés
97
Date d'inscription
vendredi 22 octobre 1999
Statut
Membre
Dernière intervention
13 juin 2016
 1 -
Merci pour ce bout de code !!
S'inscrire maintenant

Vous 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.

Du même auteur (NeoFO)