1. 希知网首页
  2. 信息技术与社交网络

请启用activex控件和插件怎么设置，如何将activex控件设置启用

• 信息技术与社交网络

使用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。

VBA｜使用窗体控件14：使用ActiveX控件

3 添加用户窗体和控件

VBA｜使用窗体控件14：使用ActiveX控件

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

－End－

本文地址：https://www.cknow.cn/archives/31826

以上内容源自互联网，由百科助手整理汇总，其目的在于收集传播生活技巧，行业技能，本网站不对其真实性、可靠性承担任何法律责任。特此声明！

如发现本站文章存在版权问题，烦请提供版权疑问、侵权链接、联系方式等信息发邮件至candieraddenipc92@gmail.com，我们将及时沟通与处理。

赞 (0)
上一篇 2023年7月31日 17:42
下一篇 2023年7月31日 17:56

相关推荐