|
 |
 |
 |
| |
Cycle d'icônes dans la barre d'une feuille 
Mettez un contrôle ImageList1 et Timer1 sur la feuille
Insérez un module et copier ceci dans ce module :
Public Sub CycleIcones(NOM As Form)
Static iImage As Integer
iImage = iImage + 1
If iImage > 3 Then iImage = 1
NOM.Icon = NOM.ImageList1.ListImages(iImage).Picture
End Sub
Voici le code du Timer :
Private Sub Timer1_Timer()
CycleIcones Me
End Sub
Mettez l'intervalle du Timer à 2000 (vous pourrez changer cette valeur)
Il faut mettre au minimum 3 icones dans le contrôle ImageList1
|
|
 |
|
 |
|
IDDN Certification
