1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Graphique
  5. Picture box avec scrolls bars (tres simple et 100% fonctionnel)

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

Soyez le premier à donner votre avis sur cette source.

Vue 4 377 fois - Téléchargée 531 fois

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

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
8 févr. 2003 à 17:41
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
5 sept. 2002 à 03:43
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
20 août 2002 à 20:05
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
20 août 2002 à 19:24
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
20 août 2002 à 15:46
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! @@++
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)