Comunidad Gambas-es

Comunidad Gambas-es > Gambas > General > Problema al arrastrar un control
Versión completa: Problema al arrastrar un control
Actualmente estas viendo una versión simplificada de nuestro contenido. Ver la versión completa con el formato correcto.

Shell

20-05-2023, 22:57
Buenas!.

Viendo un ejemplo de Cogier sobre Drag y Drop, creé algo similar. Pero cuando el objeto es arrastrado fuera del lugar donde debe estar,
este se borra y se elimina de su contenedor de origen.

Tengo un panel con tres etiquetas. Cada etiqueta tiene una palabra que forman una frase desordenada.
Se trata de llevar cada etiqueta al otro panel y que la frase se pueda ver ordenada.

Una vez el control se ha arrastrado o creado en el otro panel, debe ser eliminado del panel de origen.

Para probar el efecto debe ser arrastrado fuera de su contenedor y que no sea el panel 2.

[Imagen: xFFwNB5.png]

Al pulsar el botón de check se comprueba si el orden de la frase es correcto.

Este es el código.

GAMBAS
  1. Private aphrase As String[] = ["Order", "the", "phrase"]
  2. Private tobject As Object
  4.  
  5. Public Sub Form_Open()
  6.  
  7.   Dim lb As Label
  8.   Dim adisorderphrase As String[]
  9.  
  10.   adisorderphrase = aphrase.Copy()
  11.   adisorderphrase.Shuffle()
  12.  
  13.   Panel1.Arrangement = Arrange.Column
  14.  
  15.   For ICount As Integer = 0 To adisorderphrase.Max
  16.     lb = New Label(Panel1) As "words"
  17.     With lb
  18.       .text = adisorderphrase[ICount]
  19.       .Font.Size = 18
  20.       .Alignment = Align.Center
  21.       .AutoResize = True
  22.       .Padding = 5
  23.       .Border = Border.Plain
  24.     End With     
  25.   Next
  26.  
  28.  
  29. Public Sub words_enter()
  30.  
  31.   tobject = Last  
  32.   stext = Last.text
  33.  
  35.  
  36. Public Sub words_MouseDrag()
  37.  
  38.   If Mouse.left Then    
  39.     Last.Drag(Last.text)  
  40.     'If your drag to any place the control is deleted. :(
  41.     Last.Delete
  43.  
  45.  
  46. Public Sub Panels_Drop()
  47.  
  48.   Dim lb As Label
  49.     
  50.   If Drag.type = Drag.Text Then     
  51.     lb = New Label(Last) As "words"
  52.     With lb
  53.       .Text = Drag.Data      
  54.       .AutoResize = True
  55.       .W = Drag.Source.w
  56.       .H = Drag.Source.h
  57.       .Border = Border.Plain
  58.       .Font.Size = Drag.Source.Font.Size
  59.       .Padding = 5
  60.     End With    
  62.   'Drag.Source.Delete
  63.   'Is impossible delete the object here, the control is being dragged
  64.  
  66.  
  67. Public Sub Button1_Click()
  68.  
  69.   Dim wrong As Boolean
  70.     
  71.   If Panel2.Children.Count = aphrase.Count Then
  72.     For r As Integer = 0 To aphrase.Max
  73.       tobject = Panel2.Children[r]
  74.       If aphrase[r] <> tobject.text Then
  75.         wrong = True
  76.         Break
  77.       Endif
  78.     Next    
  79.     If wrong Then
  80.       Message.Error(("The order of words isn't correct"), "OK")      
  81.     Else
  82.       Message.Info(("The order of words is correct"), "OK")
  83.     Endif  
  84.   Else
  85.     Message.Error(("There aren't enough words on the panel"), "OK")
  87.  



Saludos

vuott

20-05-2023, 23:57
Me Confused parece que a mi funciona.
Cuando transporto el Control, que contiene una de las tres palabras, desde el Panel1 y lo coloco en el Panel2, el Control desaparece del Panel1.

Shell

21-05-2023, 00:08
(20-05-2023, 23:57)vuott escribió: [ -> ]Cuando transporto el Control, que contiene una de las tres palabras, desde el Panel1 y lo coloco en el Panel2, el Control desaparece del Panel1.

Intenta arrastrarlo al formulario y soltarlo en este, desaparecerá del Panel1.

Saludos

tincho

21-05-2023, 00:47
El problema puede deberse a que el elemento sobre el cual se crea el drag es eliminado en el mismo evento del drag.
GAMBAS
  1. Public Sub words_MouseDrag()
  2.  
  3.   If Mouse.left Then    
  4.     Last.Drag(Last.text)  
  5.     'If your drag to any place the control is deleted. :(
  6.     Last.Delete ' Esto tendrías que comentarlo
  8.  


Shell

21-05-2023, 10:18
(21-05-2023, 00:47)tincho escribió: [ -> ]El problema puede deberse a que el elemento sobre el cual se crea el drag es eliminado en el mismo evento del drag.

Eso es lo primero que intenté. Pero la eliminación del source se debe ejecutar en alguna parte. Para saber que control es,
o de donde proviene.

La información real que se traspasa es el texto, el control es lo de menos, se va a crear un control similar en el otro panel
con la información del control source. El problema reside en eliminar el control en el panel origen y desde donde debe realizarse
o como hacerse.

Tengo de hace años otro ejemplo con dos ListView y no me ocurre eso.

Gracias a los dos.

Saludos

vuott

