VB RezQ - Source Recovery for Visual Basic vbrezq.com
   Home   |   Overview   |   Download   |   Buy Now   |   Support
VB RezQ

Example - Part 3      Previous     Next


Recovery of the UserDocument File, Secnddoc.dob

Compare the information recovered by VB RezQ on the right with the original source file on the left.
Comments on differences are shown in red.

    1. VB RezQ recovers the procedure declaration but not its executable code.






Buy Now

Download Demo

Product Overview

More Information

Recovery Example

FAQ


Original Source File Diff As Recovered by VB RezQ
VERSION 5.00
Begin VB.UserDocument SecndDoc 
   ClientHeight    =   3600
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4800
   HScrollSmallChange=   225
   ScaleHeight     =   3600
   ScaleWidth      =   4800
   VScrollSmallChange=   225
   Begin VB.CommandButton cmdGoBack 
      Caption         =   "Go Back"
      Height          =   495
      Left            =   240
      TabIndex        =   1
      Top             =   960
      Width           =   1215
   End
   Begin VB.Label lblCaption 
      Caption         =   "SecndDoc"
      Height          =   495
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   3975
   End
End
Attribute VB_Name = "SecndDoc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private Sub cmdGoBack_Click()
    ' Go back to the FristDoc ActiveX document.
   UserDocument.Hyperlink.GoBack
End Sub

Private Sub UserDocument_Show()
    ' Test to see if the global variable is set
    ' to a reference. If it is, then set the
    ' Caption property using the strDocProp property.
    ' IMPORTANT: release the reference afterwards
    ' by setting it to the keyword "Nothing."
    If Not gFirstDoc Is Nothing Then
       lblCaption.Caption = gFirstDoc.strDocProp
       Set gFirstDoc = Nothing
    End If
End Sub 




































1>




VERSION 5.00
Begin VB.UserDocument SecndDoc
   ClientHeight    =   3600
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4800
   HScrollSmallChange =   225
   ScaleHeight     =   3600
   ScaleWidth      =   4800
   VScrollSmallChange =   225
   Begin VB.CommandButton cmdGoBack
      Caption         =   "Go Back"
      Height          =   495
      Left            =   240
      TabIndex        =   1
      Top             =   960
      Width           =   1215
   End
   Begin VB.Label lblCaption
      Caption         =   "SecndDoc"
      Height          =   495
      Left            =   240
      TabIndex        =   0
      Top             =   120
      Width           =   3975
   End
End
Attribute VB_Name = "SecndDoc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
 
' This form rebuilt by VBRezQ v2.0n.  12-Mar-2001 / 22:07:01
Option Explicit 
 
Sub cmdGoBack_Click()
End Sub
 
Sub UserDocument_Show()
End Sub 

Copyright © 2004 ThunderPeek Software - All Rights Reserved