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

Soyez le premier à donner votre avis sur cette source.

Vue 3 933 fois - Téléchargée 463 fois

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 .

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

neojoce
Messages postés
134
Date d'inscription
jeudi 7 février 2002
Statut
Membre
Dernière intervention
16 juin 2002
-
c'est réglé
neojoce
Messages postés
134
Date d'inscription
jeudi 7 février 2002
Statut
Membre
Dernière intervention
16 juin 2002
-
y a un bogue dans le prog (vous avez du voir) enlevez tout les "Form5!" et ca va etre regle .
miko500
Messages postés
188
Date d'inscription
dimanche 29 octobre 2000
Statut
Membre
Dernière intervention
18 août 2005
-
C'est clair que ça peut toujours servir...
neojoce
Messages postés
134
Date d'inscription
jeudi 7 février 2002
Statut
Membre
Dernière intervention
16 juin 2002
-
de rien, ca fait plaisir :)
au moin j'ai pas mit cette source pour rien .
miko500
Messages postés
188
Date d'inscription
dimanche 29 octobre 2000
Statut
Membre
Dernière intervention
18 août 2005
-
Merci bcp pour ton truc avec les scroll bars, ça me permet de régler les problèmes de mon programme "lancement", je t'en suis reconnaissant! @@++

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.