Microsoft KB Archive/153881

= HOWTO: How To Assign the ActiveX Control LPDispatch Property in VB 4 =

Article ID: 153881

Article Last Modified on 11/21/2006

-

APPLIES TO

 Microsoft Foundation Class Library 4.2, when used with:  Microsoft Visual C++ 4.0 Standard Edition

 Microsoft Visual C++ 4.1 Subscription

 Microsoft Visual C++ 4.2 Enterprise Edition

 Microsoft Visual C++ 4.2 Professional Edition</li></ul> </li></ul>

-

<div class="notice_section">

This article was previously published under Q153881

<div class="summary_section">

SUMMARY
It is often useful for one ActiveX (OLE) Control to hold an LPDispatch pointer to another control on the same Visual Basic form. The first control can use this pointer to call methods and/or access properties on the second control using OLE Automation. This article demonstrates how to create a property of type LPDispatch on an MFC ActiveX Control, and how to properly set this property to another control's IDispatch pointer in Visual Basic.

NOTE: Although this article discusses properties of type LPDispatch, this information also applies to properties of type LPUnknown.

<div class="moreinformation_section">

MORE INFORMATION
Follow these steps to add a property to a custom ActiveX control that is to hold another control's IDispatch pointer:


 * 1) Using ClassWizard, add a property of type LPDispatch to the control. Fill in a name for the property, and select the "Member Variable" button for this property.
 * 2) Next, you must initialize this member variable to NULL in the control's constructor. If you do not, Visual Basic will cause a General Protection Fault when you try to assign a value to it. This occurs because MFC tries to call Release on the uninitialized pointer. If the pointer is set to NULL, Release will not be called by MFC.
 * 3) Build the control, and place it on a form in Visual Basic.

The following lines of Visual Basic code demonstrate how to set the property to another control's IDispatch pointer: <pre class="fixed_text">  'Set the control's DispatchProp property to the DBCombo OLE control on   'this form. Set MyOcx1.DispatchProp = DBCombo1

. . .    . ..

'Don't forget to set this property to Nothing when finished Set MyOcx1.DispatchProp = Nothing

<div class="references_section">