<<< 返回 access911.net 编程静态资料库索引页

通过调用regsvr32.exe自动注册控件的函数

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2002-12-12  浏览人次:1467


专题地址:http://access911.net/fixhtm/71FAB41E10DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:《函数》通过调用regsvr32.exe自动注册控件的函数

 


方法一:

Function RegOCX(BeReg As String)
    Dim RegFile1 As String
    Dim RegFile2 As String
    Dim RetVal
    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
   .....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/71FAB41E10DC.htm

 


上一篇:如何检测Internet联网状态、类型及拨号网络调用?

下一篇:直接使用print输出字符构成报表一例

2017年2月22日生成静态资料