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

ID: Q137730

The information in this article applies to:

Microsoft Visual Basic Standard, Professional, and Enterprise Editions, 32-bit only, for Windows, version 4.0

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

Additional query words: 4.00 vb4win vb432

Keywords :
Version : WINDOWS:4.0
Platform : WINDOWS
Issue type :