CLICK AND GO 3D

Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
- - Dernière réponse : simoonir
Messages postés
1
Date d'inscription
vendredi 17 septembre 2010
Statut
Membre
Dernière intervention
17 septembre 2010
- 17 sept. 2010 à 03:28
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/37873-click-and-go-3d

bouv
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
-
Il manque les API GetClientRect et SetRect

Une fois ajoutée, c'est tout simplement génial !

10/10
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
58 -
très sympatique ^^

j'ai modifié le MouseMove en :

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
mMcX x: mMcY y
If Button = vbLeftButton Then
MouseDown Button, Shift, x, y
End If
End Sub
Neo.balastik
Messages postés
797
Date d'inscription
jeudi 17 mai 2001
Statut
Membre
Dernière intervention
5 mai 2009
4 -
Que dire... du très grand art ! Bravo !
cs_EBArtSoft
Messages postés
4531
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
5 -
Renfield> J'y avais pensé mais pour eviter de recalculer a chaque mouvement de souris mieu vaux declencher que lorsque cela est reelement demandé par l'utilisateur.
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
58 -
c'est pour le fun de le voir courrir partout