Hi,

Do something like this:

for (0..100) {
$Wmain->Progressbar->StepIt();
Win32::GUI::DoEvents();
#your work here

}

Cheers,

jez.

From: "Chris" <[EMAIL PROTECTED]>
To: <perl-win32-gui-users@lists.sourceforge.net>
Subject: [perl-win32-gui-users] progress bars
Date: Wed, 1 Oct 2003 15:13:13 -0700

Okay, I'm working on making a progress bar that works, however, this
code won't let my progress bar show. If someone could help, I would very
much appreciate it.


            $Wmain->AddProgressBar(
                        -name => "Progressbar",
                        -top  => 15,
                        -left => 10,
                        -smooth   => 1,
                        -visible => 1,
            );
            $Wmain->Progressbar->SetRange(0, 100);
            $Wmain->Progressbar->SetStep(1);
            $Wmain->Progressbar->SetPos($bwl1);


Thanks
            --Chris

_________________________________________________________________
Sign-up for a FREE BT Broadband connection today! http://www.msn.co.uk/specials/btbroadband


Reply via email to