Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 731 fois - Téléchargée 38 fois
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
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.