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. ;-)
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. ;-)
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.