cs_mds
Messages postés21Date d'inscriptionmardi 17 juillet 2001StatutMembreDernière intervention19 août 2007 30 oct. 2008 à 08:50
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...
Arsena
Messages postés190Date d'inscriptionlundi 24 mars 2003StatutMembreDernière intervention27 septembre 2005 4 nov. 2004 à 09:31
Je teste a l'instant ta source
Super et en plus tres simple
ça vaut largement 10/10
A+
Ludolpif
Messages postés138Date d'inscriptionsamedi 11 mai 2002StatutMembreDernière intervention17 mai 2007 14 janv. 2003 à 19:10
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 !
thepopolinux
Messages postés245Date d'inscriptionjeudi 9 janvier 2003StatutMembreDernière intervention21 juin 2004 13 janv. 2003 à 19:01
ça ma bien servi ta source :p
je savé mem pas ke CT toi ki l'AV fé !
30 oct. 2008 à 08:50
'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...
4 nov. 2004 à 09:31
Super et en plus tres simple
ça vaut largement 10/10
A+
14 janv. 2003 à 19:10
13 janv. 2003 à 19:01
je savé mem pas ke CT toi ki l'AV fé !
Allez 10/10