Aufruf: API Funktionen

LONG = APIBindEventsEx(hHwnd AS INTEGER , nMsg AS LONG , oObject AS OBJECT , cFunction AS STRING , cParmDefinition AS STRING , nFlags AS LONG)

Rückgabe: API Funktionen

Rückgabe der Funktion: LONG

Code: API Funktionen

FUNCTION APIBindEventsEx (hHwnd AS INTEGER ,nMsg AS LONG ,oObject AS OBJECT ,cFunction AS STRING ,cParmDefinition AS STRING ,nFlags AS LONG ) AS LONG
	*/ DECLARE LONG BindEventsEx IN vfp2c32.fll AS APIBindEventsEx INTEGER hHwnd,LONG nMsg,OBJECT oObject,STRING cFunction,STRING cParmDefinition,LONG nFlags
	DO CASE
		CASE !My.lIsVfp2c32
			RETURN .NULL.
		CASE PCOUNT()=0
			RETURN BindEventsEx()
		CASE PCOUNT()=1
			RETURN BindEventsEx(m.hHwnd)
		CASE PCOUNT()=2
			RETURN BindEventsEx(m.hHwnd,m.nMsg)
		CASE PCOUNT()=3
			RETURN BindEventsEx(m.hHwnd,m.nMsg,m.oObject)
		CASE PCOUNT()=4
			RETURN BindEventsEx(m.hHwnd,m.nMsg,m.oObject,m.cFunction)
		CASE PCOUNT()=5
			RETURN BindEventsEx(m.hHwnd,m.nMsg,m.oObject,m.cFunction,m.cParmDefinition)
		CASE PCOUNT()=6
			RETURN BindEventsEx(m.hHwnd,m.nMsg,m.oObject,m.cFunction,m.cParmDefinition,m.nFlags)
	ENDCASE
ENDFUNC