1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Graphique
  5. Scroll bar pour image

Scroll bar pour image

0/5 (4 avis)

Vue 8 500 fois - Téléchargée 995 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
djcool74 Messages postés 44 Date d'inscription lundi 30 décembre 2002 Statut Membre Dernière intervention 12 février 2005
9 févr. 2005 à 16:03
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
++
cs_azerty25 Messages postés 1114 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 6 mai 2007
29 janv. 2004 à 10:45
Ta essayé de mettre ta picture sur autoredraw = true ?Sinon, bonne source assez simple mais qui peut aider les débutants !
misterzinzin Messages postés 112 Date d'inscription vendredi 27 octobre 2000 Statut Membre Dernière intervention 26 janvier 2011 2
8 janv. 2004 à 19:33
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é
blq Messages postés 97 Date d'inscription vendredi 22 octobre 1999 Statut Membre Dernière intervention 13 juin 2016 1
7 avril 2003 à 21:36
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)