Picture box avec scrolls bars (tres simple et 100% fonctionnel)

Télécharger le projet
Commenter

Description

Ceci vous permet de charger une image dans un picture box avec des barres de defilement à coté .

Je sais, il y a deja des sources de ce genre, mais, soit elles sont compliquées, elles ne fonctionnent pas, ou bien elles font parti d'une autre source .
J'ai alors décidé de faire quelquechose de plus simple et plus propre (je l'espère)
-J'ai prit l'idée d'une autre source qui elle, n'était pas au point .

Source / Exemple : 


'Ca vous prend :
'-deux scrolls bars ("Vscroll1" et "Hscroll1")
'-deux picturebox ("Picture1"  et "shot" > un dans l'autre > "shot" dans "Picture1" )
' "shot" > AutoSize = true, BorderStyle = 0 - None

'-----code-----

'=Pour charger l'image=

shot.Picture = LoadPicture("votre image"): call Verif

'=Les scrolls=

Private Sub HScroll1_Change()
shot.Left = -HScroll1.Value
End Sub

Private Sub VScroll1_Change()
shot.Top = -VScroll1.Value
End Sub

'=Sub pour simplifier=

Public Sub Verif()
HScroll1.Visible = False
VScroll1.Visible = False
If Picture1.Height < shot.Height Then 
VScroll1.Visible = True
VScroll1.Max = shot.Height - Picture1.Height
VScroll1.LargeChange = VScroll1.Max * 2 ' attention aux overflows !
End if
If Picture1.Width < shot.Width Then
HScroll1.Visible = True
HScroll1.Max = shot.Width - Picture1.Width
HScroll1.LargeChange = HScroll1.Max * 2
End if

Conclusion :


J'ai fait un zip pour ceux qui ont plus de difficulté (c'est pourtant pas si dur, z'etes pas con ..
ou si je me serai trompe, au moin le zip lui va fonctionner)

J'espere que ca pourra vous servir .
Télécharger le projet

Codes Sources

A voir également

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 (neojoce)