Buenas a todos, soy nuevo en el foro estoy intentando aprender vb6...

Tengo este codigo para cargar imagenes aleatortias desde app.path:

Código:

Private Sub Form_Load()
File1.Pattern = "*.jpg;*.bmp;*.Gif"
File1 = App.Path
End Sub


Private Sub Command1_Click()

If File1.ListCount <= 0 Then
        MsgBox "No hay archivos de imagen en el directorio"
Else
        Dim aleatorio As Integer
        aleatorio = Int(((File1.ListCount - 1)) * -1 * Rnd + File1.ListCount - 1)
        Image1.Picture = LoadPicture(App.Path + "\" + File1.List(aleatorio))

        
        aleatorio = Int(((File1.ListCount - 1)) * -1 * Rnd + File1.ListCount - 1)
        Image2.Picture = LoadPicture(App.Path + "\" + File1.List(aleatorio))

        
        aleatorio = Int(((File1.ListCount - 1)) * -1 * Rnd + File1.ListCount - 1)
        Image3.Picture = LoadPicture(App.Path + "\" + File1.List(aleatorio))


End If
End Sub

El problema es que mi idea es que cuando las 3 imagenes sean iguales salga un msgbox a ver si alguien me puede ayudar se lo agradeceria mucho...
Saludos a tod@s y gracias de antemano

No se si capté bien tu idea pero me imagino que lo que quieres es comparar las imagenes una vez cargadas en los respectivos ImageBox y si las 3 imagenes con iguales entonces alertar con un MsgBox.
Si es asi, entonces despues de cargar las imagenes en la sentencia Else puedes hacer algo como esto:

Código:

If (Image1.Picture = Image2.Picture) And (Image2.Picture = Image3.Picture) Then
     MsgBox "Las imagenes son iguales"
End If

Puedes colocar un Refresh antes de la verificacion para asegurar que las imagenes fueron cargadas:

Código:

Image1.Refresh
Image2.Refresh
Image3.Refresh

Iniciado por RoyMata

No se si capté bien tu idea pero me imagino que lo que quieres es comparar las imagenes una vez cargadas en los respectivos ImageBox y si las 3 imagenes con iguales entonces alertar con un MsgBox.
Si es asi, entonces despues de cargar las imagenes en la sentencia Else puedes hacer algo como esto:

Código:

If (Image1.Picture = Image2.Picture) And (Image2.Picture = Image3.Picture) Then
     MsgBox "Las imagenes son iguales"
End If

Puedes colocar un Refresh antes de la verificacion para asegurar que las imagenes fueron cargadas:

Código:

Image1.Refresh
Image2.Refresh
Image3.Refresh

Antes ke nada gracias por tu respuesta
Resulta ke puse el code tal y como me dijiste de manera ke kedó así:

Código:

Private Sub Form_Load()
File1.Pattern = "*.jpg;*.bmp;*.Gif"
File1 = App.Path
End Sub

Private Sub Label1_Click()

If File1.ListCount <= 0 Then
        MsgBox "No hay archivos de imagen en el directorio"
Else
        Dim aleatorio As Integer
        aleatorio = Int(((File1.ListCount - 1)) * -1 * Rnd + File1.ListCount - 1)
        Image1.Picture = LoadPicture(App.Path + "\" + File1.List(aleatorio))

        aleatorio = Int(((File1.ListCount - 1)) * -1 * Rnd + File1.ListCount - 1)
        Image2.Picture = LoadPicture(App.Path + "\" + File1.List(aleatorio))

        aleatorio = Int(((File1.ListCount - 1)) * -1 * Rnd + File1.ListCount - 1)
        Image3.Picture = LoadPicture(App.Path + "\" + File1.List(aleatorio))

End If
    
Image1.Refresh
Image2.Refresh
Image3.Refresh

    If (Image1.Picture = Image2.Picture) And (Image2.Picture = Image3.Picture) Then
         MsgBox "Las imagenes son iguales"
    End If

End Sub

Pero cuando las imagenes son iguales no sale el msgbox sin embargo si no hay imagenes en la carpeta sale el primer msgbox diciendo ke no hay imagenes en el directorio y después el segundo msgbox diciendo ke las imagenes son iguales... No se porké pasa esto..

El problema que tienes es con la posicion que le das al codigo. Esas lineas deben estar en la sentencia Else de tu condicional If. El codigo del evento Click para el control Label1 debe quedar de esta forma:

Código:

Private Sub Label1_Click()
If File1.ListCount <= 0 Then
        MsgBox "No hay archivos de imagen en el directorio"
Else
        Dim aleatorio As Integer
        aleatorio = Int(((File1.ListCount - 1)) * -1 * Rnd + File1.ListCount - 1)
        Image1.Picture = LoadPicture(App.Path + "\" + File1.List(aleatorio))
 
        aleatorio = Int(((File1.ListCount - 1)) * -1 * Rnd + File1.ListCount - 1)
        Image2.Picture = LoadPicture(App.Path + "\" + File1.List(aleatorio))
 
        aleatorio = Int(((File1.ListCount - 1)) * -1 * Rnd + File1.ListCount - 1)
        Image3.Picture = LoadPicture(App.Path + "\" + File1.List(aleatorio))
        Image1.Refresh
        Image2.Refresh
        Image3.Refresh
        If (Image1.Picture = Image2.Picture) And (Image2.Picture = Image3.Picture) Then
               MsgBox "Las imagenes son iguales"
        End If
End If
End Sub

Iniciado por RoyMata

El problema que tienes es con la posicion que le das al codigo. Esas lineas deben estar en la sentencia Else de tu condicional If. El codigo del evento Click para el control Label1 debe quedar de esta forma:

Código:

Private Sub Label1_Click()
If File1.ListCount <= 0 Then
        MsgBox "No hay archivos de imagen en el directorio"
Else
        Dim aleatorio As Integer
        aleatorio = Int(((File1.ListCount - 1)) * -1 * Rnd + File1.ListCount - 1)
        Image1.Picture = LoadPicture(App.Path + "\" + File1.List(aleatorio))
 
        aleatorio = Int(((File1.ListCount - 1)) * -1 * Rnd + File1.ListCount - 1)
        Image2.Picture = LoadPicture(App.Path + "\" + File1.List(aleatorio))
 
        aleatorio = Int(((File1.ListCount - 1)) * -1 * Rnd + File1.ListCount - 1)
        Image3.Picture = LoadPicture(App.Path + "\" + File1.List(aleatorio))
        Image1.Refresh
        Image2.Refresh
        Image3.Refresh
        If (Image1.Picture = Image2.Picture) And (Image2.Picture = Image3.Picture) Then
               MsgBox "Las imagenes son iguales"
        End If
End If
End Sub

Pués no me salta el msgbox, copié el codigo tal y como lo pusiste y cuando salen las 3 imagenes iguales no hace nada...

Ok, sin conocer los datos que traes cargados en tu file1 me parece que el problema va ligado al formato de tus imagenes. Entonces pregunto: son imagenes bitmaps? o son fotografias? o tienen algun otro formato? Este codigo que te estoy pasando funcionaria al hacer la comparacion con imagenes de un unico plano en bitmaps de no mas de 16 bits. La comparacion se esta haciendo simplemente con el objeto almacenado en la propiedad Picture del control. Si se tratara de imagenes mas complejas entonces ya se complicaria tambien la comparacion porque habria que almacenar en un array de bytes y luego comparar los arrays (se me ocurre de primera mano) o de una forma mas burda comparar pixel por pixel en cada imagen (lo que terminaria en un codigo bastante cargado y un proceso lento dependiendo del tamaño de las imagenes).
Podrias indicarnos el formato que traen las imagenes, ademas de los datos contenidos en File1 (nombre y extension de los archivos)