problemas con Dragmode

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.