persisthistory.odl

来自「VB圣经」· ODL 代码 · 共 37 行

[
    uuid(6FBB99C0-D342-11d3-BC39-D41203C10000),
    helpstring("IPersistHistory: Simplified Types"),
    lcid(0x0),
    version(1.0)
] 

library PersistHistory
{  
    importlib("stdole2.tlb");
    [
        uuid(7FD52380-4E07-101B-AE2D-08002B2EC713),
        odl
    ]
    interface IPersistStreamInit : IUnknown
    {
        HRESULT GetClassID([in] long pClassID);
        long IsDirty();
        HRESULT Load([in] long pStream);
        HRESULT Save([in] long pStream, [in] long fClearDirty);
        HRESULT GetSizeMax([in] long pcbSize);
    }
    [
        uuid(91A565C1-E38F-11d0-94BF-00A0C9055CBF), 
        odl
    ]
    interface IPersistHistory : IUnknown
    {

        HRESULT GetClassID([in] long pClassID);
        HRESULT LoadHistory([in] long pStream, [in] long pbc);
        HRESULT SaveHistory([in] long pStream);
	HRESULT SetPositionCookie([in] long dwPositionCookie);
        HRESULT GetPositionCookie([out,retval] long* pdwPositionCookie);
    }
}