請教各位前輩高手: 用Access2000來壓縮MDB時,在左下角有ProgressBar來顯示壓縮進度. 現在我用JRO_TLB的CompactDataBase來壓縮, 也想要用ProgressBar來顯示壓縮進度. 要怎麼做? 謝謝.

johnnychang 兄 我試著找有何屬性可以得知目前資料壓縮進度，仍未發現 也許並沒有提供    小弟仍有一方法(用騙的)，您可試試 對於ProgressBar 要去顯示不知何時結束的進度 可先于以假設結束值 另設一Timer 讓ProgressBar 值遞增， 當Timer 裡的計次超過ProgressBar.max 的1/2 則 timer1.Interval :=timer1.Interval + 50;    若已壓縮結束，則讓ProgressBar.Position := ProgressBar.max ，Timer.enable=false    例：

var
    ipos:integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
    ProgressBar1.Min :=0;
    ProgressBar1.Max:=100;
    timer1.Interval :=100;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
    timer1.Enabled :=true;
end;    procedure TForm1.Timer1Timer(Sender: TObject);
var
    it:integer;
begin
    ipos := ipos+1;
    ProgressBar1.Position :=ipos;
    IF (ProgressBar1.Position*2) > ProgressBar1.Max then
         timer1.Interval :=  timer1.Interval +50;    end;    procedure TForm1.Button2Click(Sender: TObject);
begin
    ProgressBar1.Position :=ProgressBar1.Max ;
    timer1.Enabled :=false;
end;    

發表人 - ddy 於 2003/02/24 15:06:35

謝謝ddy的建議, 將試試看您的方法效果如何.