positionnement getCursorPos/addline

Version imprimable

18/02/2008, 16h25
hugonoof

positionnement getCursorPos/addline

Bonjour,
J'aimerais tracer une ligne entre deux clic de souris.
J'ai essayé en recupérant les coordonnées du curseur a l'aide de getCursorPos, et ensuite de faire un Shapes.AddLine(x, y, xx, yy), mais voila mon trait ne se place jamais exactement ou j'ai cliqué, j'ai toujours des décalage (aprés recherche sur le forum il semblerait que ce soit du a un probleme de conversion entre pixel et point ...) , bref je galere et je trouve pas la solution.

Merci d'avance.
18/02/2008, 18h58
fring

Bonjour,

Ce que tu cherches à faire ne me semble pas vraiment réalisable parce que les coordonnées x et y de la position du curseur sont par rapport au coin supérieur gauche de l'écran et que les coordonnées des points de la ligne sont par rapport au coin supérieur gauche de la feuille.

Voilà pourquoi le décalage.

Eventuellement, tu places le curseur dans le coin supérieur gauche de ta feuille, tu prends note des coordonnées (exemple x = 30 et y = 130).

Ensuite, je ne sais pas comment est fait ton code, lorsque tu définis les points de ta ligne tu fais

Code:

ActiveSheet.Shapes.AddLine(x - 30, y - 130, xx - 30, yy - 130).Line.DashStyle = msoLineSingle

Mais ça ne sera pas de la haute précision...

@+
18/02/2008, 19h12
ucfoutu

Bonjour,

A utiliser donc en conjonction avec la fonction "ClientToScreen" de la librairie user32 de l'API de Windows.

A étudier...;)
18/02/2008, 19h23
fring

Bon...j'ai essayé, comme dans mon exemple x-30 et y-130 mais ça foire, j'ai oublié un petit détail...la position de la souris est en pixel et la position de la ligne en point :aie:

J'ai une petite question toute bête...pourquoi ne pas prendre une ligne et la tracer ? :?

Citation:

Envoyé par ucfoutu

Bonjour,

A utiliser donc en conjonction avec la fonction "ClientToScreen" de la librairie user32 de l'API de Windows.

A étudier...;)

Bien vu ;) je ne connaissais pas
19/02/2008, 08h45
hugonoof

Ok je comprends mieux, l'histoire du bord de la feuille et du bord de l'ecran, mais effectivement il n'y a pas que ça car le décalage n'est pas toujours egal, donc il doit y avoir un egalement un coefficient ...

Citation:

Envoyé par fring

J'ai une petite question toute bête...pourquoi ne pas prendre une ligne et la tracer ? :?

Mes lignes ne sont pas forcement parralelle ou perpendiculaire.

Je vais me renseigner du coté de "ClientToScreen", merci de vos repnse et si vous trouvez avant moi n'hesitez pas :D
19/02/2008, 09h28
fring

Citation:

Envoyé par hugonoof

Mes lignes ne sont pas forcement parralelle ou perpendiculaire.

Je ne vois pas le rapport http://smileys.sur-la-toile.com/repo...as-compris.gif

http://i29.servimg.com/u/f29/11/94/92/50/screen12.jpg
19/02/2008, 10h02
hugonoof

Ok je comprend mieux ta question, je pensais que tu voulais que je prenne une bordure de cellule et je trace, bref, je ne peux pas prendre l'outil et tracer car en tracant en fonction des cellules dans les lesquels le trait commence et fini je fais des calcul en macros, bref c'est un peu compliqué mais ca marche, il me reste plus qua materialiser par un trait entre mes deux clics.

Je n'arrive pas a utiliser ClientToScreen, sans doute un probleme avec le hwnd ?

GRRR. Ca me soule:

J'ai une erreur: "Convention d'appel de DLL incorrecte (erreur 49)"

Voila mon code:

Code:

1
2
3
4
5
6
7
 
Private Declare Function FindWindowA Lib "User32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Sub Workbook_Open()
Feuil2.hwnd = FindWindowA(vbNullString, Application.Caption)
MsgBox Feuil2.hwnd
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
'Dans "feuil2"
Public Declare Function GetCursorPos Lib "User32" (lpPoint As PointAPI) As Long
Public Declare Function ClientToScreen Lib "User32" (ByVal hwnd As Long, lpPoint As PointAPI)
 
 
Public Type PointAPI
    x As Long
    y As Long
End Type
 
Public PtCur As PointAPI
...
GetCursorPos PtCur
x = PtCur.x '* CvtPtPixel
 y = PtCur.y '* CvtPtPixel
MsgBox x
MsgBox y
'Jusque la tout va bien
ClientToScreen hwnd, PtCur

19/02/2008, 13h40
fring

Citation:

Envoyé par hugonoof

bref, je ne peux pas prendre l'outil et tracer car en tracant en fonction des cellules dans les lesquels le trait commence et fini je fais des calcul en macros, bref c'est un peu compliqué mais ca marche, il me reste plus qua materialiser par un trait entre mes deux clics.

Je n'arrive pas a utiliser ClientToScreen, sans doute un probleme avec le hwnd ?

Eventuellement une alternative, test le fichier joint et vois si ça peut te dépanner

Pièce jointe 25813
19/02/2008, 14h01
hugonoof

Merci bien, mais j'avais déja fait comme ça au début, puis je me suis apperçu que ce n'etait pas suffisant qu'il me fallait plus de précision dans le tracé et donc prendre toujours le milieu de la cellule n'etait pas assez préci.
19/02/2008, 14h58
fring

Ok, c'est un peu difficile d'essayer de bricoler quelque chose qui pourrait convenir sans vraiment en connaître l'utilisation exacte. Il me semblait avoir compris que tu avais besoin de connaître la cellule de début du trait et la cellule de fin.

Bin...là moi je calle, je reprend ma latte, mon crayon et ma gomme :D

Bonne chance et si tu trouves la solution, fais signe, même si je n'en ai pas l'usage, je suis intéressé de voir comment ça fonctionne.

@+
19/02/2008, 15h00
hugonoof

Merci quand meme.
Je pense que je ne suis pas loin il suffit que j'arrive a bien utiliser ClientToScreen, bon déja que j'arrive a l'utiliser tout simplement :D