Sujet Précédent Sujet Suivant

COMMENT FAIRE UN ZOOM

Nadium - 28 août 2001 à 02:56
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

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/1841-comment-faire-un-zoom

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

Discussions similaires

zoom infini superposition d'images.

ZOOM SUR IMAGE JPG

bloquer la valeur du zoom par VBA

Effet zoom sur une carte

zoom picturebox

Votre réponse

Discussions similaires