📄 vbide_tlb.pas
字号:
procedure Add(const Window: Window); safecall;
property VBE: VBE read Get_VBE;
property Parent: Window read Get_Parent;
property Count: Integer read Get_Count;
end;
// *********************************************************************//
// DispIntf: _LinkedWindowsDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {0002E16C-0000-0000-C000-000000000046}
// *********************************************************************//
_LinkedWindowsDisp = dispinterface
['{0002E16C-0000-0000-C000-000000000046}']
property VBE: VBE readonly dispid 1;
property Parent: Window readonly dispid 2;
function Item(index: OleVariant): Window; dispid 0;
property Count: Integer readonly dispid 201;
function _NewEnum: IUnknown; dispid -4;
procedure Remove(const Window: Window); dispid 202;
procedure Add(const Window: Window); dispid 203;
end;
// *********************************************************************//
// Interface: Events
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {0002E167-0000-0000-C000-000000000046}
// *********************************************************************//
Events = interface(IDispatch)
['{0002E167-0000-0000-C000-000000000046}']
function Get_ReferencesEvents(const VBProject: VBProject): ReferencesEvents; safecall;
function Get_CommandBarEvents(const CommandBarControl: IDispatch): CommandBarEvents; safecall;
property ReferencesEvents[const VBProject: VBProject]: ReferencesEvents read Get_ReferencesEvents;
property CommandBarEvents[const CommandBarControl: IDispatch]: CommandBarEvents read Get_CommandBarEvents;
end;
// *********************************************************************//
// DispIntf: EventsDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {0002E167-0000-0000-C000-000000000046}
// *********************************************************************//
EventsDisp = dispinterface
['{0002E167-0000-0000-C000-000000000046}']
property ReferencesEvents[const VBProject: VBProject]: ReferencesEvents readonly dispid 202;
property CommandBarEvents[const CommandBarControl: IDispatch]: CommandBarEvents readonly dispid 205;
end;
// *********************************************************************//
// Interface: _VBProjectsEvents
// Flags: (256) OleAutomation
// GUID: {0002E113-0000-0000-C000-000000000046}
// *********************************************************************//
_VBProjectsEvents = interface(IUnknown)
['{0002E113-0000-0000-C000-000000000046}']
end;
// *********************************************************************//
// DispIntf: _dispVBProjectsEvents
// Flags: (4096) Dispatchable
// GUID: {0002E103-0000-0000-C000-000000000046}
// *********************************************************************//
_dispVBProjectsEvents = dispinterface
['{0002E103-0000-0000-C000-000000000046}']
procedure ItemAdded(const VBProject: VBProject); dispid 1;
procedure ItemRemoved(const VBProject: VBProject); dispid 2;
procedure ItemRenamed(const VBProject: VBProject; const OldName: WideString); dispid 3;
procedure ItemActivated(const VBProject: VBProject); dispid 4;
end;
// *********************************************************************//
// Interface: _VBComponentsEvents
// Flags: (256) OleAutomation
// GUID: {0002E115-0000-0000-C000-000000000046}
// *********************************************************************//
_VBComponentsEvents = interface(IUnknown)
['{0002E115-0000-0000-C000-000000000046}']
end;
// *********************************************************************//
// DispIntf: _dispVBComponentsEvents
// Flags: (4096) Dispatchable
// GUID: {0002E116-0000-0000-C000-000000000046}
// *********************************************************************//
_dispVBComponentsEvents = dispinterface
['{0002E116-0000-0000-C000-000000000046}']
procedure ItemAdded(const VBComponent: VBComponent); dispid 1;
procedure ItemRemoved(const VBComponent: VBComponent); dispid 2;
procedure ItemRenamed(const VBComponent: VBComponent; const OldName: WideString); dispid 3;
procedure ItemSelected(const VBComponent: VBComponent); dispid 4;
procedure ItemActivated(const VBComponent: VBComponent); dispid 5;
procedure ItemReloaded(const VBComponent: VBComponent); dispid 6;
end;
// *********************************************************************//
// Interface: _ReferencesEvents
// Flags: (256) OleAutomation
// GUID: {0002E11A-0000-0000-C000-000000000046}
// *********************************************************************//
_ReferencesEvents = interface(IUnknown)
['{0002E11A-0000-0000-C000-000000000046}']
end;
// *********************************************************************//
// DispIntf: _dispReferencesEvents
// Flags: (4096) Dispatchable
// GUID: {0002E118-0000-0000-C000-000000000046}
// *********************************************************************//
_dispReferencesEvents = dispinterface
['{0002E118-0000-0000-C000-000000000046}']
procedure ItemAdded(const Reference: Reference); dispid 1;
procedure ItemRemoved(const Reference: Reference); dispid 2;
end;
// *********************************************************************//
// Interface: _CommandBarControlEvents
// Flags: (256) OleAutomation
// GUID: {0002E130-0000-0000-C000-000000000046}
// *********************************************************************//
_CommandBarControlEvents = interface(IUnknown)
['{0002E130-0000-0000-C000-000000000046}']
end;
// *********************************************************************//
// DispIntf: _dispCommandBarControlEvents
// Flags: (4096) Dispatchable
// GUID: {0002E131-0000-0000-C000-000000000046}
// *********************************************************************//
_dispCommandBarControlEvents = dispinterface
['{0002E131-0000-0000-C000-000000000046}']
procedure Click(const CommandBarControl: IDispatch; var handled: WordBool;
var CancelDefault: WordBool); dispid 1;
end;
// *********************************************************************//
// Interface: _ProjectTemplate
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {0002E159-0000-0000-C000-000000000046}
// *********************************************************************//
_ProjectTemplate = interface(IDispatch)
['{0002E159-0000-0000-C000-000000000046}']
function Get_Application: Application; safecall;
function Get_Parent: Application; safecall;
property Application: Application read Get_Application;
property Parent: Application read Get_Parent;
end;
// *********************************************************************//
// DispIntf: _ProjectTemplateDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {0002E159-0000-0000-C000-000000000046}
// *********************************************************************//
_ProjectTemplateDisp = dispinterface
['{0002E159-0000-0000-C000-000000000046}']
property Application: Application readonly dispid 1;
property Parent: Application readonly dispid 2;
end;
// *********************************************************************//
// Interface: _VBProject_Old
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {0002E160-0000-0000-C000-000000000046}
// *********************************************************************//
_VBProject_Old = interface(_ProjectTemplate)
['{0002E160-0000-0000-C000-000000000046}']
function Get_HelpFile: WideString; safecall;
procedure Set_HelpFile(const lpbstrHelpFile: WideString); safecall;
function Get_HelpContextID: Integer; safecall;
procedure Set_HelpContextID(lpdwContextID: Integer); safecall;
function Get_Description: WideString; safecall;
procedure Set_Description(const lpbstrDescription: WideString); safecall;
function Get_Mode: vbext_VBAMode; safecall;
function Get_References: References; safecall;
function Get_Name: WideString; safecall;
procedure Set_Name(const lpbstrName: WideString); safecall;
function Get_VBE: VBE; safecall;
function Get_Collection: VBProjects; safecall;
function Get_Protection: vbext_ProjectProtection; safecall;
function Get_Saved: WordBool; safecall;
function Get_VBComponents: VBComponents; safecall;
property HelpFile: WideString read Get_HelpFile write Set_HelpFile;
property HelpContextID: Integer read Get_HelpContextID write Set_HelpContextID;
property Description: WideString read Get_Description write Set_Description;
property Mode: vbext_VBAMode read Get_Mode;
property References: References read Get_References;
property Name: WideString read Get_Name write Set_Name;
property VBE: VBE read Get_VBE;
property Collection: VBProjects read Get_Collection;
property Protection: vbext_ProjectProtection read Get_Protection;
property Saved: WordBool read Get_Saved;
property VBComponents: VBComponents read Get_VBComponents;
end;
// *********************************************************************//
// DispIntf: _VBProject_OldDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {0002E160-0000-0000-C000-000000000046}
// *********************************************************************//
_VBProject_OldDisp = dispinterface
['{0002E160-0000-0000-C000-000000000046}']
property HelpFile: WideString dispid 116;
property HelpContextID: Integer dispid 117;
property Description: WideString dispid 118;
property Mode: vbext_VBAMode readonly dispid 119;
property References: References readonly dispid 120;
property Name: WideString dispid 121;
property VBE: VBE readonly dispid 122;
property Collection: VBProjects readonly dispid 123;
property Protection: vbext_ProjectProtection readonly dispid 131;
property Saved: WordBool readonly dispid 133;
property VBComponents: VBComponents readonly dispid 135;
property Application: Application readonly dispid 1;
property Parent: Application readonly dispid 2;
end;
// *********************************************************************//
// Interface: _VBProject
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {EEE00915-E393-11D1-BB03-00C04FB6C4A6}
// *********************************************************************//
_VBProject = interface(_VBProject_Old)
['{EEE00915-E393-11D1-BB03-00C04FB6C4A6}']
procedure SaveAs(const FileName: WideString); safecall;
procedure MakeCompiledFile; safecall;
function Get_Type_: vbext_ProjectType; safecall;
function Get_FileName: WideString; safecall;
function Get_BuildFileName: WideString; safecall;
procedure Set_BuildFileName(const lpbstrBldFName: WideString); safecall;
property Type_: vbext_ProjectType read Get_Type_;
property FileName: WideString read Get_FileName;
property BuildFileName: WideString read Get_BuildFileName write Set_BuildFileName;
end;
// *********************************************************************//
// DispIntf: _VBProjectDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {EEE00915-E393-11D1-BB03-00C04FB6C4A6}
// *********************************************************************//
_VBProjectDisp = dispinterface
['{EEE00915-E393-11D1-BB03-00C04FB6C4A6}']
procedure SaveAs(const FileName: WideString); dispid 138;
procedure MakeCompiledFile; dispid 139;
property Type_: vbext_ProjectType readonly dispid 140;
property FileName: WideString readonly dispid 141;
property BuildFileName: WideString dispid 142;
property HelpFile: WideString dispid 116;
property HelpContextID: Integer dispid 117;
property Description: WideString dispid 118;
property Mode: vbext_VBAMode readonly dispid 119;
property References: References readonly dispid 120;
property Name: WideString dispid 121;
property VBE: VBE readonly dispid 122;
property Collection: VBProjects readonly dispid 123;
property Protection: vbext_ProjectProtection readonly dispid 131;
property Saved: WordBool readonly dispid 133;
property VBComponents: VBComponents readonly dispid 135;
property Application: Application readonly dispid 1;
property Parent: Application readonly dispid 2;
end;
// *********************************************************************//
// Interface: _VBProjects_Old
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {0002E165-0000-0000-C000-000000000046}
// *********************************************************************//
_VBProjects_Old = interface(IDispatch)
['{0002E165-0000-0000-C000-000000000046}']
function Item(index: OleVariant): VBProject; safecall;
function Get_VBE: VBE; safecall;
function Get_Parent: VBE; safecall;
function Get_Count: Integer; safecall;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -