thanks,
it's work with somting like this ...
sincerly,
----- 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 6:39 PM
Subject: RE: [perl-win32-gui-users] How "reset" a windows ?
> OK, you'll want to create the button either way and then hide or show it
> based upon $nbr_imp, something like this:
>
> my $Button = $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,
> );
>
>
>
> if ($nbr_imp < 450)
> {
> $Button->Show();
> }
> else
> {
> $Button->Hide();
> }
>
>
>
> -----Original Message-----
> From: NAHUM Marc [mailto:[EMAIL PROTECTED]
> Sent: Monday, April 07, 2003 12:23 PM
> To: Peter Eisengrein; perl-win32-gui-users
> Subject: Re: [perl-win32-gui-users] How "reset" a windows ?
>
>
> 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
> >
>
