Algorithme lent pour inverser une image

Bonjour,

je commence à developper ma première application en vb avec visual basic 2005 express.
Je cherche à faire un logiciel pour faire du traitement d'image basé sur la morphologie mathématique.
Pour me faire la main je commence par coder les fonctions de base (inversion, binarisation, seuillage ... etc)
J'ai écrit le code ci-dessous pour inverser l'image mais je trouve son execution un peu trop longue et je n'ose pas imaginer ce que ça va donner qd j'aurais des fonctions bien plus compliquées...

Pourriez-vous me dire ce qui fait que cela prend du temps et si on peut l'améliorer ?

Autre question, je travaille comme le code le montre avec des bitmaps, pour un bon nombre de fonctions je n'aurai à travailler qu'avec des images binaires ou en niveaux de gris (256).
Y'a t-il un format plus adapté que je pourrais simplement manipuler comme un tableau à deux dimensions avec dans chaque case le niveau de gris du pixel sans avoir à passer par le argb à chaque fois ?

Merci d'avance

Code :


        Dim image1 As Bitmap
        Dim x As Integer
        Dim y As Integer
        Dim c As Color
        Dim c2 As Color
       
       Cursor = System.Windows.Forms.Cursors.WaitCursor

        image1 = New Bitmap(OpenFileDialog1.FileName)

        For x = 0 To image1.Width - 1
            For y = 0 To image1.Height - 1
                c = image1.GetPixel(x, y)
                c2 = Color.FromArgb(255 - c.R, 255 - c.G, 255 - c.B)

                image1.SetPixel(x, y, c2)
            Next
        Next

        Dim NewMDIChild As New Form()
       

        NewMDIChild.MdiParent = Me
        NewMDIChild.Text = "Image inversée"
        NewMDIChild.BackgroundImage = image1
        NewMDIChild.BackgroundImageLayout = ImageLayout.Stretch

        NewMDIChild.Show()

        Cursor = System.Windows.Forms.Cursors.Default

Au temps pour moi la lenteur n'est présente que quand je teste dans visual basic express, en lançant l'executable directement à partir de windows ça marche bien.

Oubliez cette partie de ma question, en revanche la partie sur les formats m'interesse toujours j'aimerais avoir des objets moins lourd à manipuler ...

heu...

adapte ceci à VB.Net

2 picturebox et une image dans picture1

un bouton command1

Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, _
ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc _
As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long

Private Sub Command1_Click()
  StretchBlt Picture2.hdc, 0, 0, Picture1.Width, Picture1.Height, Picture1.hdc, 0, 0, Picture1.Width, Picture1.Height, vbSrcInvert
End Sub

Private Sub Form_Activate()
  Picture1.AutoSize = True
  Picture2.Width = Picture1.Width
  Picture2.Height = Picture1.Height
End Sub

 

Les deux piucturebox étant en pixels (important) bien sur

Merci pour ta réponse je regarde mais puisque mon code marche pour inverser les couleurs et qu'il n'est pas long comme je le croyais ça ira...

L'utilisation de la fonction stretchBlt (ou d'ailleurs de la finction Bitblt) de la librairie gdi32 de l'API de windows (et même la méthode PaintPicture de VB) est nettement préférable (et beaucoup plus rapide)  à ta double boucle pour traiter pixel par pixel....
Enfin ... fais donc comme tu l'entends.....