Scroll bar pour image
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
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.