请教REGENUMVALUE的问题
代码如下
Function listvalue(keys)
Dim x As Long, i As Long, dType As Long
rkey = Space(300)
'Dim lkey As Long
Do Until x <> 0
x = RegEnumValue(hkey, i, rkey, 300, 0, dType, 0, 0)
Debug.Print x
If x = 0 Then List2.AddItem rkey
i = i + 1
Loop
End Function
可以确定HKEY没有问题,因为REGENUMKEYEX还在使用,最后的REGCLOSEKEY使用HKEY也没有问题。
中间代码找不到问题所在。X的返回值总不是0,请教一下如何解决,问题何在,谢谢。