Agrandir ou rétrécir une image

Description

Pour ceux qui veulent pas télécharger le Zip ou qui n'ont pas WinZip :(( voici le code commenté...

Crée un nouveau projet avec un form, 2 picturebox (Picture1 & Picture2), un bouton (Command1) & une TextBox (txtRate)...

Source / Exemple :


Private Sub Command1_Click()
'On vérifie que le taux est valable...
If txtRate = "" Or txtRate = "0" Or Not IsNumeric(txtRate) Then Exit Sub Else MsgBox "Le taux entré est incorrect": Picture2.Cls

'On convertit txtRate en Double pour conserver la virgule
Resize Picture1, Picture2, CDbl(txtRate)
End Sub

'Cette fonction copie le contenu d'une premiere PictureBox
'pixel par pixel et la copie, rétrécie ou agrandie, dans
'une seconde PictureBox...

'Pour agrandir, le taux est inférieur à 1
'Pour rétrécir, le taux est supérieur à 1
'Pour garder la taille, le taux est égal à 1...

Sub Resize(Image1 As PictureBox, Image2 As PictureBox, rate As Double)
Image2.Cls
For Y = 0 To Image1.ScaleHeight Step rate * 10
    For X = 0 To Image1.ScaleWidth Step rate * 10
        c = Image1.Point(X, Y)
        Image2.PSet (X / rate, Y / rate), c
        DoEvents
    Next
    DoEvents
Next
End Sub

Conclusion :


Tu as le mode d'emploi, tu n'as plus qu'à adapter le code à tes besoins...

>>>Djedj

Codes Sources

A voir également

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.