io Programmo 21/IOPROG_21.ISO/SOFT/EASYREG.ZIP/ReadMe.Frm

Visual Basic Form | 1997-10-16 | 6.6 KB | 213 lines

VERSION 5.00
Begin VB.Form Form1
   Caption         =   "EasyRegistry TEST"
   ClientHeight    =   1116
   ClientLeft      =   912
   ClientTop       =   1416
   ClientWidth     =   6012
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   1116
   ScaleWidth      =   6012
   Begin VB.CommandButton Command7
      Caption         =   "MakeKey DelKey"
      Height          =   396
      Left            =   1308
      TabIndex        =   6
      Top             =   600
      Width           =   2208
   End
   Begin VB.CommandButton Command6
      Caption         =   "DelValue"
      Height          =   396
      Left            =   132
      TabIndex        =   5
      Top             =   600
      Width           =   972
   End
   Begin VB.CommandButton Command5
      Caption         =   "ValueOf"
      Height          =   396
      Left            =   4956
      TabIndex        =   4
      Top             =   84
      Width           =   972
   End
   Begin VB.CommandButton Command4
      Caption         =   "ValueOf"
      Height          =   396
      Left            =   3732
      TabIndex        =   3
      Top             =   84
      Width           =   972
   End
   Begin VB.CommandButton Command3
      Caption         =   "DirValue"
      Height          =   396
      Left            =   2520
      TabIndex        =   2
      Top             =   96
      Width           =   972
   End
   Begin VB.CommandButton Command2
      Caption         =   "DirKey"
      Height          =   396
      Left            =   1308
      TabIndex        =   1
      Top             =   96
      Width           =   972
   End
   Begin VB.CommandButton Command1
      Caption         =   "Cd"
      Height          =   396
      Left            =   132
      TabIndex        =   0
      Top             =   108
      Width           =   972
   End
   Begin VB.Label Label1
      Alignment       =   2  'Center
      Caption         =   "Be Careful. BackUp the Registry"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   7.8
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   540
      Left            =   3576
      TabIndex        =   7
      Top             =   552
      Width           =   2412
   End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
Dim Reg As New clsEasyRegistry
  Reg.Cd "\HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS"
  Reg.Cd ".."
  Debug.Print Reg.CurrentKey
  Reg.Cd "\"
  Reg.Cd "HKEY_CURRENT_USER"
  Reg.Cd "SOFTWARE"
  Reg.Cd "MICROSOFT"
  Debug.Print Reg.CurrentKey
End Sub
Private Sub Command2_Click()
Dim Reg As New clsEasyRegistry
Dim astrResult As Variant
Dim lngJ As Long
  Debug.Print Reg.CurrentKey
  astrResult = Reg.DirKey
  If Not IsNull(astrResult) Then
    For lngJ = LBound(astrResult) To UBound(astrResult)
      Debug.Print astrResult(lngJ)
    Next
  End If
  Reg.Cd astrResult(LBound(astrResult))
  Debug.Print Reg.CurrentKey
End Sub
Private Sub Command3_Click()
Dim Reg As New clsEasyRegistry
Dim astrResult As Variant
Dim lngJ As Long
  Reg.Cd "\HKEY_CURRENT_USER\INSTALLLOCATIONSMRU"
  astrResult = Reg.DirValue
  If Not IsNull(astrResult) Then
    For lngJ = LBound(astrResult, 2) To UBound(astrResult, 2)
      Debug.Print "Value Name : " & astrResult(erValueName, lngJ)

      Select Case astrResult(erValueType, lngJ)
        Case erByte
          Debug.Print "Value Type : " & "Byte"
        Case erSTRING
          Debug.Print "Value Type : " & "String"
        Case erDWord
          Debug.Print "Value Type : " & "DWord"
      End Select

      Debug.Print "Value      : " & astrResult(erValue, lngJ)
      Debug.Print
    Next
  End If
End Sub
Private Sub Command4_Click()
Dim Reg As New clsEasyRegistry
Dim abytBYTE(0 To 1) As Byte
  Reg.Cd "\HKEY_CURRENT_USER\SOFTWARE\VB AND VBA PROGRAM SETTINGS"
  Reg.ValueOf("NewValueName 1", erSTRING) = "Hello World !"
  Reg.ValueOf("NewValueName 2", erDWord) = 666666666#
  abytBYTE(1) = 100
  abytBYTE(0) = 255
  Reg.ValueOf("NewValueName 3", erByte) = abytBYTE
End Sub
Private Sub Command5_Click()
Dim Reg As New clsEasyRegistry
Dim avntVariable As Variant
Dim lngType As enmDataType
Dim lngJ As Long
  Reg.Cd "\HKEY_CURRENT_USER\SOFTWARE\VB AND VBA PROGRAM SETTINGS"
  Reg.ValueOf("NewValueName 4", erDWord) = 4294967295#
  avntVariable = Reg.ValueOf("NewValueName 4", lngType)
  Select Case lngType
    Case erByte
      Debug.Print "Type : " & "Byte"
    Case erSTRING
      Debug.Print "Type : " & "String"
    Case erDWord
      Debug.Print "Type : " & "DWord"
  End Select
  Debug.Print "Value : " & avntVariable(erDWordFormat)
  Debug.Print "Value (Hex) : " & avntVariable(erStringFormat)
  Debug.Print "Value (Bytes) : "
  For lngJ = LBound(avntVariable(erByteFormat)) To UBound(avntVariable(erByteFormat))
    Debug.Print avntVariable(erByteFormat)(lngJ);
  Next
  Debug.Print
End Sub
Private Sub Command6_Click()
Dim Reg As New clsEasyRegistry
  Reg.Cd "\HKEY_CURRENT_USER\SOFTWARE\VB AND VBA PROGRAM SETTINGS"
  Reg.ValueOf("Temp Login Time", erSTRING) = "12:12.55"
  Reg.DeleteValue "Temp Login Time"
End Sub
Private Sub Command7_Click()
Dim Reg As New clsEasyRegistry
  Reg.Cd "\HKEY_CURRENT_USER\SOFTWARE\VB AND VBA PROGRAM SETTINGS"
  Reg.MakeKey "Friends"
  Reg.Cd "Friends"
  Debug.Print Reg.CurrentKey
  Reg.MakeKey "Bimbo Gigi"
  Reg.Cd ".."
  Reg.DeleteKey "Friends"
  ' N.B. With Windows NT you have to recursively delete all keys,
  '      with Windows95 this is not necessary.
  ' So this code for WinNT should be :
  '  Reg.Cd "\HKEY_CURRENT_USER\SOFTWARE\VB AND VBA PROGRAM SETTINGS"
  '  Reg.MakeKey "Friends"
  '  Reg.Cd "Friends"
  '  Debug.Print Reg.CurrentKey
  '  Reg.MakeKey "Bimbo Gigi"
  '  Reg.DeleteKey "Bimbo Gigi"
  '  Reg.Cd ".."
  '  Reg.DeleteKey "Friends"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim Reg As New clsEasyRegistry
Dim abytBYTE(0 To 1) As Byte
  On Error Resume Next
  Reg.Cd "\HKEY_CURRENT_USER\SOFTWARE\VB AND VBA PROGRAM SETTINGS"
  Reg.DeleteValue "NewValueName 1"
  Reg.DeleteValue "NewValueName 2"
  Reg.DeleteValue "NewValueName 3"
  Reg.DeleteValue "NewValueName 4"
End Sub