linkedpoints.odl

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

[
    uuid(96BD7D00-5248-11d3-AB5C-D41203C10000),
    helpstring("LinkedPoints sample typelib."),
    lcid(0x0),
    version(1.0)
] 

library LinkedPointsLib
{  
    importlib("stdole2.tlb");
    [uuid(96BD7D01-5248-11d3-AB5C-D41203C10000), odl]
    interface ILinkedPoint : IUnknown
    {
        long X();
        long Y();
        ILinkedPoint* Next();
        void SetNext([in] ILinkedPoint** pNext);
    }
    [uuid(96BD7D02-5248-11d3-AB5C-D41203C10000), odl]
    interface IStartingPoint : IUnknown
    {
        IStartingPoint* Next();
        ILinkedPoint* First();
        void AddPoint([in] ILinkedPoint** pNew);
    }
}