Animer une icône au lancement du userform

Bonjour
Grâce à Jacques93, j'ai une procédure qui me permet d'animer une icône
Je souhaite en fait que celle-ci s'anime au lancement du userform
Je vous remercie
Didier

Private Declare Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Private Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long

Private Sub Label3_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
Dim hCursor As Long

hCursor = LoadCursorFromFile _
(Environ("Windir") & "Cursorsdrum.ani")
If hCursor > 0 Then SetCursor hCursor
End Sub

bonjour Didier,

remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove

isabelle

Bonjour
Grâce à Jacques93, j'ai une procédure qui me permet d'animer une icône
Je souhaite en fait que celle-ci s'anime au lancement du userform
Je vous remercie
Didier

Private Declare Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Private Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long

Private Sub Label3_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
Dim hCursor As Long

hCursor = LoadCursorFromFile _
(Environ("Windir") & "Cursorsdrum.ani")
If hCursor > 0 Then SetCursor hCursor
End Sub

Bonjour Isabelle

Je suis interessé par le même sujet, j'ai donc fait un essai dans un fichier
d'Excelabo dans lequel j'ai inséré un de mes Userform où j'ai 7 images, dans
l'image 7 j'ai mis un gif animé nommé Amicalement.gif.

J'ai modifié la macro dont on parle dans le module 2 en mettant :
Private Sub UserForm1_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
Dim hCursor As Long

hCursor = LoadCursorFromFile _
(Environ("Windir") & "ExcelaboAmicalement.gif")
If hCursor > 0 Then SetCursor hCursor
End Sub

Mon gif animé est dans le répertoire Excelabo, quant j'ouvre le Userform1
l'image7 n'est pas animée, où est l'erreur.
http://cjoint.com/?fxjWVay4ro

@+ j'espère

bonjour Didier,

remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove

isabelle

Bonjour
Grâce à Jacques93, j'ai une procédure qui me permet d'animer une icône
Je souhaite en fait que celle-ci s'anime au lancement du userform
Je vous remercie
Didier

Private Declare Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Private Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long

Private Sub Label3_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
Dim hCursor As Long

hCursor = LoadCursorFromFile _
(Environ("Windir") & "Cursorsdrum.ani")
If hCursor > 0 Then SetCursor hCursor
End Sub

bonjour Jean Paul,

est ce que le gif est dans le répertoire
C:winntExcelaboAmicalement.gif
ou
C:AutreWinSelonLaVersionExcelaboAmicalement.gif

dépendamment de ce que donne
MaVersion = Environ("Windir")

isabelle

Bonjour Isabelle

Je suis interessé par le même sujet, j'ai donc fait un essai dans un fichier
d'Excelabo dans lequel j'ai inséré un de mes Userform où j'ai 7 images, dans
l'image 7 j'ai mis un gif animé nommé Amicalement.gif.

J'ai modifié la macro dont on parle dans le module 2 en mettant :
Private Sub UserForm1_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
Dim hCursor As Long

hCursor = LoadCursorFromFile _
(Environ("Windir") & "ExcelaboAmicalement.gif")
If hCursor > 0 Then SetCursor hCursor
End Sub

Mon gif animé est dans le répertoire Excelabo, quant j'ouvre le Userform1
l'image7 n'est pas animée, où est l'erreur.
http://cjoint.com/?fxjWVay4ro

@+ j'espère

bonjour Didier,

remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove

isabelle

Bonjour
Grâce à Jacques93, j'ai une procédure qui me permet d'animer une icône
Je souhaite en fait que celle-ci s'anime au lancement du userform
Je vous remercie
Didier

Private Declare Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Private Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long

Private Sub Label3_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
Dim hCursor As Long

hCursor = LoadCursorFromFile _
(Environ("Windir") & "Cursorsdrum.ani")
If hCursor > 0 Then SetCursor hCursor
End Sub

J'ai cherché, je n'ai pas ces répertoires
Mon Amicalement.gif est dans le même répertoire que mon fichier excel et ce
répertoire je l'ai appelé EXCELABO.
donc dans C:DOCEXCELABO
Y-a-t-il des contraintes particulières pour les Userform?
@+ j'espère

bonjour Jean Paul,

est ce que le gif est dans le répertoire
C:winntExcelaboAmicalement.gif
ou
C:AutreWinSelonLaVersionExcelaboAmicalement.gif

dépendamment de ce que donne
MaVersion = Environ("Windir")

isabelle

Bonjour Isabelle

Je suis interessé par le même sujet, j'ai donc fait un essai dans un fichier
d'Excelabo dans lequel j'ai inséré un de mes Userform où j'ai 7 images, dans
l'image 7 j'ai mis un gif animé nommé Amicalement.gif.

J'ai modifié la macro dont on parle dans le module 2 en mettant :
Private Sub UserForm1_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
Dim hCursor As Long

hCursor = LoadCursorFromFile _
(Environ("Windir") & "ExcelaboAmicalement.gif")
If hCursor > 0 Then SetCursor hCursor
End Sub

Mon gif animé est dans le répertoire Excelabo, quant j'ouvre le Userform1
l'image7 n'est pas animée, où est l'erreur.
http://cjoint.com/?fxjWVay4ro

@+ j'espère

bonjour Didier,

remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove

isabelle

Bonjour
Grâce à Jacques93, j'ai une procédure qui me permet d'animer une icône
Je souhaite en fait que celle-ci s'anime au lancement du userform
Je vous remercie
Didier

Private Declare Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Private Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long

Private Sub Label3_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
Dim hCursor As Long

hCursor = LoadCursorFromFile _
(Environ("Windir") & "Cursorsdrum.ani")
If hCursor > 0 Then SetCursor hCursor
End Sub

