乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 12|回复: 0

如何注册控件

[复制链接]
wmz

50

主题

247

帖子

8

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
447
发表于 2005-10-27 13:30:00 | 显示全部楼层 |阅读模式
各位大侠,我在MJTD里下载了自动注册控件的函数,倒是方便了不少.如下例:
Sub TEST()
   Dim filename As String
   filename = "d:\vb98\vba6.dll"
   Call AutoRegFile(filename) '调用AutoRegFile函数自动注册控件
End Sub
Function AutoRegFile(filename As String)
  '自动注册控件
  '语法AutoRegFile FileName)
  '参数:FileName:文件名,必须包含路径
  Dim reged As Boolean
  Dim RegFile1 As String
  Dim RegFile2 As String
  Dim BeReg As String
  Dim RetVal
  BeReg = Dir(filename)
If BeReg  "" Then
  RegFile1 = Environ("windir") & "\system\regsvr32.exe "
  RegFile2 = Environ("windir") & "\system32\regsvr32.exe "
  If Dir(RegFile1)  "" Or Dir(RegFile2)  "" Then
       If Dir(RegFile1)  "" Then
            RegFile1 = RegFile1 & "/s" & " " & BeReg
            RetVal = Shell(RegFile1, 1)
        Else
            RegFile2 = RegFile2 & "/s" & " " & BeReg
            RetVal = Shell(RegFile2, 1)
        End If
  Else
        MsgBox "找不到regsvr32.exe文件,你可能无法使用本软件!", vbCritical, "无法自动注册控件"
  End If
Else
  MsgBox "找不到控件文件!", vbCritical, "无法自动注册控件"
End If
End Function
现在的问题是:如何判断该控件是否已经注册呢?即如果上面的过程这样写
Sub TEST()
   Dim filename As String
   filename = "d:\vb98\vba6.dll"
  if   then
         Call AutoRegFile(filename) '调用AutoRegFile函数自动注册控件
  endif
End Sub
这 里的代码如何写呢?
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-5 18:18 , Processed in 1.019314 second(s), 54 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表