¿como puedo saber si está ocupada o no una image? - VB-MUNDO

visual_v · #1 (**permalink**) 03-02-2007, 19:17:49

Por favor, ¿alguien puede decirme como puedo saber si una "image" tiene imagen o no?
Es que estoy haciendo una prueba en la que si una "image" está libre le copio el contenido de la "image" en la que se encuentra y si está ocupada me gustaría mostrar un msgbox.

¿Qué me aconsejais? GRACIAS !!!

acalanto · #2 (**permalink**) 03-02-2007, 20:18:50

Los objetos Image y PictureBox tienen la propiedad Picture en la que se guardan ciertos atributos de la imagen (Picture) almacenada en la memoria del obejto. Uno de ellos es el id de manipulador o Handle; Si éste tiene valor '0' es que el objeto no dispone de una imágen almecenada, por contra, un valor diferente de '0' indica que tiene una imagen en memoria.

No sé si responde a tu pregunta.

visual_v · #3 (**permalink**) 06-02-2007, 22:09:56

Si, respondes mi pregunta, GRACIAS !!

Pero me pica la curiosidad... Los botones tb tienen propiedad Picture, pero en cambio no encuentro su propiedad Handle, ¿es que no se puede saber si un boton está o no ocupado? es decir... ¿si tiene o no imagen asignada?

Gracias una vez más !!
Saludos.

acalanto · #4 (**permalink**) 06-02-2007, 22:45:16

El botón si que tiene su propio 'handle', pero éste afecta al objeto CommandButton, y en este caso la imágen cargada -si es que lo está- es una propiedad que se almacena dentro de la memoria del propio objeto.

Si analizas commandbutton1.Picture.Handle comprobarás si dispone de imágen cargada o no. Para ello es necesario que la propiedad 'Style' del botón esté asignada como 'Graphical' pues el 'Standard' no puede almacenar imágenes.

angelescj · #5 (**permalink**) 06-02-2007, 22:50:39

Hola visual_v, en tu post anterior, el de mover las imágenes de un botón a otro, la solución que yo te daba verificaba precisamente que el picture del botón no fuera 0, ya que entonces significaría que no había imagen.
:smt004

visual_v · #6 (**permalink**) 07-02-2007, 08:34:30

Ostras Angeles, llevas toda la razón del mundo, menudo despiste estoy echo :S

Yo es que intentaba algo así como...

Código:

if command1.picture = nothing then
else

Y parece ser que el nothing no le gusta al if, jejeje :P
Gracias a ambos por vuestras aclaraciones

Por otro lado tengo la propiedad style a graphical pero no me acepta... Command1(index).Picture.Handle
En mi caso es una matriz de botones, no creo que eso tenga que ver con el error que me muestra, no?
Me dice "Uso no valido de la propiedad" y mi pregunta es... ¿handle devuelve algo? supongo que debo recoger su resultado en alguna variable para saber si tiene o no una imagen, estoy echo un lio :S

Saludos.

angelescj · #7 (**permalink**) 07-02-2007, 10:04:42

Para Nothing debes usar "Is".

If loquesea Is Nothing Then
......

Prueba con

If Command1(index).Picture=0 Then
......

:smt004