• Publicidad

Galeria de imágenes en Tk

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Galeria de imágenes en Tk

Notapor BigBear » 2012-01-17 14:40 @653

Hola, ando teniendo una duda. Lo que quiero hacer es que cuando se presione el botón se cambie la imagen por otra, o sea, que la primera se vaya y poder poner otra en su lugar. Lo quiero hacer con varias imágenes y varios botones, pero no sé cómo puedo hacerlo.

El código es el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. use Tk;
  2. use Tk::PNG;
  3.  
  4. my $man = MainWindow->new(-background=>"black",-foreground=>"orange");
  5. $man->title("Mysql Manager (C) Doddy Hackman 2011");
  6. $man->geometry("650x540+20+20");
  7. $man->resizable(0,0);
  8. my $f = $man->Photo(-file=>"foto.png",-format=>"PNG");
  9. $man->Label(-image=>$f,-borderwidth=>0)->place(-x=>20,-y=>20);
  10.  
  11. $man->Button(-text=>"Cambiar",-command=>\&ok)->pack();
  12.  
  13. sub ok {
  14. print "ok";
  15. }
  16.  
  17. MainLoop;
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Publicidad

Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados

cron