Kezdőlap › Fórumok › Programozás › Perl entry hossza?
- This topic has 5 hozzászólás, 2 résztvevő, and was last updated 20 years, 6 months telt el by
Csibu.
-
SzerzőBejegyzés
-
2004-12-29-17:54 #1993481
Szóval ehhez senki se ért?
😛
Csibu
2004-12-30-19:13 #1993482Rendben akkor legalább azt mondja meg nekem valaki, hogy Perlben (TK) hogyan lehet egy táblázatnak fejlécet csinálni?
$table = $box2->Table(-rows => $r,-columns => 11,-fixedrows => 1);
while($r>0)
{
if($B_OR_KL[$r] eq 0){$minta=’sunken’;}
else{$minta=’raised’;}
@IKTSZ[$r]=@SORSZL[$r];
@IKTSZ[$r].=”/0″;
@IKTSZ[$r].=@EVL[$r];
$label=$box2->Label(-width=>”7″,-textvariable=>@IKTSZ[$r],-relief=>”$minta”);
$table->put($r,1,$label);
$label=$box2->Label(-width=>”10″,-textvariable=>@ERKDTM[$r],-relief=>”$minta”);
$table->put($r,2,$label);
$label=$box2->Label(-width=>”15″,-textvariable=>@UGYI[$r],-relief=>”$minta”);
$table->put($r,3,$label);
$label=$box2->Label(-width=>”15″,-textvariable=>@NEV[$r],-relief=>”$minta”);
$table->put($r,4,$label);
$label=$box2->Label(-width=>”20″,-textvariable=>@CIM[$r],-relief=>”$minta”);
$table->put($r,5,$label);
$label=$box2->Label(-width=>”25″,-textvariable=>@TARGY[$r],-relief=>”$minta”);
$table->put($r,6,$label);
$label=$box2->Label(-width=>”4″,-textvariable=>@MELL[$r],-relief=>”$minta”);
$table->put($r,7,$label);
$label=$box2->Label(-width=>”10″,-textvariable=>@KEZHELY[$r],-relief=>”$minta”);
$table->put($r,8,$label);
if(@HATDTM[$r] ne „1900.01.01”){$label=$box2->Label(-width=>”10″,-textvariable=>@HATDTM[$r],-relief=>”$minta”);}
else{$label=$box2->Label(-width=>”10″,-text=>”Ismeretlen”,-relief=>”$minta”);}
$table->put($r,9,$label);
if(@INTNAP[$r] ne „1900.01.01”){$label=$box2->Label(-width=>”10″,-textvariable=>@INTNAP[$r],-relief=>”$minta”);}
else{$label=$box2->Label(-width=>”10″,-text=>”Ismeretlen”,-relief=>”$minta”);}
$table->put($r,10,$label);
if(@IRDTM[$r] ne „1900.01.01”){$label=$box2->Label(-width=>”10″,-textvariable=>@IRDTM[$r],-relief=>”$minta”);}
else{$label=$box2->Label(-width=>”10″,-text=>”Ismeretlen”,-relief=>”$minta”);}
$table->put($r,11,$label);
}Mondjuk ennek?
Csibu
2004-12-30-20:16 #1993483Akkor legalább valmi magyar nyelvû linket mutassatok, ami ezzel foglalkozik!
Köszi!
Csibu
2005-01-01-15:46 #1993484Na úgy látom itt senki se ért a perl/TK-hoz rendesen!
Használja ezt egyáltalán valaki?Csibu
2005-01-02-07:52 #1993485Megoldás a LINK T
2009-12-04-19:56 #1877711Sziasztok!
Tudja valaki, hogy hogyan kell perl / TK -ban lévõ ENTRY hosszát megadni! Vagyis eddig htmlbe ágyazott perl programokat csináltam és ott egy input mezõnek meg lehetett adni, hogy maximálisan hány db karaktert fogadjon el, viszont a TK-s ENTRY-nek csak a szélességét lehet megadni, a karakterhosszt, amit bekér nem (pörgeti tovább a karaktereket)!
Ezt kellene nekem gyorsan megoldanom!
Van valaki, aki tudja, hogy hogyan lehet megadni?
Thanx!
Csibu -
SzerzőBejegyzés
- Be kell jelentkezni a hozzászóláshoz.
legutóbbi hsz