对象的前期绑定与后期绑定使用方法(CLSID-ProgID对照)

一江春水1688

主要新增、修改了几行代码

1. Private Function CLSIDDefaultValue(strCLSID$)
   
2.     Dim ret As Long
   
3.     Dim key As Long
   
4. <font color="#ff00ff">    Dim key0 As Long</font>
   
5.     Dim length As Long
   
6.     Dim temp$(0 To 2)
   
7.     ret = RegOpenKey(HKEY_CLASSES_ROOT, "CLSID", key)
   
8.     ret = RegOpenKey(key, strCLSID, key)
   
9. <font color="#ff00ff">    key0 = key</font>
   
10.     '先取数据区的长度
    
11.     ret = RegQueryValueEx(key, "", 0, 1, ByVal 0, length)
    
12.     '准备数据区
    
13.     If length > 0 Then
    
14.         Dim buff() As Byte
    
15.         ReDim buff(length - 1)
    
16.         '读取数据
    
17.         ret = RegQueryValueEx(key, "", 0, 1, buff(0), length)
    
18. '        Dim val As String
    
19.         '去掉末尾的空字符,VB不需要这个
    
20.         ReDim Preserve buff(length - 2)
    
21.         '转化为VB中的字符串
    
22.         temp(0) = StrConv(buff, vbUnicode)
    
23.     End If
    
24.     ret = RegOpenKey(key, "InprocServer32", key)
    
25.     ret = RegQueryValueEx(key, "", 0, 1, ByVal 0, length)
    
26.     If length > 0 Then
    
27.         ReDim buff(length - 1)
    
28.         '读取数据
    
29.         ret = RegQueryValueEx(key, "", 0, 1, buff(0), length)
    
30.         '去掉末尾的空字符,VB不需要这个
    
31.         ReDim Preserve buff(length - 2)
    
32.         '转化为VB中的字符串
    
33.         temp(1) = StrConv(buff, vbUnicode)
    
34.     End If
    
35. 
    

复制代码

用不同颜色标注了修改和新增的代码

1. 
   

复制代码

alandikong

编程是门艺术，也是技术

伶俐的毛豆

运行到这里提示对象未登陆，前期也报这个错误，后期绑定也报这个错误,请问楼主，这个要怎么解决啊

伶俐的毛豆

悠扬的旋律

嗯我也报错429

lss001

悠扬的旋律 发表于 2024-8-12 11:36
嗯我也报错429

https://blog.csdn.net/weixin_70794672/article/details/131795969
参考一下以上链接提示，
下载并注册TLBINF32.DLL，
注册后在VBE代码窗口中工具→引用该控件