Icon barre des tâchesRésolu

Question

Bonsoir alors voilà ce que je voudrais faire.

If Me.WindowState = 1 Then
Form1.Icon = "C:\ici\mon.ico"
Else: Form1.Icon = "C:\la\my.ico"

Voilà j'espère que vous l'aurez compris. Je voudrais que quand ma form1 est réduite une autre icône que celle du programme apparaître dans la barre des tâches et si elle n'est pas réduite ben ça fait rien. Est-ce possible ? Car il accepte pas ce code :
Form1.Icon = "C:\ici\mon.ico"

Merci à vous.

cs_Exploreur · Accepted Answer

Coucou....c'est moi....pas besoin de timer, utilise l'évènement de la Form :

Private Sub Form_Resize()
If Me.WindowState = 1 Then
Form1.Icon = LoadPicture("C:\slcplappl.ico")
Else
Form1.Icon = LoadPicture("C:\UNINST.ICO")
End If
End Sub

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Salut,

Essaye déjà avec la bonne syntaxe : Form1.Icon = LoadPicture("C:\mon.ico")

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

De plus il ta faudrat un timer :

Private Sub Timer1_Timer()
If Me.WindowState = 1 Then
Form1.Icon = LoadPicture("C:\slcplappl.ico")
Else
Form1.Icon = LoadPicture("C:\UNINST.ICO")
End If
End Sub

A+
Exploreur

 Linux a un noyau, Windows un pépin

DarkFel · Answer

Merci j'vais essayer ça !

DarkFel · Answer

Merci ça marche. J'ai juste un peu modifier car à l'ouverture du programme ça m'affiche la mauvaise icone dans la barre des tâches.

If Me.WindowState = 1 Then
Form1.Icon = LoadPicture("C:\icone.ico")
Else
If Me.WindowState = 0 Then
Form1.Icon = LoadPicture("C:\icone.ico")
Else
Form1.Icon = LoadPicture("C:\Untitled.ico")
End If
End If

cs_Exploreur · Answer

Re,

Définit ton icone de lancement dans le Form_Load de ta form1, cela téviteras de faire deux test sur : Me.WindowState 

A+
Exploreur

 Linux a un noyau, Windows un pépin

Icon barre des tâches

6 réponses

Votre réponse

Discussions similaires