0

プログレスバーがスクリプトに従っていません。スクリプトの実行中にプログレスバーを表示したい。それが終わったら、それは止まるはずです。現在、完全なプロセスを実行してから、出力を印刷しています。以下の私のコードを見つけてください：

$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;
4

1 に答える 1

0

あなたのコードは、直接設定するのではなく、進行状況の値だけ値を増やしています。andのSetPos代わりにメソッドを呼び出してみてください。SetStepStepIt

（私はWin32 :: GUIを使用していないので、MSDNに基づいてメソッド名を推測していることに注意してください。）

于 2013-03-06T11:05:12.590 に答える