Thread Ceckbuttons auswerten (4 answers)
Opened by dechs at 2006-05-03 22:02

Strat
 2006-05-07 14:21
#45363 #45363
User since
2003-08-04
5246 Artikel
ModeratorIn
[Homepage] [default_avatar]
ich habe den ganzen checkbox-code etwas komprimiert:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
my @checkBoxes = qw(Name Vorname Adresse PLZ Ort Telefon Geburtsdatum
Eintrittsdatum Vereinsfunktion Ehrung);


#Namenssuche
my $f1=$SuchenFenster->Frame()->pack(-side => 'top');

my %checkBoxes = ();
foreach my $name (@checkBoxes) {
$checkBoxes{$name}->{variable} = 0; # not checked as default

$checkBoxes{$name}->{widget} = $SuchenFenster->Checkbutton
( -background => 'lightgoldenrod1', -text => $name,
-variable => \$checkBoxes{$name}->{variable},
)
->pack(-side => 'left');

} # foreach

# irgendwo auswerten:
my @checkedFields = grep { $checkBoxes{$_}->{variable} } keys %checkBoxes;

# jetzt hast du die namen der Felder in @checkedFields

(nicht getestet)\n\n

<!--EDIT|Strat|1146997354-->
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

View full thread Ceckbuttons auswerten