Détecter le type de curseur de la courisRésolu

Question

Bonjour à toutes et à tous.

Comme il est dit dans le titre, je souhaite détecter le type de curseur de souris affiché. Pour être plus précis, je cherche à détecter quel curseur est affiché (ex : WaitCursor, IBeam ...) par Windows, et cela afin de pouvoir le remplacer par un curseur personnalisé approprié (dans mon programme uniquement).

Je sais déjà comment remplacer le curseur par un autre de son choix.

Je tiens à préciser que définir les curseurs à utiliser un par un à l'ouverture du programme est dans mon cas à éviter, car un trop grand nombre de formulaires sont présents dans mon projet.

Merci d'avance à toute réponse constructive,
désolé si les explication ne sont pas très simples, si besoin de précisions, je suis à disposition.

ucfoutu · Answer

Bonjour,
Un "type de curseur" ne veut pas dire grand chose
D'autant qu'un curseur peut toujours avoir été personnalisé, voire carrément créé.
Je ne comprends pas pourquoi tu cherches à déterminer cela. Il te suffit d'imposer celui que tu veux en fonction du contexte de ton choix, quel que soit le curseur en vigueur avant celui que tu imposes !
Si tu cherches par contre à mémoriser le curseur système par défaut avant ton intervention en vue de le restituer ensuite, c'est autre chose (et c'est assez risqué, en cas notamment d'interruption brutale et inopinée).

cs_Le Pivert · Answer

Bonjour,

  Public Shared Property Current As Cursor
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Current = New Cursor(Cursor.Current.Handle)
        MsgBox(Current.ToString)
    End Sub 
 
Voilà

cs_Le Pivert · Answer

essaye ceci:

Public Class Form1
    Public Shared Property Current As Cursor
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Me.Cursor = Cursors.Hand
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Me.Cursor = Cursors.Cross
    End Sub
    Private Sub Form1_MouseEnter(sender As Object, e As System.EventArgs) Handles Me.MouseEnter
        Dim buttonToolTip As New ToolTip()
        Current = New Cursor(Cursor.Current.Handle)
        buttonToolTip.ToolTipTitle = "Curseur"

buttonToolTip.UseFading = True

buttonToolTip.UseAnimation = True

buttonToolTip.IsBalloon = True

buttonToolTip.ShowAlways = True

buttonToolTip.AutoPopDelay = 5000

buttonToolTip.InitialDelay = 1000

buttonToolTip.ReshowDelay = 500

buttonToolTip.IsBalloon = True

buttonToolTip.SetToolTip(Me, Current.ToString)
    End Sub
End Class
 

a adapter

ucfoutu · Answer

Je n'ai apparemment pas dû/su être assez clair (ou insistant) :
1) les curseurs qu'utilise Windows sont tous ses propres curseurs/système.
Ils ont tous là (rien à voir avec VB) :
https://msdn.microsoft.com/en-us/library/windows/desktop/ms648395%28v=vs.85%29.aspx
2) la fonction GetCursor de la librairie User32 de l'Api de Windows retourne le handle du cursor en cours (handle correspondant à l'un de ceux montrés en 1))
3) modifier ce curseur est bien évidemment possible : utilisation de la fonction SetSystemCursor de la librairie user32 de l'Api de Windows. Le curseur de remplacement est à acquérir depuis un fichier par utilisatioin de la fonction LoadCursorFromFile de la librairie User32 de l'Api de Windows
4) le changement de curseur par Windows est le résultat d'un évènement et ne déclenche pas, lui, un évènement. Le repérer ne peut donc se faire que par l'utilisation d'un timer ou autre (addressof)
5) Je répète qu'il est très risqué de procéder à un tel changement.
(je l'ai dit plus haut et ai dit pourquoi). J'ajoute que ce changement n'affecte pas que l'appli en cours, mais toutes les applis en cours !
Voilà voilà ...
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

Détecter le type de curseur de la couris

4 réponses

Votre réponse