VB 注册表操作

SaveSetting(AppName As String, Section As String, Key As String, Setting As String)

GetSetting(AppName As String, Section As String, Key As String, [Default]) As String

GetAllSettings(AppName As String, Section As String)

DeleteSetting(AppName As String, [Section ], [Key])

savesetting 将一个值存储到注册表里
SaveSetting "工程主题","主键名","键名","键值"

GetSetting "工程主题","主键名","键名","默认键值" '默认键值,当获取为空,或不成功时返回默认值
这个函数的返回值就是获取的注册表的键值

        strTop = GetSetting("XCF.NET", "KS200", "Top")
        If strTop = "" Then Exit Sub
        strLeft = GetSetting("XCF.NET", "KS200", "Left")
        If strLeft = "" Then Exit Sub
        strHeight = GetSetting("XCF.NET", "KS200", "Height")
        If strHeight = "" Then Exit Sub
        strWidth = GetSetting("XCF.NET",' KS200", "Width")
        If strWidth = "" Then Exit Sub
       objForm.Top = CInt(strTop)
        objForm.Left = CInt(strLeft)
        objForm.Height = CInt(strHeight)
        objForm.Width = CInt(strWidth)