DragDrop
Publicado por erque (130 intervenciones) el 28/09/2004 17:04:32
Hola. Estoy intentando mediante arrastrar y soltar conseguir soltar un textbox dentro de un control Image. Utilizo el siguiente código que he visto por ahí, dentro del dragdrop del image
Dim CA As Single, CB As Single
CA = Source.Width / 2
CB = Source.Height / 2
Source.Move X - CA, Y - CB
Pero no me funciona correctamente. Al soltar no lo coloca donde yo he soltado.
A su vez, si muevo la imagen, al pasar por encima de un textbox me da a veces error pero tampoco se porqué es.
¿Me podeis dar la solución por favor?
Muchas gracias.
Dim CA As Single, CB As Single
CA = Source.Width / 2
CB = Source.Height / 2
Source.Move X - CA, Y - CB
Pero no me funciona correctamente. Al soltar no lo coloca donde yo he soltado.
A su vez, si muevo la imagen, al pasar por encima de un textbox me da a veces error pero tampoco se porqué es.
¿Me podeis dar la solución por favor?
Muchas gracias.
Valora esta pregunta
0