ICONE FORM ANIMER!! EN CLAIR L'ICONE DE VOTRE APLICATION BOUGE.
Utilisateur anonyme
-
19 août 2007 à 17:39
forchi Messages postés 33 Date d'inscription lundi 21 juin 2004 Statut Membre Dernière intervention 24 mai 2008 - 21 août 2007 à 10:32
forchi Messages postés 33 Date d'inscription lundi 21 juin 2004 Statut Membre Dernière intervention 24 mai 2008 - 21 août 2007 à 10:32
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/43828-icone-form-animer-en-clair-l-icone-de-votre-aplication-bouge
https://codes-sources.commentcamarche.net/source/43828-icone-form-animer-en-clair-l-icone-de-votre-aplication-bouge
21 août 2007 à 10:32
Private Sub Timer1_Timer()
Select Case frmMain.Icon
Case Image1.Picture
frmMain.Icon = Image2.Picture
Case Image2.Picture
frmMain.Icon = Image3.Picture
Case Image3.Picture
frmMain.Icon = Image4.Picture
Case Else
frmMain.Icon = Image1.Picture
End Select
End Sub
;)
20 août 2007 à 14:40
19 août 2007 à 23:28
en attendant, cette source sera supprimée d'ici 24h
19 août 2007 à 22:53
Dim iPicture as Integer
Private Sub Timer1_Timer()
If iPicture = Ubound(Img) Then
iPicture = iPicture + 1
Else
iPicture = 0
End if
frmMain.Icon = Img(iPicture).Picture
End Sub
++
19 août 2007 à 17:39
Bon avant ca il faudrait que tu renomme toutes tes images de façon à créer un controlarray ...
Ensuite tu efface les autres timer et tu laisse le timer 1 :
Enfin voilà le code que je te propose :
Dim nbre_pictures As Integer
Dim interval_timer As Integer
Dim countp As Integer
Private Sub Form_Load()
countp = 0
nbre_pictures = 4
End Sub
Private Sub Timer1_Timer()
countp = countp + 1
frmMain.Icon = Img(countp - 1).Picture
If countp nbre_pictures Then countp 0
End Sub