http://www.sqreg.com/file/vb/reg_01.htm
http://www.sqreg.com/file/vb/reg_02.htm
http://www.sqreg.com/file/vb/reg_03.htm
http://www.sqreg.com/file/vb/reg_04.htm
http://www.sqreg.com/file/vb/reg_05.htm
http://www.sqreg.com/file/vb/reg_06.htm
http://www.sqreg.com/file/vb/reg_07.htm

解决方案 »

  1.   

    "C:\Program Files\Microsoft Visual Studio\VB98\Template\Code\注册表访问.bas"
      

  2.   

    太累了还看什么书啊,下载个现成的程序就成了!http://baiqiangren.myetang.com/vb_code/registry/registry.zip
    我就是通过这个东东写、读注册表的,对了这个程序有个bug就是向注册表写string时不支持中文,你把函数SetStringValue中的
    rtn = RegSetValueEx(hKey, Entry, 0, REG_SZ, ByVal Value,Len(Value))
    改成
    rtn = RegSetValueEx(hKey, Entry, 0, REG_SZ, ByVal Value,Len(Value) * 2)
    就可以了!其他的我还没有发现!
      

  3.   

    对不起,我忘了说了!!在读取string串时也有bug当中文时读出的有错误英文没关系
    读取string的函数GetStringValue有bug解决方法如下
    GetStringValue中:
    if ChineseFlg then    '说明是中文的
        GetStringValue = Left(sBuffer, Len(sBuffer) - 2)
    else                   '英文
        GetStringValue = Left(sBuffer, Len(sBuffer) - 1)
    end if
      

  4.   

    www.vbeden.com
    www.helpwork.net书库