Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Drag/Drop
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Drag/Drop 
 
Hola.

Tengo unos pictures creados por código almacenados en arrays.

Tengo que arrastrar las imágenes que contienen de unos a otros, pero quiero que al arrastrar la imagen
el picture del que sale la imagen desaparezca.

el codigo que tengo es este:

PUBLIC SUB fotosale_MouseDrag() 'este es el grupo de pictures del que salen las imágenes.
    
    IF Mouse.Left THEN
    Drag.Icon = LAST.Picture
    LAST.Drag(LAST.Picture.Image)
    
    
ENDIF
  
  
END

PUBLIC SUB fotoentra_Drop() ' Este es el grupo que recibe las imágenes.

  DIM i AS Integer
  i = LAST.tag
   arrayimagen2[i].picture = Drag.Icon

END


Este código funciona las imágenes se arrastran y se ponen en el picture que las recibe.
Pero no se como decirle que desaparezca del picture que fue arrastrada.

Supongo que tendré que decirle en el evento drop del grupo de imágenes que
reciben que se cambie la imagen del picture del que vienen.

No se como hacerlo.

Gracias
 



 
última edición por pittusa el Domingo, 30 Enero 2011, 11:07; editado 1 vez 
pittusa - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Drag/Drop 
 
Se me ocurre que puedes crear un variable que indique el nombre de donde viene la imagen, y cuando la sueltes, el programa lea esa variable y anule al picture...

Saludos
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Drag/Drop 
 
O al final del evento Drop, pon una instrucción que borre (o asigne NULL) a la propiedad Picture del PictureBox de origen.

Saludos
 




===================
Jesús Guardón

Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".

"uo ǝs ʇɐu pıɟıɔıן ɐdɹǝupǝɹ ɐ dɹoƃɹɐɯɐɹ, soןo ɥɐʎ bnǝ dɹodouǝɹsǝןo"
 
jguardon - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Drag/Drop 
 
hola y gracias por las respuestas.

pero el problema es que no se como obtener el picturebox de origen.

con LAST obtengo el ultimo que es el que recibe.

gracias.
 



 
pittusa - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Drag/Drop 
 
Hola.

Lo he arreglado.

PUBLIC SUB fotosale_MouseDrag()

 
    IF Mouse.Left THEN
    Drag.Icon = LAST.Picture
    LAST.Drag(LAST.Picture.Image)
    c = LAST.tag  'Aqui esta la clave, asigno a la variable c el ultimo  objeto que se arrastro mediante tag.
    
ENDIF
END

PUBLIC SUB fotoentra_Drop()

  DIM i AS Integer
  i = LAST.tag
  
  
arrayimagen2[i].picture = Drag.Icon
IF arrayimagen2[i].picture = picture["1.JPG"] THEN arrayimagen2[1].enabled = FALSE
arrayimagen[c].picture = picture["sinimagen.JPG"]  ' y aqui aplico a c ese valor, buaalaa
END


Una cosa tan sencilla y lo que me ha costado.
gracias.
 



 
última edición por pittusa el Domingo, 30 Enero 2011, 18:32; editado 1 vez 
pittusa - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Drag & Drop JaM0N General 16 Jueves, 12 Noviembre 2009, 20:21 Ver último mensaje
fabianfv
No hay nuevos mensajes Drag And Drop jose2190 General 3 Domingo, 19 Septiembre 2010, 11:22 Ver último mensaje
jsbsan
No hay nuevos mensajes Drag Drop, Drag Source, Tag Shell General 0 Domingo, 08 Octobre 2017, 12:28 Ver último mensaje
Shell
No hay nuevos mensajes Utilización De Drop Y Drag rolmidomain General 2 Domingo, 24 Noviembre 2019, 12:53 Ver último mensaje
gambafeliz
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario