PRB: Cannot Pass Parameters as Float ByVal to VB 4.0 Events (137730)

The information in this article applies to:

Microsoft Visual Basic Standard Edition, 32-bit, for Windows 4.0
Microsoft Visual Basic Professional Edition, 32-bit, for Windows 4.0
Microsoft Visual Basic Enterprise Edition, 32-bit, for Windows 4.0

This article was previously published under Q137730

SYMPTOMS

OLE Custom Controls cannot pass parameters as Float ByVal to Visual Basic version 4.0 events.

RESOLUTION

Change the ByVal float param to a float*.

STATUS

This behavior is by design.

MORE INFORMATION

Sample Code in the Bind OLE Custom Control

void CBindCtrl::OnLButtonUp(UINT nFlags, CPoint point)
{
// TODO: Add your message handler code here and/or call default

   float fHH = 100.9f ;

// Floatbug is an event in the OCX
    FireFloatbug(&fHH) ;

   COleControl::OnLButtonUp(nFlags, point);
}

Sample Code in the Bind OLE Custom Control Event in Visual Basic 4.0

Private Sub Bind1_Floatbug(fTmp As Single)
   MsgBox CStr(fTmp)
End Sub

Modification Type:	Major	Last Reviewed:	11/18/2003
Keywords:	kbprb KB137730