Geek Answers Handbook

Check the camera for a specific image name

I need to check the image for a specific image. I know that you can check if the image file is full ...

If Not pictureBox.Image is Nothing Then Else End If

But in my case, I need to check this file for the image downloaded earlier in the process.

Here is the current code that I use to upload the image ...

 PictureBox1.Image = My.Resources.TestImage1

I thought using the following code, I could check the image name, but this does not seem to work.

 If PictureBox1.Image = My.Resources.TestImage1 Then 'do something Else 'do something else End if

Suggestions?

+4
source share
2 answers

The image does not have any knowledge of the file name or any other name from which it was loaded. However, what you can do is compare pixels by pixels. Try this code:

 Public Function AreSameImage(ByVal I1 As Image, ByVal I2 As Image) As Boolean Dim BM1 As Bitmap = I1 Dim BM2 As Bitmap = I2 For X = 0 To BM1.Width - 1 For y = 0 To BM2.Height - 1 If BM1.GetPixel(X, y) <> BM2.GetPixel(X, y) Then Return False End If Next Next Return True End Function

Credit goes here .

Useful article I found while searching for an answer:

Here's how you can check if your images are 100% smaller, i.e. looks like.

+5
source 
 Dim a as image=my.resources.image1.jpg' imported file from resources Dim b as image=my.resources.image2.jpg' imported file from resources Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load picturebox1.image=a picturebox2.image=b end sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click if picturebox1.image is a and picturebox2.image=b then picturebox2.image=a picturebox1.image=nothing else picturebox2.image=b picturebox1.image=a end if end sub

.................. Just try it! :)

+2
source

More articles:


All Articles