1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Graphique
  5. Comment faire un zoom

Comment faire un zoom

Soyez le premier à donner votre avis sur cette source.

Vue 6 620 fois - Téléchargée 731 fois

Télécharger le projet
Commenter

Description

dans le zip
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
leptidev
Messages postés
206
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2007
27 mars 2002 à 17:16
Moi je voudrais faire la même chose mais avec un controle internet comme Explorer c'est possible ???
cs_Berenger
Messages postés
35
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
19 juillet 2004
23 mars 2002 à 20:30
Ton système de zoom déforme l'image, au lieu d'ajouter ou d'enlever 250, tu devrais multiplier ou diviser par un nombre, comme celà, l'image garde ses proportions. Eh oui, ca sert d'etre bon en maths pour la programmation

Exemple :

Dim Hauteur, Largeur

Private Sub Command1_Click()
Image1.Stretch = True
Image1.Width = Image1.Width * 1.5
Image1.Height = Image1.Height * 1.5
End Sub

Private Sub Command2_Click()
Image1.Stretch = False
VScroll1.Value = 0
HScroll1.Value = 0
Image1.Height = Hauteur
Image1.Width = Largeur
End Sub

Private Sub Command3_Click()
Image1.Stretch = True
Image1.Width = Image1.Width / 1.5
Image1.Height = Image1.Height / 1.5
End Sub

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

Private Sub HScroll1_Scroll()
Image1.Left = -HScroll1.Value
End Sub

Private Sub Image1_Click()
On Error Resume Next
Image1.Stretch = False
CD1.Filter = "Image bitmap |*.bmp"
CD1.ShowOpen
Image1.Picture = LoadPicture(CD1.FileName)
Hauteur = Image1.Height
Largeur = Image1.Width
End Sub

Private Sub Picture1_Click()
On Error Resume Next
Image1.Stretch = False
CD1.Filter = "Image bitmap |*.bmp"
CD1.ShowOpen
Image1.Picture = LoadPicture(CD1.FileName)
Hauteur = Image1.Height
Largeur = Image1.Width
End Sub

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

Private Sub VScroll1_Scroll()
Image1.Top = -VScroll1.Value
End Sub

PS : j'ai modifié quelques erreurs d'utilisation du dialogue d'ouverture. ;-)
Pop
29 août 2001 à 18:23
subtile
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 (cs_Insight)