Discussion :

[kuranes]

Testée en WD14. Bien pratique dans mon cas (deux logiciels en 1, on appelle cette fonction au début de chaque fenêtre... gnlogiciel vaut 1 ou 2 selon le logiciel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
PROCEDURE ChangerIcone()
// ===== Déclaration des variables
sIcon est une chaîne 
 
// ===== Initialisation des variables
SELON gnLogiciel
	CAS 1
		// Cas icone1
		sIcon = "icone1.ico"
	CAS 2
		// Cas icone2
		sIcon = "icone2.ico"
	AUTRE CAS
 
FIN
 
//Local
Icon est un entier = 0x80 
 
SI sIcon = "" ALORS RETOUR
 
hIcon est un entier = AppelDLL32("user32","LoadImageA" ,Null, sIcon,1,0,0,16) 
 
SI hIcon ALORS 
	SendMessage(Handle(),Icon ,1,hIcon) // icône 32*32 (alt-tab) 
	SendMessage(Handle(),Icon ,0,hIcon) // icône 16*16 (fenêtre) 
SINON 
	//Traitement en cas d icone non trouve
FIN

[=JBO=]

Merci pour ta contribution.

Dans le cas d'une application MDI, est-ce que cette technique permettrait de modifier l'icône des fenêtres fille MDI, en choisissant l'icône selon le sujet ou le thème de la fenêtre fille MDI ?

Y-a-t-il une autre méthode sinon ?

Merci.

[kuranes]

Je ne sais pas, je n'ai pas encore testé ce cas là...

[=JBO=]

Suite à ma question...

Dans le cas d'une application MDI, est-ce que cette technique permettrait de modifier l'icône des fenêtres fille MDI, en choisissant l'icône selon le sujet ou le thème de la fenêtre fille MDI ?

Oui, l'îcône d'une fenêtre MDI fille peut être modifée grâce à ce code.

Mais dans le cas d'une fenêtre MDI fille maximisée à l'intérieur de la zone client de la fenêtre parent, le changement d'icône n'est pas immédiat.

Il faut d'abord que le fenêtre fille soit redimensionnée dans sa propre fenêtre pour que l'icône soit correctement affichée.
Comment faire pour que dans le cas d'une d'une MDI fillle maximisée, le changement d'icône soit directement répercutée dans la barre de titre, sans bidouiller l'affichage ?

Pour l'instant, voilà ma bidouille pour que l'icône soit immédiatement affichée:

Code WLangage :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Iconise()	
ChangerIcone(<chemin du fichier icône>)	
Restaure()