Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Drag an Image
Message
De
19/02/2009 12:56:19
Jay Johengen
Altamahaw-Ossipee, Caroline du Nord, États-Unis
 
 
À
19/02/2009 12:35:58
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Divers
Thread ID:
01382908
Message ID:
01382944
Vues:
89
>>>That was kind of cool, but whenever I try to drag the image, it flies off the form in the direction I drag it.
>
>Sorry, that's my bad conversion from form moving code!
>
>Change the MouseMove() to this:
>
>
>LPARAMETERS nButton, nShift, nXCoord, nYCoord
>LOCAL lnDifferenceX, lnDifferenceY
>IF nButton = 1 AND (THISFORM.mousedownx != 0 OR THISFORM.mousedowny != 0)
>  m.lnDifferenceX = m.nXCoord - THISFORM.mousedownx
>  m.lnDifferenceY = m.nYCoord - THISFORM.mousedowny
>  THIS.Move(THIS.LEFT + m.lnDifferenceX, THIS.TOP + m.lnDifferenceY, This.Width, This.Height)
>  THIS.MouseDown(nButton, nShift, nXCoord, nYCoord)
>ENDIF
>
>
You da Man! Other than changing THISFORM to THIS, it worked perfectly. I know you got it from somewhere else, but this was really cool.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform