Rotation gauche-droite et haut-bas => exact

Commenter

Contenu du snippet

Les seul fonction de symétrie que l'on trouve sur ce site son avec la fonction paintpicture
or cette fonction ne marche jamais exactement ...
il persiste des lignes sur les coté de l'image, or quand on travaille au pixel pres ... c'est pas génial

voicci donc deux méthode (gauche-droite et haut-bas) qui sont assez precise
et que j'utilise ...
elle peuvent étre 1 peu longue pour des grosse image mais sont parfaite pour de petite image

Source / Exemple : 


Private Sub rotation(Picture1, Picture2)
Picture2.Cls
prec1 = Screen.TwipsPerPixelX
prec2 = Screen.TwipsPerPixelY

Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height

For X = 0 To Picture1.ScaleWidth Step prec1
    For Y = 0 To Picture1.ScaleHeight Step prec2
        p = Picture1.Point(X, Y)
        rx = Picture1.ScaleWidth - X - prec1
        Picture2.PSet (rx, Y), p
    Next Y
Next X
End Sub

Private Sub rotation2(Picture1, Picture2)
Picture2.Cls
prec1 = Screen.TwipsPerPixelX
prec2 = Screen.TwipsPerPixelY

Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height

For X = 0 To Picture1.ScaleWidth Step prec1
    For Y = 0 To Picture1.ScaleHeight Step prec2
        p = Picture1.Point(X, Y)
        ry = Picture1.ScaleHeight - Y - prec2
        Picture2.PSet (X, ry), p
    Next Y
Next X
End Sub

Conclusion :


elle s'appelle facilement

rotation picture1, picture2
picture1 étant la picturebox de départ et ... picture2 c'elle de d'arrivé

si c'est fonction ne marche pas, cela veut dire que les paraméttres drawstyle, drawmode et autoredraw sont mauvais

A voir également

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 (beeline)