Un sencillo ejemplo que explica como puedes implementar Arrastrar y soltar (Drag and Drog) en tus formularios. En el ejemplo podemos ver como se puede mover un textbox por el formulario
o = Createobject(_form1_)
o.Show(1)
Define Class form1 As Form
Add Object text1 As
TextBox With ;
READONLY = .F., ;
WIDTH = 100, ;
Value = "Ruedame" ,;
NAME = "Text1"
Procedure DragDrop
Lparameters oSource,
nXCoord, nYCoord
oSource.Top = nYCoord - oSource.YCoord
oSource.Left = nXCoord - oSource.XCoord
Endproc
Procedure text1.MouseDown
Lparameters nButton,
nShift, nXCoord, nYCoord
This.AddProperty(_XCoord_,nXCoord-This.Left)
This.AddProperty(_YCoord_,nYCoord-This.Top)
This.Drag(1)
Endproc
Procedure text1.DragDrop
Lparameters oSource,
nXCoord, nYCoord
Thisform.DragDrop(oSource, nXCoord, nYCoord)
Endproc
Enddefine
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
