作者：绿色风
分类：
时间：2022-08-18
浏览：151
楼主
amulee |
VSTO中提供了一个进度条控件ProgressBar，相对VBA中自创进度条而言，简单很多。
动画示例：
操作步骤：
1、创建一个Excel程序（[VSTO] 利用VSTO制作一个简单的Excel程序
）
2、在工作表中添加一个ProgressBar控件和Button控件。
3、在工作表中添加以下代码：
- Public Class Sheet1
- Private Sub Sheet1_Startup() Handles Me.Startup
- '隐藏进度条
- Me.ProgressBar1.Visible = False
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim i As Long
- '设置进度条
- With Me.ProgressBar1
- '每次多显示1
- .Step = 1
- '最长长度
- .Maximum = 2000
- '最短长度
- .Minimum = 1
- '当前值
- .Value = 1
- '设置位置和尺寸
- .Top = Me.Cells(2, 1).top
- .Left = Me.Cells(2, 1).left
- .Width = Me.Cells(2, 1).width
- .Height = Me.Cells(2, 1).height
- '显示进度条
- .Visible = True
- End With
- '单元格初始值
- Me.Cells(1, 1).value = 0
- For i = 1 To 2000
- '进度条显示。每次增加一个Step的值
- Me.ProgressBar1.PerformStep()
- '单元格赋值
- Me.Cells(1, 1).value = Me.Cells(1, 1).value + 1
- Next
- '再次隐藏进度条
- Me.ProgressBar1.Visible = False
- End Sub
- End Class
附件下载：
 VSTO中ProgressBar控件（进度条）示例.rar
|
2楼
湘潭水 |
vsto？
第一次听说…… |
3楼
湘潭水 |
哪里可以搞到vsto？， |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一