21-05-2023, 16:45
(21-05-2023, 00:08)Shell escribió: [ -> ]Intenta arrastrarlo al formulario y soltarlo en este, desaparecerá del Panel1.

¿Quieres que el Control con el texto, si lo sueltas fuera de Panel2 (por ejemplo, en el Formulario), no desaparezca de Panel1 ?

Shell

21-05-2023, 19:38
(21-05-2023, 16:45)vuott escribió: [ -> ]¿Quieres que el Control con el texto, si lo sueltas fuera de Panel2 (por ejemplo, en el Formulario), no desaparezca de Panel1 ?

Eso es. Que solo se puede soltar en Panel2 o del Panel2 al Panel1 pero nunca al formulario.

Shell

21-05-2023, 21:24
Buenas!.

Parece que lo he solucionado.

Un control si no se destruye, se puede reutilizar. En este caso, parece lo más acertado.
Aparentemente no puedo destruir algo que se está arrastrando.

Por de pronto para que el formulario no admita que algo se pueda soltar en el, se puede hacer:

GAMBAS
  1. Public Sub Form_Open()
  2.  
  3.   Me.Drop = False
  4.  
  5.  End



¿ Qué es realmente lo que paso de un lado a otro ?.
¿ Cuál es la información ?.
El texto que contiene la etiqueta, no la etiqueta en si. Wink

Entonces puedo. Si sé que el panel 1 tiene tres etiquetas, creo el mismo número de etiquetas en el panel 2, pero en este las hago todas invisibles.
No vamos a crear más etiquetas, solo las necesarias.

Ahora bien, ¿ Cómo se va añadiendo la información a esas etiquetas ?. En orden.

Se comprueba cada una de las etiquetas del panel 2 ( si estamos pasando del panel 1 al panel 2 ),  la primera etiqueta
del panel 2 que este invisible y que su texto sea una cadena vacía, se hace visible y se le pasa el texto que se ha arrastrado.
Luego rompemos el bucle, para que no se llene de etiquetas con el mismo contenido.
Y hasta ahí parece que funciona.

GAMBAS
  1. Private aphrase As String[] = ["Order", "the", "phrase"]
  2. Private tobject As Object
  4.  
  5. Public Sub Form_Open()
  6.  
  7.   Dim lb As Label
  8.   Dim adisorderphrase As String[]
  9.  
  10.   Me.Drop = False
  11.  
  12.   adisorderphrase = aphrase.Copy()
  13.   adisorderphrase.Shuffle()
  14.  
  15.   Panel1.Arrangement = Arrange.Column
  16.  
  17.   For ICount As Integer = 0 To adisorderphrase.Max
  18.     lb = New Label(Panel1) As "words"
  19.     With lb
  20.       .text = adisorderphrase[ICount]
  21.       .Font.Size = 18
  22.       .Alignment = Align.Center
  23.       .AutoResize = True
  24.       .Padding = 5
  25.       .Tag = ICount
  26.       .Border = Border.Plain
  27.     End With
  28.     'palabras.Add(lb)     
  29.   Next
  30.   'Hago la misma operación, creo las etiquetas en el panel2, pero invisibles
  31.   For ICount As Integer = 0 To adisorderphrase.Max
  32.     lb = New Label(Panel2) As "words"
  33.     With lb
  34.       .text = ""
  35.       .Font.Size = 18
  36.       .Alignment = Align.Center
  37.       .AutoResize = True
  38.       .Padding = 5
  39.       .Visible = False 'Si no lo destruyo lo hago invisible
  40.       .Tag = ICount
  41.       .Border = Border.Plain
  42.     End With
  43.   Next
  44.  
  45.  
  47.  
  48. Public Sub words_enter()
  49.  
  50.   tobject = Last  
  51.   stext = Last.text
  52.  
  54.  
  55. Public Sub words_MouseDrag()
  56.  
  57.  
  58.   If Mouse.left Then    
  59.     Last.Drag(Last.text, "text/plain")
  61.  
  63.  
  64. Public Sub Button1_Click()
  65.  
  66.   Dim wrong As Boolean
  67.  
  68.   If Panel2.Children.Count = aphrase.Count Then
  69.     For r As Integer = 0 To aphrase.Max
  70.       tobject = Panel2.Children[r]
  71.       If aphrase[r] <> tobject.text Then
  72.         wrong = True
  73.         Break
  74.       Endif
  75.     Next    
  76.     If wrong Then
  77.       Message.Error(("The order of words isn't correct"), "OK")      
  78.     Else
  79.       Message.Info(("The order of words is correct"), "OK")
  80.     Endif  
  81.   Else
  82.     Message.Error(("There aren't enough words on the panel"), "OK")
  84.  
  86.  
  87. Public Sub Panels_Drop()
  88.  
  89.   Dim lb As Label
  90.       
  91.   If Drag.type = Drag.Text Then
  92.     For Each lb In Last.Children
  93.       If lb.Visible = False Then
  94.         lb.Visible = True
  95.         lb.Text = Drag.Data
  96.         Break
  97.       Endif
  98.     Next
  100.  
  101.   Drag.Source.Visible = False
  102.      



Tengo que traducir los textos, claro. Rolleyes

Os añado el código que funciona.

Siempre el verdadero problema es el entender el problema y como se debería hacer.

¿ Puedo borrar el control ?.
¿ Necesito borrar el control ?.
¿ Puedo reutilizar ese control ?.

Aún tiene un fallo menor, que es que la frase este en el orden correcto.

Saludos
Comunidad Gambas-es > Gambas > General > Problema al arrastrar un control