I 'va somethink like this :
$add_ok=0;
....
if ($nbr_imp<450){$add_ok=1}
....
$Win_select_srv->AddButton(
-text => $$Win_select_srv_text7_use,
-name => "Button_add_x_imp_select_srv",
-left => 320,
-top => 155,
-width => 115,
-height => 21,
-foreground => 0,
-visible => $add_ok,
);
...
$choix= $Win_select_srv->AddListbox(
-name => "choix_select_srv",
-left => 30,
-top => 79,
-width => 130,
-height => 133,
-multiline =>1,
-tabstop =>1,
-sort =>1,
-addstyle => WS_VISIBLE | 1 | WS_VSCROLL | WS_NOTIFY,
);
foreach $ligne (@serveur_imp)
{
($serveur_ad,$null)=split(/;/,$ligne);
if ($serveur_ad eq " ") {next}
$choix->AddString($serveur_ad);
}
...
...
it's a long code ...
Then I chose a "$serveur_ad" I have a value for "$nbr_imp"
Then this value is <450 I want show "Button_add_x_imp_select_srv" and Hide
it when value is >450
If the first "$serveur_ad" give a value for "$nbr_imp" >450 --> no
"Button_add_x_imp_select_srv"
if the second "$serveur_ad" give a value for "$nbr_imp" <450 --> I have a
"Button_add_x_imp_select_srv"
BUT if the 3 "$serveur_ad" give a value for "$nbr_imp" > 450 --> I still
have a "Button_add_x_imp_select_srv" even if "$add_ok=0"
I don't know if I'm clear ....
thanks for help
----- Original Message -----
From: "Peter Eisengrein" <[EMAIL PROTECTED]>
To: "'NAHUM Marc'" <[EMAIL PROTECTED]>; "perl-win32-gui-users"
<perl-win32-gui-users@lists.sourceforge.net>
Sent: Monday, April 07, 2003 5:12 PM
Subject: RE: [perl-win32-gui-users] How "reset" a windows ?
> It you just want to hide button it is as easy as $Button->Hide(); If this
is
> not what you mean, please ask again and show some code.
>
> -----Original Message-----
> From: NAHUM Marc [mailto:[EMAIL PROTECTED]
> Sent: Monday, April 07, 2003 6:31 AM
> To: perl-win32-gui-users
> Subject: [perl-win32-gui-users] How "reset" a windows ?
>
>
> Hello,
> I have a GUI windows and I want "reset" it , or "rebuilt" it
> I hide some button when a value change
>
> thanks for help,
>
>
>
>
> -------------------------------------------------------
> This SF.net email is sponsored by: ValueWeb:
> Dedicated Hosting for just $79/mo with 500 GB of bandwidth!
> No other company gives more support or power for your dedicated server
> http://click.atdmt.com/AFF/go/sdnxxaff00300020aff/direct/01/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
>
> -------------------------------------------------------
> This SF.net email is sponsored by: ValueWeb:
> Dedicated Hosting for just $79/mo with 500 GB of bandwidth!
> No other company gives more support or power for your dedicated server
> http://click.atdmt.com/AFF/go/sdnxxaff00300020aff/direct/01/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Perl-Win32-GUI-Users@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
