Accueil > > > ROTATION ET MIROIR DE BITMAP
 ROTATION ET MIROIR DE BITMAP
 Information sur la source
 Description
Il doit exister une solution certainement plus rapide, mais pour palier à l'absence de la fonction RotateFlip dans la CF 1.O, voici deux fonctions simple de rotation et de miroir sur une image
 Source
- 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
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
 Conclusion
'Pour appeler ces fonctions, en supposant que l'image soit déjà chargée dans un pictureBox appelé PB1
PB1.Image = Mirror(PB1.Image)
PB1.Size = PB1.Image.Size
Si vous avez plus rapide n'hésitez pas à partager vos infos......
 Historique
- 07 août 2006 15:18:43 :
- Format ?
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
imprimer fichier bitmap sur imprimante ZEBRA? [ par sisi35 ]
Bonjour,Je souhaiterai imprimer un fichier bitmap sur une zebra.Je code en vb.net.Merci de vos réponses.
Stretchblt d'un bitmap vers un picturebox [ par mcoelho ]
Bonjour,Je développe une appli sur PDA en C# qui doit afficher une carte. L'image de la carte est chargée dans un Bitmap et je veux en affic
Rotation d'un Webbrowser [ par azerty25 ]
HelloJ'aimerai pouvoir faire tourner à 90° un contrôle Webbrowser sous WM5 Smartphone mais je vous avoue que j'ai du mal de voir comment faire si c'e
Cercle avec un bitmap [ par babou6a ]
Bonjour,Pouvez vous m'aider ?Je veux faire une fenetre avec un bitmap en fond. Lorsque l'utilisateur appui sur l'écran, un cercle apparait avec un aut
ZEBRA Impression BITMAP [ par janys35 ]
Bonjour, Je suis à la recherche de code VB.net me permetant d'imprimer une image BitMap sur une imprimante ZEBRA 320 en bluetooth à partir d'une appli
|
Derniers Blogs
 CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT)CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT) par FREMYCOMPANY
Bonjour à tous, Je viens de publier une proposition comprenant 5 pseudo-classes pour le CSS Working Group ayant trait à l'état de chargement d'un élément (ex: IMG,VIDEO,AUDIO,OBJECT pour l'HTML.). Si le c½ur vous en dit, vous pouvez retrouver cette p...
Cliquez pour lire la suite de l'article par FREMYCOMPANY MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ?MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ? par ROMELARD Fabrice
Formation initiale Durant la formation, le découpage classique est le suivant (je donnerai les équivalences Suisse lorsque je les connaîtrais) : Ecole primaire jusqu'au Collège : Formation générale permettant d'obtenir les méthodes...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice Y'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENTY'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENT par Aleks
Quand on a ce genre d'erreur sans log :
Et bas on a juste envie de choper le gas de Microsoft qu'a développé ça et lui foutre des baffes de Coboye ! ...
Cliquez pour lire la suite de l'article par Aleks [HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL[HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL par Pierrick CATRO-BROUILLET
Avec la sortie prochaine de la Beta Consumer Preview de Windows 8, j'avais envie de revenir sur une des fonctionnalités que j'attends le plus et que, en bon geek que je suis, j'utilise déjà : Hyper-V 3 ainsi son module PowerShell.
Il y a déjà pléthor...
Cliquez pour lire la suite de l'article par Pierrick CATRO-BROUILLET IIS7 - COMPRESSION GZIPIIS7 - COMPRESSION GZIP par cyril
La compression GZIP permet d'améliorer les performances de navigation en compressant ce qu'envoie le serveur à un client. Pour comprendre comment cela fonctionne, regardons ce qu'il se passe au niveau HTTP lorsqu'un client tente d'accéder à une ress...
Cliquez pour lire la suite de l'article par cyril
Forum
 MIDLET ET XMLMIDLET ET XML par hadassah
Cliquez pour lire la suite par hadassah
Logiciels
 Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning Academy System (17.1.3.0)ACADEMY SYSTEM (17.1.3.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|