Comentarios en: Mover y soltar controles con Drag & Drop (Visual Basic) http://www.davidsuarez.es/2007/11/mover-y-soltar-controles-con-drag-drop-visual-basic/ Web de recursos de programación y de todo un poco Mon, 06 Feb 2012 17:16:54 +0000 hourly 1 http://wordpress.org/?v=3.3.1 Por: Ramon http://www.davidsuarez.es/2007/11/mover-y-soltar-controles-con-drag-drop-visual-basic/comment-page-1/#comment-4387 Ramon Thu, 26 May 2011 11:23:41 +0000 http://www.davidsuarez.es/?p=440#comment-4387 Cordial saludo, Soy principiante en manejar visual basic y me gustaría saber ¿Que controles está usando para hacer funcionar el codigo?, y ¿cuál es el nombre de cada uno de ellos? Le agradecería su respuesta. Cordial saludo,

Soy principiante en manejar visual basic y me gustaría saber ¿Que controles está usando para hacer funcionar el codigo?, y ¿cuál es el nombre de cada uno de ellos?

Le agradecería su respuesta.

]]> Por: JCoyh http://www.davidsuarez.es/2007/11/mover-y-soltar-controles-con-drag-drop-visual-basic/comment-page-1/#comment-3613 JCoyh Tue, 31 Aug 2010 20:25:42 +0000 http://www.davidsuarez.es/?p=440#comment-3613 Saludos. Podría aplicar este código al VBasic de Excel ? de ser así... dónde puedo conseguir la biblioteca que maneja el Evento DragDrop ? Muchas gracias Saludos. Podría aplicar este código al VBasic de Excel ? de ser así… dónde puedo conseguir la biblioteca que maneja el Evento DragDrop ?

Muchas gracias

]]> Por: yelinna http://www.davidsuarez.es/2007/11/mover-y-soltar-controles-con-drag-drop-visual-basic/comment-page-1/#comment-2629 yelinna Thu, 10 Sep 2009 14:50:34 +0000 http://www.davidsuarez.es/?p=440#comment-2629 Parece que no acepta restar tres números cuando se trata de datos Single. Pero ya lo corregí: Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) Dim ejeY, ejeX As Single ejeX = X - 60 ejeY = Y - 60 ejeX = ejeX - DX ejeY = ejeY - DY Source.Visible = True Source.Move ejeX, ejeY Source.Drag vbEndDrag Source.ZOrder End Sub Gracias por el código, es justo lo que necesitaba :D :D :D Parece que no acepta restar tres números cuando se trata de datos Single. Pero ya lo corregí:

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Dim ejeY, ejeX As Single

ejeX = X – 60
ejeY = Y – 60

ejeX = ejeX – DX
ejeY = ejeY – DY

Source.Visible = True
Source.Move ejeX, ejeY
Source.Drag vbEndDrag
Source.ZOrder
End Sub

Gracias por el código, es justo lo que necesitaba :D :D :D

]]>