How To Share State Between UserDocuments in Internet Explorer

UserDocument.Parent.PutProperty "Tag", Value
				

v = UserDocument.Parent.GetProperty("Tag")
				

Set v = UserDocument.Parent.GetProperty("Tag")
				

EXAMPLE

Creating PropBag1.vbp

1. In Visual Basic, create an ActiveX Document DLL project. On the File menu, choose New Project and double-click the Active X Document DLL icon.
2. Save the Project. Click Save Project on the File menu. Use Doc1.dob as the document file name and PropBag1.vbp as the project file name.
3. Name the project. Make sure Project1(ProbBag1.vbp) is highlighted in the Project window. In the Properties window, change the project name to PropBag1.
4. Name the user document. Expand the User Documents folder in the Project window and double-click on UserDocument1. In the Properties window, change the name to Doc1.
5. Add controls to Doc1. Add two text boxes to the form. Name them txtName and txtCompany, respectively. Clear the Text property in both text boxes. Add a Command button and set the following properties for the Command button:
   Name: cmdNext Caption: Next
6. Add a Class module to the PropBag1 project. Click Add ClassModule on the Project menu. Name the Class module clsMySharedState. The state information you want to share will be stored in an instance of this class. Paste the following code into the General Declarations section of the clsMySharedState class code window:

   Sample Code

   Option Explicit
   
   'Normally you will use Module-level variables
   'and access them from Properties. This example
   'uses Globals for simplicity.
    Public YourName As String
    Public YourCompany As String
   
    Private Sub Class_Initialize()
       YourName = ""
       YourCompany = ""
    End Sub
   					

1. Paste the following code into the cmdNext_Click event procedure of Doc1:

   Sample Code

   Private Sub cmdNext_Click()
      Dim State As clsMySharedState
      Dim Found As Boolean
   
      'Check the property bag to see if there is a reference
      'to the object.
      On Error Resume Next
      Set State = UserDocument.Parent.GetProperty("PropBag.SharedState")
      Found = (Err.Number = 0)
      On Error GoTo 0
   
      If Not Found Then
         'Create and store the object reference in the property bag.
         Set State = New clsMySharedState
         UserDocument.Parent.PutProperty ("PropBag.SharedState"), State
      End If
   
      'Save information into the shared state.
      State.YourName = txtName
      State.YourCompany = txtCompany
   
      'Navigate to the second document.
      UserDocument.Hyperlink.NavigateTo App.Path + "\Doc2.VBD"
   End Sub
   					

2. Add the following code to the UserDocument_Show event of Doc1 to populate the text boxes when the user returns to Doc1:

   Sample Code

   Private Sub UserDocument_Show()
      Dim State As clsMySharedState
      Dim Found As Boolean
   
      'Check the property bag to see if there is a reference
      'to the object.
      On Error Resume Next
      Set State = UserDocument.Parent.GetProperty("PropBag.SharedState")
      Found = (Err.Number = 0)
      On Error GoTo 0
   
      If Found Then
         txtName = State.YourName
         txtCompany = State.YourCompany
      End If
   End Sub
   					

3. Compile the project. Click Make PropBag1.dll... on the File menu to compile the project into PropBag1.dll.
4. Set the version compatibility for Propbag1.dll to Binary Compatibility. Click PropBag1 Properties on the Project menu. Choose the Component tab and set the version compatibility for PropBag1.dll to Binary Compatibility. (Click the ellipsis button to browse for the PropBag1.dll).
5. Save the project. Click Save Project on the File menu.

Creating PropBag2.vbp

1. In Visual Basic, create an ActiveX Document EXE project. On the File menu, choose New Project and double-click the Active X Document EXE icon.
2. Save the Project. Click Save Project on the File menu. Use Doc2.dob as the document file name and PropBag2.vbp as the project file name.
3. Name the project. Make sure Project2(ProbBag2.vbp) is highlighted in the Project window. In the Properties window, change the project name to PropBag2.
4. Name the user document. Expand the User Documents folder in the Project window and double-click on UserDocument2. In the Properties window, change the name to Doc2.
5. Add a reference to clsMySharedState. Click References... on the Project menu. Select PropBag1.dll and click OK.
6. Add controls to Doc2. Add two labels to the Doc2 form. Name them lblName and lblCompany, respectively. Clear the Caption property of each control.
7. Add code to retrieve the object stored in the Internet Explorer property bag and display the information. Add the following code to Doc2 in the UserDocument_Show event:

   Sample Code

   Private Sub UserDocument_Show()
      Dim State As clsMySharedState
      Dim Found As Boolean
   
      'Check the property bag to see if an object is already there
      On Error Resume Next
      Set State = UserDocument.Parent.GetProperty("PropBag.SharedState")
      Found = (Err.Number = 0)
      On Error GoTo 0
   
      If Found Then
         'Display the information in Doc2
         lblName = State.YourName
         lblCompany = State.YourCompany
       End If
    End Sub
   					

8. Compile the project. Click Make PropBag2.exe[ASCII 133] on the File menu to compile the project into PropBag2.exe.
9. Set the version compatibility for Propbag2.exe to Binary Compatibility. On the Project menu, click PropBag2 Properties. Choose the Component tab and set the version compatibility for PropBag2.exe to Binary Compatibility. (Click the ellipsis button to browse for the PropBag2.exe).
10. Save the project. Click Save Project from the File menu.

1. Open Internet Explorer.
2. Drag Doc1.vbd from Windows Explorer into Internet Explorer. This will run Doc1.
3. Enter your name and company name.
4. Click the Next button to go to Doc2. Your name and company name should appear in the labels.
5. Click the Back button on Internet Explorer. You should return to Doc1 and still see your name and company name. You can navigate to another location such as www.microsoft.com and then return to your user document.

Using the Internet Explorer 4.x and 5.0 Discardable Browser Property

1. Use Microsoft Notepad to create a text file with the following text and save it as DiscProp.odl:

   Sample Code

   [
      uuid(30DFC192-230F-11d1-85A4-00AA00C006CB),
      helpstring("Discardable Browser Property Interface"),
      version(1.0)
   ]
   
   library DiscProp
   {
      importlib("stdole2.tlb");
      [
         uuid(49C3DE7C-D329-11D0-AB73-00C04FC33E80),
         helpstring("IDiscardableBrowserProperty Interface"),
         oleautomation
      ]
      interface IDiscardableBrowserProperty:IUnknown
      {
         [helpstring("Never called")] HRESULT DummyProc();
      }
   }
   					

2. From a command prompt, change to the directory that contains mktyplib.exe. The default should be C:\Program Files\Microsoft Visual Studio\VC98\Bin if you installed Visual Studio 6.
3. Enter the following command to create the type library:
   mktyplib C:\DiscProp.odl /tlb C:\DiscProp.tlb
4. In Visual Basic, click Open Project on the File menu and double-click PropBag1.vbp.
5. Set a reference to the DiscProp.tlb by clicking References... on the Project menu and then browse to look for DiscProp.tlb. This will allow you to implement the IDiscardableBrowserProperty interface with the IID specified in the DiscProp.odl file. Internet Explorer performs a QueryInterface with this IID to see if the object being stored implements this interface. If it does, Internet Explorer can discard the property if it has not been used for the specified length of time.

1. Add the following line in the General Declarations section of the class right after the Option Explicit statement: Implements IDiscardableBrowserProperty
2. Add the following procedure to your class:

         Private Sub IDiscardableBrowserProperty_DummyProc()
            'This method is never called.
            'It is only included to implement the interface.
         End Sub