Curseur animé couleur (cur ani) dll classe [bribe skin b2]

Soyez le premier à donner votre avis sur cette source.

Vue 45 568 fois - Téléchargée 1 467 fois


Description

Quel désastre de toujours subir un vieux curseur en noir et blanc et static pour personnaliser ses applications. évidemment, on peut toujours bidouiller, fichiers ressources etc, mais c'est jamais très propre, et difficilement modifiable.

cette classe utilise 2 méthodes distinctes

la première (SetSystemCursor) consiste à copier un état du curseur (exemple : CROSS), et de remplacer le curseur system par celui de son choix.
à vous de gérer ensuite à quels objets vous désirez attribuer l'état "modifié".
puis, à la destruction, on réintègre le curseur d'origine

la deuxième (SetClassLong) consiste à attribuer un curseur en correspondance à un hWnd

comme d'hab ; commentaires + notes ;)

Conclusion :


j'avais passé pas mal de temps à créer la première méthode, et une semaine après, j'ai trouvé la 2ème, qui était d'ailleurs bien plus complexe, avec une DLL externe, bref, j'ai mis les 2 méthodes totalement différentes.
A votre appréciation...

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
51
Date d'inscription
vendredi 30 janvier 2004
Statut
Membre
Dernière intervention
2 octobre 2008

Bravo,

Marche très bien.
On peut même choisir le curseur que l'on souhaite pour un contrôle (pas forcement la form).


Encore merci
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
46
salut,
aucune idée sous DotNet, désolé...
Messages postés
9
Date d'inscription
vendredi 16 septembre 2005
Statut
Membre
Dernière intervention
16 février 2010

Bonjour,

d'abord bravo,

j'ai converti votre code en vb dot net 2003, la partie SetClassLong fonctionne (après quelques modifs) mais la partie SetSystemCursor impossible, avez-vous essayé de faire la même chose en vb dot net 2003 ou même 2002 ?

D'avance merci
Messages postés
63
Date d'inscription
vendredi 5 novembre 2004
Statut
Membre
Dernière intervention
26 novembre 2012

Trop cool merci infiniment !!!!!
Ca fonctionne comme sur des roulettes ^^
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
46
salut,
les MDI c'est un peu particulier...

voici une possibilité plus ou moins orthodoxe (mais testé, ok)


Option Explicit
Private AfCursor As New Cls_Curseur
'
Private Sub MDIForm_Load()
Me.MousePointer = vbNoDrop
AfCursor.TypeApi = SetSystemCursor_
AfCursor.SaveMousePointer OCR_NO
AfCursor.LoadFromFile App.Path & "\anicrazi.ani"
AfCursor.SetAsDefaultCursor Me.hWnd
End Sub
'
Private Sub MDIForm_Unload(Cancel As Integer)
Set AfCursor = Nothing
End Sub


++ ;)
Afficher les 10 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.