1. 首页
  2. 技术
  3. 后台

请教:给别人这样的程序会有什么不妥吗?

我用VB做了一个需要 外接 OCX 控件的程序。 如果把它放在另一台计算机上运行,很可能因为缺少相应的OCX 控件而报错。我采取如下的方法:

添加一个模块,见代码

Attribute VB_Name = “Module1”
Option Explicit
Private Sub Main()
Dim r%
r = Shell(“regsvr32.exe ” & App.Path & “\TEXT\RICHTX32.OCX /s”, 1)
DoEvents
r = Shell(“regsvr32.exe ” & App.Path & “\TEXT\COMDLG32.OCX /s”, 1)
DoEvents
Form1.Show
End Sub

然后把“启动对象“换作 “Sub Main”。生成程序后,把程序连同文件夹“TEXT”及里面的 *.ocx 一同放到另一台计算机上,就可以运行了。但是,我不知这样会有什么不妥,甚至严重后果。请知情者指点,十分感谢!

原创文章,作者:nhjsjjs的博客,如若转载,请注明出处:https://www.zengqueling.com/%e8%af%b7%e6%95%99%ef%bc%9a%e7%bb%99%e5%88%ab%e4%ba%ba%e8%bf%99%e6%a0%b7%e7%9a%84%e7%a8%8b%e5%ba%8f%e4%bc%9a%e6%9c%89%e4%bb%80%e4%b9%88%e4%b8%8d%e5%a6%a5%e5%90%97%ef%bc%9f/

联系我们

15602395067

在线咨询:点击这里给我发消息

邮件:eden7@qq.com

工作时间:周一至周五,9:30-18:30,节假日休息

QR code