CURSEUR ANIMÉ COULEUR (CUR ANI) DLL CLASSE [BRIBE SKIN B2]
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
27 juil. 2005 à 21:26
DblK
Messages postés51Date d'inscriptionvendredi 30 janvier 2004StatutMembreDernière intervention 2 octobre 2008
-
13 avril 2007 à 13:44
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
DblK
Messages postés51Date d'inscriptionvendredi 30 janvier 2004StatutMembreDernière intervention 2 octobre 2008 13 avril 2007 à 13:44
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
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 6 janv. 2007 à 00:36
salut,
aucune idée sous DotNet, désolé...
cs_prady92
Messages postés9Date d'inscriptionvendredi 16 septembre 2005StatutMembreDernière intervention16 février 2010 21 déc. 2006 à 18:32
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
cs_kcin
Messages postés63Date d'inscriptionvendredi 5 novembre 2004StatutMembreDernière intervention26 novembre 2012 13 nov. 2006 à 13:48
Trop cool merci infiniment !!!!!
Ca fonctionne comme sur des roulettes ^^
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 13 nov. 2006 à 13:17
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
++ ;)
cs_kcin
Messages postés63Date d'inscriptionvendredi 5 novembre 2004StatutMembreDernière intervention26 novembre 2012 13 nov. 2006 à 12:00
Salut, j'ai récupérer ton code est il fonctionne à merveille, sauf que je voudrait le mettre sur une MDI parent et là ça marche pas :'(
Est ce que c'est normal ou il y a un truc à rajouter ?
Coté MDI je suis un peu Noob...
FGab
Messages postés10Date d'inscriptiondimanche 19 juin 2005StatutMembreDernière intervention12 octobre 2005 2 sept. 2005 à 22:01
On n'attend plus que le B2 ;)
Je l'ai déjà dit mais ça faisait longtemps que je cherchais un truc comme ça ^^
Voilou :]
Je suis le reste de près. Et bonne soirée,
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 27 juil. 2005 à 22:56
nop, je dépose des bribes au fur et à mesure ;)
et je ne suis qu'au début...
PCPT
siadli
Messages postés15Date d'inscriptionmercredi 29 janvier 2003StatutMembreDernière intervention25 mars 2018 27 juil. 2005 à 22:43
slt alors le skin B2 finit ou pas?
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 27 juil. 2005 à 21:26
merci pour ce 10 ;)
mais de qui? des commentaires?
PCPT
13 avril 2007 à 13:44
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
6 janv. 2007 à 00:36
aucune idée sous DotNet, désolé...
21 déc. 2006 à 18:32
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
13 nov. 2006 à 13:48
Ca fonctionne comme sur des roulettes ^^
13 nov. 2006 à 13:17
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
++ ;)
13 nov. 2006 à 12:00
Est ce que c'est normal ou il y a un truc à rajouter ?
Coté MDI je suis un peu Noob...
2 sept. 2005 à 22:01
Je l'ai déjà dit mais ça faisait longtemps que je cherchais un truc comme ça ^^
Voilou :]
Je suis le reste de près. Et bonne soirée,
27 juil. 2005 à 22:56
et je ne suis qu'au début...
PCPT
27 juil. 2005 à 22:43
27 juil. 2005 à 21:26
mais de qui? des commentaires?
PCPT