[ 路丁前言 ] 应用VBA出示的规范控制可考虑大部分程序运行的必须。但对一些特殊的要求（或以便简单化程序运行的开发设计），可在程序运行中应用ActiveX控制。ActiveX是由客户应用编程设计語言订制的可器重目标，在Windows系统软件中内置了很多这类控制。
应用VBA出示的规范控制可考虑大部分程序运行的必须。但对一些特殊的要求（或以便简单化程序运行的开发设计），可在程序运行中应用ActiveX控制。ActiveX是由客户应用编程设计語言订制的可器重目标，在Windows系统软件中内置了很多这类控制。
ActiveX控制的拓展名叫.ocx，能用VB、VC、Java等語言开发设计。
1 升级MSCOMCTL.OCX版本号
MSCOMCTL.OCX是公共ActiveX软件模块。假如版本号太低，会造成没法额外控制。
I 获得MSCOMCTL.OCX最新版本6.1.98.34
II 到C:\WINDOWS\system32下寻找文档MSCOMCTL.OCX
III 用最新版本遮盖旧版
IV 点鼠标右键查询"特性"→"版本号",看版本信息是不是升级为6.1.98.34
V Win R（开启“运作”对话框），键入：Regsvr32 MSCOMCTL.OCX
VI 随后再次开启EXCEL就可以了。
MSCOMCTL.OCX免费下载部位：
http://club.excelhome.net/thread-939821-1-1.html
２ 加上ActiveX控制到辅助工具
Alt F11(开启VBE）→插进→客户文本框，在工程项目中提升一个客户文本框，另外显示信息出“辅助工具”→右键→额外控制：Microsoft ProgressBar Control 6.0。
3 加上客户文本框和控制
4 启用文本框编码
Sub 显示信息时间轴()
frmProgress.Show
End Sub
5 文本框编码
Private Sub UserForm_Initialize()
Me.Height = 83
Frame1.Visible = False '掩藏架构以及內部控制
End Sub
Private Sub cmdHide_Click()
Dim r As Long
r = Worksheets("Sheet3").Rows.Count
r = 10000
Me.Height = 168
Frame1.Visible = True
pb1.Min = 0
pb1.Max = r
pb1.Value = 0
With Worksheets("Sheet3")
For i = 1 To r
If i Mod 2 = 0 Then
.Rows(i).Hidden = True '掩藏行
End If
pb1.Value = i '升级时间轴
DoEvents '出让决策权
Next
End With
Me.Height = 83
End Sub
评论