Mi duda es que me gustaría saber que imagen hay cargada en un control Image.
If Image1. ... = ... Then
End If
Gracias. S2
asi de sencillo... lo mismo para el PictureBox
Image.Picture = LoadPicture("RUTA DE LA IMG")
No me funciona... O me he equivocado en otra cosa... voy a probar, te cuento
No, no funciona....
que es lo que keres saber de la imagen?? comprobar si hay una imagen en el control?? o que??
salu2!
Comprobar que un control ImageBox tiene x imagen...
Cita de: HJZR4 en 21 Diciembre 2007, 13:43 PM
Comprobar que un control ImageBox tiene x imagen...
Pues eso no lo puedes saber sin hacer una comparacion de imagenes por sus pixels...
Salu2
Algo parecido, lo hice de esta manera en un jueguito:
como necesitaba usar solo tres imagenes, las cargue en tres "Controles Image" permanentemente --> img1, img2, img3. cuando necesitaba cargar alguna de esas tres imagenes en tiempo de ejecución y en un determinado elemento de una matriz de image (cabe acotar), lo hacia asi: --> image(Indice).Picture = Img1
A la hora de hacer comparaciones, hacia esto:
If Image(Indice).Picture = Img2 then
...
End If
Y para descargar la imagen, hacia esto:
Image(6).Picture = LoadPicture
Esa fue la solución que encontre hace tiempo para salir del paso en un proyecto de la universidad, no se si te sirva. Saludos. :P
aver si entendi lo que kires es saber si hay aalguna imagen guardada en un control picture? si es cierto puede hacer lo sgte.
if img1.picture<>0 then
hay imagen
end if
y tu code esta bien pero en ves de decirle que load picture le envias 0 y listo.
Vamos a ver, voy a poner un ejemplo práctico...
Tengo 1 control Image (Image1) y quiero, que dependiendo de la imágen que tenga, envie un mensaje u otro:
Form Load()
If Image1. ... = "dibujo.jpg" Then
MsgBox "Dibujo"
Else
MsgBox "Nada"
End If
End Sub
Claro ahora? :S:S
Cita de: HJZR4 en 21 Diciembre 2007, 17:28 PM
Vamos a ver, voy a poner un ejemplo práctico...
Tengo 1 control Image (Image1) y quiero, que dependiendo de la imágen que tenga, envie un mensaje u otro:
Form Load()
If Image1. ... = "dibujo.jpg" Then
MsgBox "Dibujo"
Else
MsgBox "Nada"
End If
End Sub
Claro ahora? :S:S
Aver, eso no funciona asi.... Se no kieres tener k verificar imagenes pixel a pixel, (una chorrada para una cosa de estas), te recomiendo k hagas como dije C@ss¡@n¡.
Salu2
Eso iba a hacer, pero quería asegurarme que no había mas maneras... :p
Gracias C@ss¡@n¡ ;D
lo que pides e sun locura.