EX. CONCRETS ! DEPLACER UNE FORM AVEC LA METHODE DU CLIQUE-TIRE

Signaler
Messages postés
245
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
21 juin 2004
-
Messages postés
21
Date d'inscription
mardi 17 juillet 2001
Statut
Membre
Dernière intervention
19 août 2007
-
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/4262-ex-concrets-deplacer-une-form-avec-la-methode-du-clique-tire

Messages postés
21
Date d'inscription
mardi 17 juillet 2001
Statut
Membre
Dernière intervention
19 août 2007

Il y a un moyen plus simple pour déplacer un object :

'Placer dans une feuille ou un module...

Public Mx As Single
Public My As Single

Public Function Mover(Frm As Object, Button As Integer, X As Single, Y As Single)
With Frm
If Button = vbLeftButton Then
.Move .Left + (X - Mx), .Top + (Y - My)
Else
Mx X: My Y
End If
End With
End Function

Dans la feuille active...

Exemple : Dans la section MyObject_MouseMove de l'objet
private sub MyObject(Index as integer,Button as Integer,Shift as integer,X as integer, y as single)
Mover MyObject(Index),Button,X,Y
end sub

'Vous permet de déplacer tous les objects d'un projet
'avec une seule ligne de commande

Bonne programmation à tous...
Messages postés
190
Date d'inscription
lundi 24 mars 2003
Statut
Membre
Dernière intervention
27 septembre 2005

Je teste a l'instant ta source

Super et en plus tres simple

ça vaut largement 10/10

A+
Messages postés
138
Date d'inscription
samedi 11 mai 2002
Statut
Membre
Dernière intervention
17 mai 2007

heu ! Je ne me rappelle plus, mais a la base, j'étais parti d'une simplefication de programme qui ne contenait pas que ça, et j'avais du modifier, donc c'est pas totalement moi qui k'est fait !
Messages postés
245
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
21 juin 2004

ça ma bien servi ta source :p
je savé mem pas ke CT toi ki l'AV fé !

Allez 10/10