refait un essaie en modifient cette ligne :

hCursor = LoadCursorFromFile _
(Environ("Windir") & "ExcelaboAmicalement.gif")

par:

hCursor = LoadCursorFromFile("C:DOCExcelaboAmicalement.gif")

isabelle

J'ai cherché, je n'ai pas ces répertoires
Mon Amicalement.gif est dans le même répertoire que mon fichier excel et ce
répertoire je l'ai appelé EXCELABO.
donc dans C:DOCEXCELABO
Y-a-t-il des contraintes particulières pour les Userform?
@+ j'espère

bonjour Jean Paul,

est ce que le gif est dans le répertoire
C:winntExcelaboAmicalement.gif
ou
C:AutreWinSelonLaVersionExcelaboAmicalement.gif

dépendamment de ce que donne
MaVersion = Environ("Windir")

isabelle

Bonjour Isabelle

Je suis interessé par le même sujet, j'ai donc fait un essai dans un fichier
d'Excelabo dans lequel j'ai inséré un de mes Userform où j'ai 7 images, dans
l'image 7 j'ai mis un gif animé nommé Amicalement.gif.

J'ai modifié la macro dont on parle dans le module 2 en mettant :
Private Sub UserForm1_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
Dim hCursor As Long

hCursor = LoadCursorFromFile _
(Environ("Windir") & "ExcelaboAmicalement.gif")
If hCursor > 0 Then SetCursor hCursor
End Sub

Mon gif animé est dans le répertoire Excelabo, quant j'ouvre le Userform1
l'image7 n'est pas animée, où est l'erreur.
http://cjoint.com/?fxjWVay4ro

@+ j'espère

bonjour Didier,

remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove

isabelle

Bonjour
Grâce à Jacques93, j'ai une procédure qui me permet d'animer une icône
Je souhaite en fait que celle-ci s'anime au lancement du userform
Je vous remercie
Didier

Private Declare Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Private Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long

Private Sub Label3_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
Dim hCursor As Long

hCursor = LoadCursorFromFile _
(Environ("Windir") & "Cursorsdrum.ani")
If hCursor > 0 Then SetCursor hCursor
End Sub

J'ai essayé, ça marche pas.

Je ne comprends pas ces instructions car même si je supprime les gifs ils
restent bien dans mes 7 images.Rappel le gif animé est dans l'image7 du
Userform1 et le gif n'est pas supprimé.

@+ j'espère

refait un essaie en modifient cette ligne :

hCursor = LoadCursorFromFile _
(Environ("Windir") & "ExcelaboAmicalement.gif")

par:

hCursor = LoadCursorFromFile("C:DOCExcelaboAmicalement.gif")

isabelle

J'ai cherché, je n'ai pas ces répertoires
Mon Amicalement.gif est dans le même répertoire que mon fichier excel et ce
répertoire je l'ai appelé EXCELABO.
donc dans C:DOCEXCELABO
Y-a-t-il des contraintes particulières pour les Userform?
@+ j'espère

bonjour Jean Paul,

est ce que le gif est dans le répertoire
C:winntExcelaboAmicalement.gif
ou
C:AutreWinSelonLaVersionExcelaboAmicalement.gif

dépendamment de ce que donne
MaVersion = Environ("Windir")

isabelle

Bonjour Isabelle

Je suis interessé par le même sujet, j'ai donc fait un essai dans un fichier
d'Excelabo dans lequel j'ai inséré un de mes Userform où j'ai 7 images, dans
l'image 7 j'ai mis un gif animé nommé Amicalement.gif.

J'ai modifié la macro dont on parle dans le module 2 en mettant :
Private Sub UserForm1_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
Dim hCursor As Long

hCursor = LoadCursorFromFile _
(Environ("Windir") & "ExcelaboAmicalement.gif")
If hCursor > 0 Then SetCursor hCursor
End Sub

Mon gif animé est dans le répertoire Excelabo, quant j'ouvre le Userform1
l'image7 n'est pas animée, où est l'erreur.
http://cjoint.com/?fxjWVay4ro

@+ j'espère

bonjour Didier,

remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove

isabelle

Bonjour
Grâce à Jacques93, j'ai une procédure qui me permet d'animer une icône
Je souhaite en fait que celle-ci s'anime au lancement du userform
Je vous remercie
Didier

Private Declare Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Private Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long

Private Sub Label3_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
Dim hCursor As Long

hCursor = LoadCursorFromFile _
(Environ("Windir") & "Cursorsdrum.ani")
If hCursor > 0 Then SetCursor hCursor
End Sub

bonjour Didier,

remplace l'événement
Label3_MouseMove
par
UserForm_MouseMove

isabelle

Bonjour
Grâce à Jacques93, j'ai une procédure qui me permet d'animer une icône
Je souhaite en fait que celle-ci s'anime au lancement du userform
Je vous remercie
Didier

Private Declare Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Private Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long

Private Sub Label3_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
Dim hCursor As Long

hCursor = LoadCursorFromFile _
(Environ("Windir") & "Cursorsdrum.ani")
If hCursor > 0 Then SetCursor hCursor
End Sub

J'ai essayé, ça marche pas.

Je ne comprends pas ces instructions car même si je supprime les gifs ils
restent bien dans mes 7 images.Rappel le gif animé est dans l'image7 du
Userform1 et le gif n'est pas supprimé.

@+ j'espère

refait un essaie en modifient cette ligne :

hCursor = LoadCursorFromFile _
(Environ("Windir") & "ExcelaboAmicalement.gif")

par:

hCursor = LoadCursorFromFile("C:DOCExcelaboAmicalement.gif")

isabelle

j'avais de mit de coté une procédure pour animer un gif dans le cadre
image, je vais essayer de la retrouver.