如何做出壓縮ACCESS時的Progress Bar? |
答題得分者是:ddy
|
johnnychang
一般會員 發表:24 回覆:26 積分:16 註冊:2002-09-27 發送簡訊給我 |
|
ddy
站務副站長 發表:262 回覆:2105 積分:1169 註冊:2002-07-13 發送簡訊給我 |
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 |
johnnychang
一般會員 發表:24 回覆:26 積分:16 註冊:2002-09-27 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |