-----Original Message-----
De: Alberto López <frasys@feedback.net.ar>
Para: VB-ESP <vb-esp@ccc.uba.ar>
Fecha: Sábado 29 de Noviembre de 1997 5:06 PM
Asunto: (VB-ESP) Para mover un control en RunTime


Hola Lista,
>Alguien tiene idea como pedo hacer para que mediante el mouse, pueda
>mover un control(en RunTime), moverlo de lugar dentro de la pantalla, así
>como lo puedo hacer un un form.


Supón que tienes un único control CommandButton en un formulario. El
siguiente código te da la solución:
*****************************
Option Explicit

Private Sub Command1_Click()
  ' Sólo establece una diferencia entre click izquierdo y arrastre derecho
  MsgBox "Hola amigo"
End Sub

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
  If Button And vbRightButton Then ' ¿Está oprimido el botón derecho?
    Command1.Drag vbBeginDrag ' Inicie el arrastre
  End If
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As
Single, Y As Single)
  Command1.Drag vbEndDrag ' Finalice el arrastre
End Sub

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
  ' Nótese que este evento es de FORM y ocurre cuando éste ha sentido
  ' que algo le ha caido encima.
  ' Es menester saber para qué sirve cada parámetro:
  ' Source: Es el control que cayó encima del formulario
  ' X y Y: Son las coordenadas donde cayó el control.
  ' Es posible que se necesiten algunos cálculos extra para saber el lugar
exacto
  ' donde se colocará el control.

  Source.Move X, Y ' Mueva el control

End Sub

+¡Saludos desde México!+
| |
| .+'~~'+. |
| * Tron * David.BAS |
| `+,__,+' |
| |
+-adgarza@spin.com.mx--+