Páginas

domingo, 28 de agosto de 2011

Ejemplo de Drag & Drop

Gracias al foro de http://www.gambas-es.org/ y a sus integrantes que me han ayudado a resolver mis dudas sobre drag y drop, he podido realizar este pequeño programa para ejemplo de su aplicación.
Se trata de utilizar drag y drop entre textbox y listbox, (pasarse datos con coger y soltar), que resultara muy cómodo al usuario de nuestros programas a la hora de añadir datos, moverlos, etc..

Y este es el codigo del formulario principal:

' Gambas class file
'propiedades drog:
'TextBox2.Drop debes declararlas desde el editor de propiedades TRUE
'ListBox1.Drop debes declararlas desde el editor de propiedades TRUE
'listbox2.Drop debes declararlas desde el editor de propiedades TRUE
PUBLIC SUB Form_Open()
ListBox1.Add("Andalucia")
ListBox1.Add("Canarias")
listbox1.add("Murcia")
END
'coger
PUBLIC SUB TextBox1_MouseDrag()
IF Mouse.Left THEN
TextBox1.Drag(TextBox1.Text)
ENDIF
END
PUBLIC SUB ListBox1_MouseDrag()
IF Mouse.Left THEN
listbox1.Drag(ListBox1[ListBox1.index].text)
ENDIF
END
PUBLIC SUB ListBox2_MouseDrag()
IF Mouse.Left THEN
listbox2.Drag(ListBox2[ListBox2.index].text)
ENDIF
END
'soltar
PUBLIC SUB TextBox2_Drop()
TextBox2.text = Drag.Data
END
PUBLIC SUB ListBox1_Drop()
ListBox1.Add(Drag.data)
END
PUBLIC SUB listbox2_Drop()
ListBox2.Add(Drag.data)
END

Aqui teneis el codigo fuente

1 comentario:

  1. Dear Sir,
    When I try to extract 'Cogerysoltar-0.0.1.tar.gz', I receive this errors:

    tar: This does not look like a tar archive
    tar: Skipping to next header
    tar: Exiting with failure status due to previous errors

    Thank you.

    ResponderEliminar