Soyez le premier à donner votre avis sur cette source.
Snippet vu 17 234 fois - Téléchargée 25 fois
Public Function RotateLeft(ByVal Img As Bitmap) As Bitmap Dim NouveauBitmap As New Bitmap(Img.Size.Height, Img.Size.Width) Dim X, Y As Integer For Y = 0 To Img.Size.Height - 1 For X = 0 To Img.Size.Width - 1 NouveauBitmap.SetPixel(Y, NouveauBitmap.Height - X, Img.GetPixel(X, Y)) Next Next Return NouveauBitmap End Function Public Function Mirror(ByVal Img As Bitmap) As Bitmap Dim NouveauBitmap As New Bitmap(Img.Size.Width, Img.Size.Height) Dim X, Y As Integer For Y = 0 To Img.Size.Height - 1 For X = 1 To Img.Size.Width - 1 NouveauBitmap.SetPixel(NouveauBitmap.Width - X, Y, Img.GetPixel(X, Y)) Next Next Return NouveauBitmap End Function
16 oct. 2006 à 09:38
17 août 2006 à 10:30
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.