1 Attachment(s)
Create class module? RESOLVED
Hello all,
I was wondering if anyone would like to help me convert the attached module, in the project, to a Class module. I sort of understand the basics of Class programming, but I'm a newbie at it and would like someone to help me out with this little project.
The Functions that I want to have are:
SetKey
GetKey
DelKey
DelKeyValue
For instance, I would like to be able to use the Class as follows:
Code:
Sub Main()
'Example for local machine:
Dim Registry As clsRegistry
Set Registry = New clsRegistry
If Registry.GetValue(HKEY_LOCAL_MACHINE, "Software\Testing", "TestValue", "TestSetting") = "Error" Then
Registry.SetValue(HKEY_LOCAL_MACHINE, "Software\Testing", "TestValue", "TestSetting") = "Last Name"
MsgBox "Value was set"
Else
MsgBox "Error setting value"
End If
End Sub
Any advice/help is greatly appreciated,
Thanx,
ziggy2004 :cool: