interface graphique sous Windows

Recherche :

Dernière réponse
Sujet : interface graphique sous Windows
cpadump3	Bonjour, Pour débuter, j'essaie d'utiliser Win32::GUI pour afficher une fenêtre Windows avec un simple bouton OK sur ma station Windows XP pro. J'ai écrit un bout de code mais lorsque je l'exécute, j'ai le Dc Watson! Auriez-vous des exemples de codes ou des adresses web à me fournir ? Merci d'avance ci-dessous mon code use strict; use Win32::GUI; my $fenetre = new Win32::GUI::Window( -name => "Window", -title => "Exemple Window en Perl", -left => 100, -top => 100, -width => 500, -height => 400, #-topmost => 1 #-menu => $Menu, ); my $bouton=new Win32::GUI::Button( -name => $fenetre, #-align => center, #-valign => bottom, # -default => 0, -ok => 1, # -cancel => 0, ); $bouton->AddButton( -name => "Bouton1" ); $fenetre->Show(); Win32::GUI::Dialog(); sub Window_Activate() { } sub Window_Deactivate() { exit; }

Dernière réponse

Sujet : interface graphique sous Windows

cpadump3

Bonjour,

Pour débuter, j'essaie d'utiliser Win32::GUI pour afficher une fenêtre Windows avec un simple bouton OK sur ma station Windows XP pro. J'ai écrit un bout de code mais lorsque je l'exécute, j'ai le Dc Watson!

Auriez-vous des exemples de codes ou des adresses web à me fournir ?

Merci d'avance

ci-dessous mon code

use strict;
use Win32::GUI;

my $fenetre = new Win32::GUI::Window(
-name => "Window",
-title => "Exemple Window en Perl",
-left => 100,
-top => 100,
-width => 500,
-height => 400,
#-topmost => 1
#-menu => $Menu,
);

my $bouton=new Win32::GUI::Button(
-name => $fenetre,
#-align => center,
#-valign => bottom,
# -default => 0,
-ok => 1,
# -cancel => 0,
);
$bouton->AddButton( -name => "Bouton1" );

$fenetre->Show();

Win32::GUI::Dialog();

sub Window_Activate()
{
}
sub Window_Deactivate()
{
exit;
}