双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

请教：STATUSBAR和PROGRESSBAR怎么用？

2003-07-03 03:22:37 90 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

kxiangwei 墨衍会员 · AI 创作全网分发关注 + 加入社区

Isaac Sim 6 利用Replicator实现高效语义分割与实例分割（实践指南5.10）本文详细介绍了如何利用Isaac Sim 6的Replicator工具高效生成语义分割和实例分割数据集。通过虚拟环境自动标注，效率提升20倍以上，特别适用于农业机器人等计算机视觉项目。文章包含环境配置、场景构建、批量标注技巧及实例分割处理等实战指南，帮助开发者快速掌握合成数据生成技术。阅读详情

请教：STATUSBAR和PROGRESSBAR怎么用？

...全文

手把手教你用开源EtherCAT协议栈SOEM开发从站设备（附避坑指南）本文详细介绍了如何使用开源EtherCAT从站协议栈SOES进行嵌入式设备开发。内容涵盖从环境搭建、硬件准备到核心的对象字典与PDO映射配置，并重点分享了主循环集成、状态机处理以及实战调试中的常见问题与避坑指南，旨在帮助开发者高效实现设备接入工业现场总线网络。阅读详情

控件 1,453 成员 41,351 内容

+ 关注 + 加入社区

评论 9

切换为时间正序

lihonggen0 2003-07-11

打赏
举报

回复

to kxiangwei(小孔) :

工程----部件-----Microsoft Windows Common controls 6.0

如果你是新建一个工程，必须重新添加.
如果是原来的工程，则不用添加

kxiangwei 2003-07-11

打赏
举报

回复

我的工具栏中还没有STATUSBAR和PROGRESSBAR，请问他们在“部件”中的名称是什么？
再问：为什么我已经从“部件”中添加的控件，重新启动VB后就没有了，必须重新添加吗？

browseli 2003-07-08

打赏
举报

回复

请问如何引用progressbar

崧崧 2003-07-08

打赏
举报

回复

Private Sub Command1_Click()
Dim Counter As Integer
Dim Workarea(250) As String
ProgressBar1.Min = LBound(Workarea)
ProgressBar1.Max = UBound(Workarea)
ProgressBar1.Visible = True

'设置进度的值为 Min。
ProgressBar1.Value = ProgressBar1.Min

'在整个数组中循环。
For Counter = LBound(Workarea) To UBound(Workarea)
'设置数组中每项的初始值。
Workarea(Counter) = "Initial value" & Counter
ProgressBar1.Value = Counter
Next Counter
ProgressBar1.Visible = False
ProgressBar1.Value = ProgressBar1.Min
End Sub

Private Sub Form_Load()
ProgressBar1.Align = vbAlignBottom
ProgressBar1.Visible = False
Command1.Caption = "Initialize array"
End Sub

of123 2003-07-08

打赏
举报

回复

1 statusbar在设计时用鼠标点右键，选属性，设置各个窗格的格式、内容（日期、时间、文本）、图片、对齐方式、缩放方式等等。运行时可以用statusbar1.panes(1).text = "abc"之类改写窗格文字。

2 progressbar设置好最大、最小值。运行时：
progressbar1.value = progressbar1.min '初始值
......
if progressbar1.value < progressbar1.max then
progressbar1.value = progressbar1.value + 1 '增长
end if

......
progressbar1.value = progressbar1.max '完成

lihonggen0 2003-07-08

打赏
举报

回复

Private Sub Command1_Click()
ProgressBar1.Min = 0
ProgressBar1.Max = 100
ProgressBar1 = 0
For J = 1 To 100
For I = 1 To 10000
DoEvents
Next I

ProgressBar1.Value = J
Next

End Sub

-------------------------------------------------

状态条的：

StatusBar1.Panels(1) = "部门名称：" & cDeptName
StatusBar1.Panels(2) = "人员名称：" & cStaffName
StatusBar1.Panels(4) = "系统日期：" & cServerDate

lihonggen0 2003-07-08

打赏
举报

回复

StatusBar1.Panels(1) = "部门名称：" & cDeptName
StatusBar1.Panels(2) = "人员名称：" & cStaffName
StatusBar1.Panels(4) = "系统日期：" & cServerDate

lihonggen0 2003-07-08

打赏
举报

回复

StatusBar1.Panels(1) = "部门名称：" & cDeptName
StatusBar1.Panels(2) = "人员名称：" & cStaffName
StatusBar1.Panels(4) = "系统日期：" & cServerDate

kxiangwei 2003-07-08

打赏
举报

回复

怎么每人回答我？