24小时热门版块排行榜

返回列表

【奖励】本帖被评价2次，作者kingcugedu增加金币 1 个

当前主题已经存档。

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

kingcugedu

铜虫 (小有名气)

应助: 0 (幼儿园)
金币: 808.6
帖子: 155
在线: 112.4小时
虫号: 579805

[资源] 【分享】IDL编写的进度条程序源代码

Sample Text
效果不错，已经运行成功！

回复此楼

» 猜你喜欢

地球物理学和空间物理学论文润色/翻译怎么收费? 已经有59人回复

1楼 2009-05-25 16:01:24

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

cwk2000

铁杆木虫 (著名写手)

应助: 12 (小学生)
金币: 5146.3
帖子: 2045
在线: 206.2小时
虫号: 712717

★★★ 三星级,支持鼓励

呵呵我下载了贴出来
PRO test_idlprocessbar
  ;
  wtlb = WIDGET_BASE(xSize =400,ySize= 400, $
title = '进度条')
  WIDGET_CONTROL,wtlb,/Realize

  ;初始化进度条
  process = Idlitwdprogressbar( $
GROUP_LEADER=wTlb, $
TIME=0,$
TITLE='保存中... 请稍等')
  ;开始走....
  Idlitwdprogressbar_setvalue, process, 0
  ;
  FOR i=0,100 DO BEGIN
;
WAIT,.2
Idlitwdprogressbar_setvalue, process,i
  ENDFOR
  ;销毁进度条
  WIDGET_CONTROL,process,/Destroy
  WIDGET_CONTROL,wTlb, /Destroy
END