je souhaite changer l 'icone de l'interface graghique TK par un aure icone
j'obtient un message me dit la methode "Photo" n'est pas definie
alors comment la definie ??
je souhaite changer l 'icone de l'interface graghique TK par un aure icone
j'obtient un message me dit la methode "Photo" n'est pas definie
alors comment la definie ??
Montre nous ton code.
Sinon, tu as la réponse : Comment changer l'icône de la fenêtre de mon application ?.
Voila mon code, le problème est résolu
Mais maintenant j’obtiens deux fenêtres différentes or mois je veux une seule mais qui port mon icone
comment faire et pour pour votre aide....
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
31
32
33
34
35 #!/usr/bin/perl use strict; use warnings; use Tk; # Appel du module Tk use Tk::Canvas::GradientColor; # Appel du module Tk::Canvas::GradientColor use Tk::Photo; #Appel du module Tk::Photo use Tk::JPEG; #Appel du module Tk::JPEG my $icone; $icone = tkinit; # Programme principal # Création de la fenêtre my $mw = new MainWindow ( -title => 'Automatisation des Plans de Tests Unitaires', -background => 'white', ); my $canvas = $mw->GradientColor ( -width => 350,-height => 250, ) ->pack( qw/ -fill both -expand 1 / ); #Change type $canvas->set_gradientcolor ( -start => 25, -end => 100, -type => 'mirror_vertical'); my $ico = $icone->Photo(-file=>"./zam.jpg"); $icone->iconimage($ico); MainLoop;
N'utilise pas tkinit. ça n'a rien à faire dans un programme utilisant le module Tk.
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
31
32 #!/usr/bin/perl use strict; use warnings; use Tk; # Appel du module Tk use Tk::Canvas::GradientColor; # Appel du module Tk::Canvas::GradientColor use Tk::Photo; #Appel du module Tk::Photo use Tk::JPEG; #Appel du module Tk::JPEG # Programme principal # Création de la fenêtre my $mw = MainWindow->new( -title => 'Automatisation des Plans de Tests Unitaires', -background => 'white', ); my $ico = $mw->Photo(-file => './zam.jpg' ); $mw->iconimage($ico); my $canvas = $mw->GradientColor( -width => 350, -height => 250, )->pack( qw/ -fill both -expand 1 / ); #Change type $canvas->set_gradientcolor( -start => 25, -end => 100, -type => 'mirror_vertical' ); MainLoop;
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager