.
cs_max12
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014
-
19 mai 2002 à 01:47
wallon14 Messages postés 56 Date d'inscription vendredi 17 octobre 2003 Statut Membre Dernière intervention 3 juillet 2005 - 30 juin 2004 à 14:52
wallon14 Messages postés 56 Date d'inscription vendredi 17 octobre 2003 Statut Membre Dernière intervention 3 juillet 2005 - 30 juin 2004 à 14:52
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/3363-...
https://codes-sources.commentcamarche.net/source/3363-...
30 juin 2004 à 14:52
il faut rajouer un timer (timer1) et lui affecter un intervalle. (ex : 500)
ensuite dans le form, rajouter
Private Sub Timer1_Timer()
If Limage = 0 Then
IconeT.hIcon = Picture1.Picture
Shell_NotifyIcon MODIF, IconeT
Limage = 1
Else
IconeT.hIcon = Me.Icon
Shell_NotifyIcon MODIF, IconeT
Limage = 0
End If
End Sub
également, il faut rajouter une image (picture1) et la laisser vide.
Enfin, rajouter la ligne suivante sous les déclarations (en début de programme) :
Dim Limage As Integer
Sinon, ca a l'air pas mal, mais trop de bugs (j'en ai corrigé cetains) notament pour effaccer, renommer... ces boutons doivent être grisés lorsque le listbox.text = "" ...
:o)
19 août 2003 à 08:21
C'est quoi ca ? Expliquez moi !
A +
15 nov. 2002 à 15:16
Ca marche ailleur ?
19 mai 2002 à 02:09
Gorgot
P.S Je suis souis Win XP
19 mai 2002 à 01:47