Perl win32::GUI 进度条答案

【问题标题】：Perl win32::GUI progressbarPerl win32::GUI 进度条
【发布时间】：2013-03-06 19:05:12
【问题描述】：

进度条不跟随脚本。我想在脚本执行时显示进度条。完成后应该停止。目前它正在显示完整的过程，然后进行打印输出。请在下面找到我的代码：

$Progress_bars = $main->AddProgressBar(
   -pos        => [10,840],
   -background => [0,255,85],
   -smooth     => 1,
   -size       => [470,20],
);
my $intended_max = 100;
my $x = 11;
my $y = int($intended_max/$x);
$Progress_bars->SetRange(0,$x*$y);
for (1 .. $x) {
    Win32::GUI::DoEvents();
    $Progress_bars->SetStep($y);
    $Progress_bars->StepIt();
    Win32::Sleep(50);
}

$output = $telnet->print('ls');
print $output;

【问题讨论】：

标签： perl winapi

【解决方案1】：

您的代码是通过进度值增加值而不是直接设置它。尝试调用SetPos 方法而不是SetStep 和StepIt。

（注意我没有使用Win32::GUI，所以我根据MSDN猜测方法名。）

【讨论】：