FIX: WFC ActiveX Controls Do Not Fire Custom Events in VB (223362)

MORE INFORMATION

Steps to Reproduce Behavior

1. Open a new Control project in Visual J++ 6.0.
2. Create a simple control that includes a custom event as outlined in MSDN under the topic, "Creating a Custom Event."
3. Build and deploy the control.
4. Test the control in a Visual Basic application.
   1. Create a new Standard .exe project in Visual Basic.
   2. From the Project menu, click Components and add your new custom control to the project.
   3. In the Visual Basic designer, drag-and-drop the control onto the Visual Basic Form.
   4. From the code view, select the variable name for the control object (MyControl1 is the default) in the right-hand drop-down list and select the custom event in the left-hand drop-down list. This will cause Visual Basic to generate an outline for the custom event handler that will look something like this:

      Private Sub MyControl1_errorEvent(ByVal Parameter0 As Object, ByVal Parameter1 As Object)
      
      End Sub
      						

      Do the same for the Form Load event and insert code that will cause your custom event to fire. The following code handles the MSDN errorEvent sample mentioned below. It should look something like this:

      Private Sub Form_Load()
      MyControl1.myProp = 201
      End Sub
      						

      Notice that the custom event doesn't get fired whenever the myProp property value exceeds 200.

 // MyControl.java
import com.ms.wfc.ui.* ;
import com.ms.wfc.core.* ;
import com.ms.lang.Delegate;

/**
 * @com.register ( clsid=428B4065-E8B5-11D2-A801-00C04FB624C0, typelib=428B4064-E8B5-11D2-A801-00C04FB624C0 )
 */ 
public class MyControl extends Control 
{
  private int myProp = 1;
  public int getMyProp()
  {
    return myProp;
  }
  public void setMyProp(int value)
  {
    // Fires error event if property value exceeds 200
    if(value > 200)
    {
      onErrorEvent(new ErrorEvent(1020, "Invalid value"));
    }
    myProp = value;
  }

  protected void onPaint( PaintEvent p)
  {
    super.onPaint(p);
    Graphics g=p.graphics;
    g.drawString( getText(), 0, 0);
  }

  // event setup to be able to fire event "ErrorEvent"
  private ErrorEventHandler errDelegate = null;
  public final void addOnErrorEvent(ErrorEventHandler handler)
  {
    errDelegate = (ErrorEventHandler)Delegate.combine(errDelegate,
                                                      handler);
  }
  public final void removeOnErrorEvent(ErrorEventHandler handler)
  {
    errDelegate = (ErrorEventHandler)Delegate.remove(errDelegate,
                                                     handler);   
  }
  protected void onErrorEvent(ErrorEvent event)
  {
    if(errDelegate != null)
    {
      errDelegate.invoke(this, event);
    }   
  }
  
  public static class ClassInfo extends Control.ClassInfo
  {
    public static final PropertyInfo myProp = new 
                                              PropertyInfo(MyControl.class, "myProp", int.class);
    public void getProperties(IProperties props)
    {
      super.getProperties(props);
      props.add(myProp);
    }
    
    public static EventInfo evt = new EventInfo(MyControl.class, 
                                                "errorEvent", ErrorEventHandler.class);
    public void getEvents(IEvents events)
    {
      super.getEvents(events);
      events.add(evt);
    }
  }
}

// ErrorEventHandler.java
import com.ms.wfc.core.*;
public final multicast delegate void ErrorEventHandler(Object sender, 
  ErrorEvent event)
;

// ErrorEvent.java
import com.ms.wfc.core.*;
public class ErrorEvent extends Event
{
  public final int errorNumber;
  public final String errorText;
  public ErrorEvent( int eNum, String eTxt)
  {
    this.errorNumber = eNum;
    this.errorText   = eTxt;
  }
}