Recuperer l'icone par defaut de la souris

rivierem Messages postés 25 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 12 avril 2006 - 17 juin 2003 à 11:45
rivierem Messages postés 25 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 12 avril 2006 - 17 juin 2003 à 14:34
Voila j'aimerais recuperer l'icone par defaut de l'utilisateur pour pouvoir la changer et ensuite la remettre
J'ai essaye GetCursor mais il recupere le pointeur en cours
Quelqu'un aurait il une solution merci d'avance

2 réponses

sylric Messages postés 91 Date d'inscription mardi 21 janvier 2003 Statut Membre Dernière intervention 22 août 2003
17 juin 2003 à 13:39
il suffit de dire, avant de le récupérer, que le curseur en cours est le curseur par défaut :
Screen.MousePointer = 1

Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function GetCursor Lib "user32" () As Long
Private Sub Form_Paint()
Screen.MousePointer = 1
DrawIcon Picture1.hdc, 0, 0, GetCursor
End Sub
0
rivierem Messages postés 25 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 12 avril 2006
17 juin 2003 à 14:34
En fait je veux recuperer le pointeur du profil car l'icone qui est avant le programme n'est pas la bonne
merci quand meme ton idee va me servir pour autre chose
0
Rejoignez-nous