Create a Registry Control

Add a Usercontrol (cReg). Add the following code to it's General Declarations procedure:

'Function for removing a key
Public Function fDeleteValue(ByVal HKey As Long, _
       ByVal strPath As String, _
       ByVal strValue As String)
Dim keyhand As Long
'Open it
r = RegOpenKey(HKey, strPath, keyhand)
'Delete it
r = RegDeleteValue(keyhand, strValue)
'Close it
r = RegCloseKey(keyhand)
End Function

 color="#FF00FF">'Function for getting a string
Public Function fGetstring(HKey As Long, _
       strPath As String, strValue As String)
Dim keyhand As Long
Dim datatype As Long
Dim lResult As Long
Dim strBuf As String
Dim lDataBufSize As Long
Dim intZeroPos As Integer
'Open it
r = RegOpenKey(HKey, strPath, keyhand)
'Query the registry
lResult = RegQueryValueEx(keyhand, strValue, _
          0&, lValueType, ByVal 0&, lDataBufSize)
If lValueType = REG_SZ Then
  strBuf = String(lDataBufSize, " ")
  lResult = RegQueryValueEx(keyhand, strValue, _
            0&, 0&, ByVal strBuf, lDataBufSize)
  If lResult = ERROR_SUCCESS Then
    intZeroPos = InStr(strBuf, Chr$(0))
	If intZeroPos > 0
  Then
    fGetstring = Left$(strBuf, intZeroPos - 1)
  Else
    fGetstring = strBuf
  End If
End If
End If
End Function

'Function for saving a string
Public Sub fSaveString(HKey As Long, _
                       strPath As String, _
                       strValue As String, _
                       strdata As String)

Dim keyhand As Long
Dim r As Long

'Create it
r = RegCreateKey(HKey, strPath, keyhand)
'Set it 
r = RegSetValueEx(keyhand, strValue, 0, _
    REG_SZ, ByVal strdata,Len(strdata))
'Close it
r = RegCloseKey(keyhand)
End Sub

Private Sub UserControl_Initialize()
'Set the width and height values
UserControl.Width = UserControl.Picture.Width
UserControl.Height = UserControl.Picture.Height
End Sub

Private Sub UserControl_Resize()
'Reset the width and height values
UserControl.Width = UserControl.Picture.Width
UserControl.Height = UserControl.Picture.Height
End Sub

Page 3 of 3



This article was originally published on November 20, 2002