Discussion :

[excalybur]

bonjour,

L'objet de ma question est de comparer le contenu d'une image bmp 32x32 bits sur un fichier dans My.ressource avec celle contenu dans un PictureBox 32x32 bits de mon programme.

Le code suivant ne va pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit On
 
Imports System.IO
Imports System.Text
Imports System.Threading
Imports System.Text.RegularExpressions
...
Public PicZ(120) As PictureBox 'pour pouvoir indexer les images
...
 
 PicZ(18) = PictureBox1
If PicZ(18).Image = My.Resources.RBB Then Pieces = "RB"

ou si j'écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 PicZ(18) = PictureBox1
        If PicZ(18).Image = "h:\sbwin\image\RB.bmp" Then Pieces = "RB"

ça ne va pas non plus.

Ma question : Est-ce possible de procéder ainsi pour comparer une picturebox avec un fichier image?

[MABROUKI]

bonjour

Tu peux faire ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
 
Public Class Form1
    Private img1 As Bitmap = Nothing
    Private img2 As Bitmap = Nothing
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        img1 = New Bitmap(Application.StartupPath + "\Images\StockSnap1.jpg")
        PictureBox1.Image = img1
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        img1 = PictureBox1.Image
        img2 = New Bitmap(Application.StartupPath + "\Images\StockSnap2.jpg")
        Dim s1, s2 As String
        Dim flag As Boolean
        Dim count1 As Integer = 0
        Dim count2 As Integer = 0
 
        If img1.Width <> img2.Width Or img1.Height <> img2.Height Then
            MessageBox.Show("les 2 images ne peuvent etre comparees")
            Return
        End If
 
 
        For i As Integer = 0 To img1.Width - 1
            For j As Integer = 0 To img1.Height - 1
                s1 = img1.GetPixel(i, j).ToString()
                s2 = img2.GetPixel(i, j).ToString()
                If (s1 <> s2) Then
                    count2 += 1
                    flag = False
                    Exit For
                End If
                count1 += 1
            Next
        Next
        If (flag = False) Then
            MessageBox.Show("Images Non Identiques " + count2 + " pixels discordants trouvés ")
        Else
            MessageBox.Show("Images Non Identiques  " + count1 + " pixels trouvés et  " + count2 + " pixels discordants trouvés")
        End If
 
 
    End Sub
 
 
End Class

A tester avec 2 images(de même taille) identiques et non identiques...
bon code...

[excalybur]

Bonsoir,

Génial ça marche!

C'est exactement ce que je cherche et même plus, cerise sur le gâteau, avec la comparaison des pixels !

Un grand merci pour ce petit programme, je vais l'adapter à ma base.

Bonne soirée.