déplacer un morceau d'une image au format bmp Résolu

Question

bon voila je cherche une fonction, ou un code, qui me permette de d&#233;placer des pixels dans une image...

il s'agit d'une image blanche avec par exemple un cercle de couleur r:44 v:128 b:255

ce que je veu, c'est pouvoir par exemple d&#233;placer mon cercle de 3 pixels sur la droite, et 5 pixels vers le bas;  en gros c'est le principe que je cherche (le cercle peut etre une lettre un carr&#233; ou n'importe quoi mais ce sera toujours de la m&#234;me couleur...) (de plus je veux d&#233;placer le cercle pas en faire une copie et me retrouver avec dfeux cercles...)

ce serai g&#233;nial si quelqu'un pouvait me donner un petit coup de pouce

merci

Utilisateur anonyme · Accepted Answer

Bonjour,



Voil&#224; ma solution :





Private Sub cmd1_Click()



pic1.ScaleMode = 3



Dim Bh As Integer, Bw As Integer

Bw = pic1.ScaleWidth

Bh = pic1.ScaleHeight



Dim SearchColor As Long, MaskColor As Long

SearchColor = RGB(0, 0, 0)

MaskColor = RGB(255, 255, 255)



Dim DecalX As Integer, DecalY As Integer

DecalX = 3

DecalY = 3



Dim PtsGraphics() As POINTAPI

Dim NbPt As Integer

NbPt = -1



Dim iX As Integer, iY As Integer

For iX = 0 To Bw

  For iY = 0 To Bh

    If pic1.Point(iX, iY) = SearchColor Then

      NbPt = NbPt + 1

      If NbPt > 0 Then ReDim Preserve PtsGraphics(NbPt) As POINTAPI

      If NbPt = 0 Then ReDim PtsGraphics(0) As POINTAPI

      PtsGraphics(NbPt).x = iX + DecalX

      PtsGraphics(NbPt).y = iY + DecalY

      pic1.PSet (iX, iY), MaskColor

    End If

  Next iY

Next iX



If NbPt > -1 Then

  Dim iPt As Integer

  For iPt = 0 To UBound(PtsGraphics)

    pic1.PSet (PtsGraphics(iPt).x, PtsGraphics(iPt).y),SearchColor

  Next iPt

End If





End Sub



ChRB
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

Gobillot · Answer

faut l'effacer et la redessiner ailleurs, soit avec les dessins
graphiques cercle, ligne, etc .. soit avec PaintPicture &#224; partir d'une
image dessin&#233;e ailleurs, ou alors avec les bitmaps.

il y a aussi la possibilit&#233; de prendre une shape ou une image ou m&#234;me
une autre PictureBox, et se sera plus facile &#224; d&#233;placer sans la
redessiner &#224; chaque fois.

Daniel

cs_DARKSIDIOUS · Answer

Ouch, ta m&#233;thode est un peu lourde [auteurdetail.aspx?ID=231472 Charles Racaud], je conseillerai plut&#244;t la m&#233;thode de [auteurdetail.aspx?ID=278023 Gobillot] qui sera bien plus l&#233;g&#232;re et optimis&#233;e ! Il faut savoir que les fonction PSet et Point de VB sont tout sauf rapide !


Je rajoute de plus : tracer un cercle dans un DC temporaire, et
utiliser TransparentBlt pour le tracer sur l'image de destination.


DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

zwarul · Answer

salut en fait c'est plutot la m&#233;thode de charles qui me convient car le motif a d&#233;placer n'est pas forc&#233;ment un cercle ce peut etre n'importe quoi....

Gobillot · Answer

je comprends pas.

si tu mets ton image dans une autre PictureBox tu la d&#233;places en une seule instruction:

Picture2 dans picture1:

Picture2.move Picture2.Left + decalX, Picture2.Top + decalY

et sans perdre aucun pixels


Daniel

cs_DARKSIDIOUS · Answer

Ben oui, et ca marche &#233;galement avec un TransparentBlt.



Avec les PSet et Point, tu y perds vraiment beaucoup en temps
processeur car les calculs sont assez long &#224; faire ! A la limite,
utilise au moins les API GetPixel/SetPixel, ou encore mieux, utilise ma
classe de gestion d'image pour acc&#232;l&#233;rer le traitement !

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

zwarul · Answer

en fait ce que je veux c'est ne d&#233;placer que les pixels d'une certaine couleur 
par exemple ici je veux faire descendre le graphique noir sous le graphique bleu sans que le graph bleu ne bouge dans l'image......

et avec le code de chrb ca marche nikel
mais je n'arrive pas &#224; faire fonctionner avec ce que vous m'avez indiqu&#233; en dessous...c'est parceque je mi prend mal ou c'est parceque c'est pas pr&#233;vu pour faire ce que je voulais??

zwarul · Answer

l'image peut aussi &#234;tre du style:

Déplacer un morceau d'une image au format bmp

8 réponses

Discussions similaires