exemple:
Code: Select all
Function OLEMethod Cdecl (nType As Integer,pvResult as VARIANT Ptr,pDisp as IDispatch Ptr,ptName As LPOLESTR ,cArgs As Integer=0, ...) As HRESULT
......
end function
'usage:
'now:
Dim As VARIANT x
x.vt = VT_I4
x.lVal = nSize
m_hr=OLEMethod(DISPATCH_PROPERTYPUT, NULL, pFont, OLESTR("Size"), 1, @x)
'request:
m_hr=OLEMethod(DISPATCH_PROPERTYPUT, NULL, pFont, OLESTR("Size"), 1, x)