Récupérer position du curseur sur une Form tranparenteRésolu

Question

Bonjour, 
Récupérer la position du curseur dans une Form n'est pas vraiment un problème. Mais cela semble plus compliqué si le BackColor de cette Form est transparent. Autrement dit si la valeur de la propriété TransparencyKey de la Form est égale à Celle du BackColor.
Auriez-vous une solution? D'avance je vous fais part de mes sincères remerciements.

ucfoutu · Accepted Answer

Si (et seulement si), à la fois :
- l'évènement Mouse_Move "échappe" sous VB.Net à un Form Transparent
- VB.Net n'a pas de solution native (évènement autre)
Tu peux toujours utiliser un Timer et ce dont je t'ai parlé dans mon premier message...
 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

ucfoutu · Answer

Bonjour,
Dès lors que tu ne précises pas si cette "récupération de position du curseur" doit se faire dans un évènement Mouse_Move, je vais te répondre ainsi :
- on peut toujours extraire la position du curseur par rapport à l'écran
- on peut toujours extraire les coordonnées (Left et Top) du form actif
- le reste n'est qu'arithmétique.
Si, maintenant, tu souhaites faire cela dans l'évènement de déplacement sur ton Form (au Mouse_Move, donc), c'est autre chose... Mais comme tu n'en as rien dit, ma foi ... tu as ta réponse.

Whismeril · Answer

Bonsoir,

cela vient du fait que la Form n'est pas transparente, mais évidée.
Si tu as un raccourci sur ton bureau, tu verras que tu peux cliquer dessus au travers de ta form.

Est ce que jouer sur l'opacité répondrait à ton besoin?

Magentha · Answer

Merci pour vos réponses. 
Mon projet est de créer des contrôles Boutons dans un Form et du fait que celui-ci soit  transparent et que sa propriété BorderStyle soit sur "None"; d'avoir à l’exécution du code l'impression de boutons volants ou appartenants au fond d'écran du PC. 
Il serait intéressant de pouvoir positionner cet ensemble de boutons sur l'écran selon son bon vouloir, pour cela il me semble nécessaire de pouvoir déterminer la position du curseur ainsi que l'évènement MouseDown pour pouvoir draguer le Form sur l'écran.
Si vous avez une idée du code nécessaire merci pour votre aide ...

ucfoutu · Answer

Je ne comprends pas vraiment l'utilité de tout cela, mais voici quelques réflexions :
1) un form "évidé" (pour reprendre l'expression utilisée par Whismeril), n'est "présent" que là où il "est" (les "évidements" n'en sont pas des parties) et ne subit donc des évènements que là où il est.
2) un form translucide (opacité réduite) occupe toute son aire (rectangle) et laisse entrevoir ce qui se trouve sous lui, mais on ne peut évidemment intervenir sur les objets qu'il "recouvre". Il conserve, lui, la totalité de ses évènements.
3) vouloir  le beurre et l'argent du beurre étant une démarche utopique, il va falloir choisir entre ce que l'on veut (1) ou 2))
4) si l'on choisit le 1) : plusieurs possibilités, qui relèvent toutes de l'ingéniosité, mais ajoutent des lourdeurs inévitables :
J'ai cité par exemple plus haut l'utilisation d'un timer pour relever en son "tick" la position du curseur sur l'écran et agir conditionnellement sur le form. 
Il y en a d'autres (plus lourdes encore)
5) si l'on choisit le 2) : ===>> j'"ai lu dans vos messages que des difficultés étaient rencontrées pour donner au form une translucidité.
Qu'à cela ne tienne. Si VB.Net présente une carence, elle peut être contournée en utilisant directement les fonctions de l'A1pi de Windows.
Voilà ce que je ferais, par exemple, sous VB6 :
a) les déclarations des fonctions 
Private Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib "USER32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Ces déclarations sont à modifier légèrement sous VB.Net (les types Long)
b) deux exemples de leur utilisation :
exemple 1 : 
  SetWindowLong Me.hWnd, (-20), &H80000    SetLayeredWindowAttributes Me.hWnd, 0, 155, &H2
exemple 2 :
SetWindowLong Me.hWnd, (-20), &H81000    SetLayeredWindowAttributes Me.hWnd, 0, 100, &H3
(ou Me.hwnd est le handle du form)
6) une autre démarche (mais elle dépend considérablement du but recherché) serait de ne toucher ni à la transparence ni à  la translucidité du form et de lui attribuer (s'il a, comme sous VB6, une propriété Picture)  l'image de la partie de l'écran qu'il recouvre. On voit tout de suite la lenteur induite puisqu'il faudra modifier cette image tout au long des déplacements éventuels du Form. Et là également, il faudrait (c'est du moins une nécessité sous VB6) utiliser des fonctions de l'Api de Windows pour extraire l'image occupée par le rectangle correspondant de l'écran...
Voilà ... ce n'étaient qu'une partie de mes réflexions à ce sujet. Je vous laisse maintenant "voir" ...

---- 
 
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.

Whismeril · Answer

Bonjour,

donc comme tu le dis Uc tu cherches à avoir le beurre et l'argent du beurre?

Oriente toi alors sur le "hook de souris", https://support.microsoft.com/fr-fr/kb/319524
qui fait intervenir user32, comme Uc te l'as proposé.

ucfoutu · Answer

Les problèmes rencontrés résultent du fait que son form est sans sans bordure (raison pour laquelle il cherche à utiliser son évènement Mouse_move pour pouvoir le déplacer).
Il serait dans ce cas nettement moins "onéreux" de prévoir un bouton (un contrôle quelconque, en fait) ajouté à son form là où le veut. Il suffirait alors, dans l'évènement Mouse_move de CE contrôle, de provoquer le déplacement du Form (et non du contrôle dans le form).

Rykudos · Answer

bonjour, le souci ne viens du fait qu'il n'y ait pas de bordure mais plutôt du TransparencyKey identique au BackColor. Ayant déjà été confronté a ce problème je l'ai pallier en récupérant la position de la sourie a l'écran et en y soustrayant la position de la form. Voici un petit exemple, qui détecte également les clic gauche et droit de la sourie en espèrent que cela t'aide. Private Delegate Sub delegPositionChange(ByVal PositionSourie As Point) Private Position As Point Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Timer1.start() End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick If Me.InvokeRequired Then Me.Invoke(New delegPositionChange(AddressOf AffichePosition), Position) End If AffichePosition(Control.MousePosition) If Control.MouseButtons = Windows.Forms.MouseButtons.Left Then 'clic gauche End If If Control.MouseButtons = Windows.Forms.MouseButtons.Right Then 'clic droit End If End Sub Private Sub AffichePosition(ByVal PositionSourie As Point) Dim PositionForm As Point = New Point(Me.Location.X, Me.Location.Y) Dim PositionSourieForm As Point = New Point(PositionSourie.X - PositionForm.X, PositionSourie.Y - PositionForm.Y) If PositionSourieForm.X > 0 And PositionSourieForm.Y > 0 And PositionSourieForm.X < Me.Width And PositionSourieForm.Y < Me.Height Then Label1.Text = PositionSourieForm.X Label2.Text = PositionSourieForm.Y Else Label1.Text = "Hors Form" Label2.Text = "Hors Form" End If End Sub

Récupérer position du curseur sur une Form tranparente

8 réponses

Votre réponse

Discussions similaires