ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

gravisfreak 2007/07/23(ｿｽｿｽ) 14:55:28

ｿｽJｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽﾌ抵ｿｽｿｽｿｽProgressBarｿｽｿｽgｿｽｿｽｿｽﾄ進ｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽLｿｽﾌコｿｽ[ｿｽhｿｽｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽｿｽﾄ趣ｿｽｿｽsｿｽｿｽｿｽｿｽﾆ、ProgressBarｿｽﾍ、ｿｽrｿｽｿｽｿｽﾜでゑｿｽ
ｿｽXｿｽｿｽｿｽ[ｿｽYｿｽﾉ進ｿｽﾞのでゑｿｽｿｽｿｽｿｽAｿｽrｿｽｿｽｿｽﾅ止ｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽbｿｽｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽ}ｿｽｿｽ
PosisionｿｽｿｽMaxｿｽﾉなり処ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽJｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽｿｽﾌ前ｿｽﾉゑｿｽｿｽｿｽ'Label1.Caption:='Strat!';'ｿｽ無ゑｿｽｿｽｿｽｿｽｿｽ
ｿｽXｿｽｿｽｿｽ[ｿｽYｿｽﾉ進ｿｽﾝまゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽStatusBarｿｽﾅ趣ｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽXｿｽｿｽｿｽ[ｿｽYｿｽﾉ進ｿｽﾝまゑｿｽｿｽB

ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾌ鯉ｿｽｿｽﾛは、ｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽﾏみゑｿｽexeｿｽtｿｽ@ｿｽCｿｽｿｽｿｽﾅのみ費ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
DelphiｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽXｿｽｿｽｿｽ[ｿｽYｿｽﾅゑｿｽｿｽB

PCｿｽﾂ具ｿｽｿｽﾉ依托ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽlｿｽﾈ奇ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇの環具ｿｽｿｽﾅゑｿｽProgressBarｿｽｿｽ
ｿｽXｿｽｿｽｿｽ[ｿｽYｿｽﾉ難ｿｽｿｽｿｽｿｽlｿｽﾉゑｿｽｿｽｿｽﾉは、ｿｽﾇの様ｿｽﾉゑｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽﾈみに開ｿｽｿｽｿｽﾂ具ｿｽｿｽﾍ、D6ｿｽAwinXPｿｽﾅゑｿｽｿｽB

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
const
  M=300000;
begin
  ProgressBar1.Position:=0;
  ProgressBar1.Max:=M;

  Label1.Caption:='Strat!';
  StatusBar1.SimpleText:='Strat!';{ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽv}

  for i:=0 to M do begin
    ProgressBar1.Position:=ProgressBar1.Position+1;
  end;
end;

deldel 2007/07/23(ｿｽｿｽ) 15:57:34

ｿｽﾈ会ｿｽｿｽﾅはどゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽH
  for i:=0 to M do begin
    ProgressBar1.Position:=ProgressBar1.Position+1;
    Application.ProcessMessages;
  end;

gravisfreak 2007/07/23(ｿｽｿｽ) 16:19:28

deldelｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽTｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾉ色ｿｽXｿｽTｿｽｿｽｿｽｿｽｿｽﾂゑｿｽ閧ｾｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽEｿｽEｿｽE
ｿｽﾗ具ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾌトｿｽbｿｽvｿｽｿｽ