registry.cls

VB代码

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Registry"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private msAppName As String
Private msSection As String
Private msKey As String
Private msSetting As String

'AppName
Public Property Get AppName() As String
    AppName = msAppName

End Property
Public Property Let AppName(ByVal sAppName As String)
    msAppName = sAppName
End Property

Public Property Get Section() As String

    Section = msSection
End Property
Public Property Let Section(ByVal sSection As String)

    msSection = sSection
End Property

Public Property Get Key() As String

    Key = msKey
End Property

Public Property Let Key(ByVal sKey As String)
    msKey = sKey
End Property
Public Property Get Setting() As String
    Setting = msSetting
End Property
Public Property Let Setting(ByVal sSetting As String)
    msSetting = sSetting
End Property

Public Sub RegGet()
    msSetting = GetSetting(msAppName, msSection, msKey)
    
End Sub

Public Sub RegSave()
    SaveSetting msAppName, msSection, msKey, msSetting
End Sub

Public Sub RegDel()
    DeleteSetting msAppName, msSection, msKey
    
End Sub