carmotri
21 de Abril del 2004

Hola,
quiero que un boton pueda ser movido por un usuario, y para ello le pongo Dragmode igual a 1, pero aun asi, cuando lo arrastro, se me ve el cuadro como se mueve, pero al soltarlo, no me lo deja en la nueva posicion ¿Que debo hacer?

Gracias

en?
21 de Abril del 2004

hola,
debes utilizar el evento DragDrop del formulario, o de otro control. Por ejemplo

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X- (Source.Width /2), Y - (Source.Height/2)
End Sub

Pero si 茅s un CommandButton no te reconocer谩 el evento Click con el rat贸n.
Puedes dejar DragMode a 0 - Manual, y hacer esto:

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If button=vbRightButton then Command1.Drag
End Sub

As铆, el bot贸n izquierdo del rat贸n se usar谩 para el evento Click, y el bot贸n derecho para hacer el "Arrastrar y soltar" del bot贸n.


Saludos.