📄 vbide_tlb.pas
字号:
function _NewEnum: IUnknown; safecall;
property VBE: VBE read Get_VBE;
property Parent: VBE read Get_Parent;
property Count: Integer read Get_Count;
end;
// *********************************************************************//
// DispIntf: _VBProjects_OldDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {0002E165-0000-0000-C000-000000000046}
// *********************************************************************//
_VBProjects_OldDisp = dispinterface
['{0002E165-0000-0000-C000-000000000046}']
function Item(index: OleVariant): VBProject; dispid 0;
property VBE: VBE readonly dispid 20;
property Parent: VBE readonly dispid 2;
property Count: Integer readonly dispid 10;
function _NewEnum: IUnknown; dispid -4;
end;
// *********************************************************************//
// Interface: _VBProjects
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {EEE00919-E393-11D1-BB03-00C04FB6C4A6}
// *********************************************************************//
_VBProjects = interface(_VBProjects_Old)
['{EEE00919-E393-11D1-BB03-00C04FB6C4A6}']
function Add(Type_: vbext_ProjectType): VBProject; safecall;
procedure Remove(const lpc: VBProject); safecall;
function Open(const bstrPath: WideString): VBProject; safecall;
end;
// *********************************************************************//
// DispIntf: _VBProjectsDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {EEE00919-E393-11D1-BB03-00C04FB6C4A6}
// *********************************************************************//
_VBProjectsDisp = dispinterface
['{EEE00919-E393-11D1-BB03-00C04FB6C4A6}']
function Add(Type_: vbext_ProjectType): VBProject; dispid 137;
procedure Remove(const lpc: VBProject); dispid 138;
function Open(const bstrPath: WideString): VBProject; dispid 139;
function Item(index: OleVariant): VBProject; dispid 0;
property VBE: VBE readonly dispid 20;
property Parent: VBE readonly dispid 2;
property Count: Integer readonly dispid 10;
function _NewEnum: IUnknown; dispid -4;
end;
// *********************************************************************//
// Interface: SelectedComponents
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {BE39F3D4-1B13-11D0-887F-00A0C90F2744}
// *********************************************************************//
SelectedComponents = interface(IDispatch)
['{BE39F3D4-1B13-11D0-887F-00A0C90F2744}']
function Item(index: SYSINT): Component; safecall;
function Get_Application: Application; safecall;
function Get_Parent: VBProject; safecall;
function Get_Count: Integer; safecall;
function _NewEnum: IUnknown; safecall;
property Application: Application read Get_Application;
property Parent: VBProject read Get_Parent;
property Count: Integer read Get_Count;
end;
// *********************************************************************//
// DispIntf: SelectedComponentsDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {BE39F3D4-1B13-11D0-887F-00A0C90F2744}
// *********************************************************************//
SelectedComponentsDisp = dispinterface
['{BE39F3D4-1B13-11D0-887F-00A0C90F2744}']
function Item(index: SYSINT): Component; dispid 0;
property Application: Application readonly dispid 1;
property Parent: VBProject readonly dispid 2;
property Count: Integer readonly dispid 10;
function _NewEnum: IUnknown; dispid -4;
end;
// *********************************************************************//
// Interface: _Components
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {0002E161-0000-0000-C000-000000000046}
// *********************************************************************//
_Components = interface(IDispatch)
['{0002E161-0000-0000-C000-000000000046}']
function Item(index: OleVariant): Component; safecall;
function Get_Application: Application; safecall;
function Get_Parent: VBProject; safecall;
function Get_Count: Integer; safecall;
function _NewEnum: IUnknown; safecall;
procedure Remove(const Component: Component); safecall;
function Add(ComponentType: vbext_ComponentType): Component; safecall;
function Import(const FileName: WideString): Component; safecall;
function Get_VBE: VBE; safecall;
property Application: Application read Get_Application;
property Parent: VBProject read Get_Parent;
property Count: Integer read Get_Count;
property VBE: VBE read Get_VBE;
end;
// *********************************************************************//
// DispIntf: _ComponentsDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {0002E161-0000-0000-C000-000000000046}
// *********************************************************************//
_ComponentsDisp = dispinterface
['{0002E161-0000-0000-C000-000000000046}']
function Item(index: OleVariant): Component; dispid 0;
property Application: Application readonly dispid 1;
property Parent: VBProject readonly dispid 2;
property Count: Integer readonly dispid 10;
function _NewEnum: IUnknown; dispid -4;
procedure Remove(const Component: Component); dispid 11;
function Add(ComponentType: vbext_ComponentType): Component; dispid 12;
function Import(const FileName: WideString): Component; dispid 13;
property VBE: VBE readonly dispid 20;
end;
// *********************************************************************//
// Interface: _VBComponents_Old
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {0002E162-0000-0000-C000-000000000046}
// *********************************************************************//
_VBComponents_Old = interface(IDispatch)
['{0002E162-0000-0000-C000-000000000046}']
function Item(index: OleVariant): VBComponent; safecall;
function Get_Parent: VBProject; safecall;
function Get_Count: Integer; safecall;
function _NewEnum: IUnknown; safecall;
procedure Remove(const VBComponent: VBComponent); safecall;
function Add(ComponentType: vbext_ComponentType): VBComponent; safecall;
function Import(const FileName: WideString): VBComponent; safecall;
function Get_VBE: VBE; safecall;
property Parent: VBProject read Get_Parent;
property Count: Integer read Get_Count;
property VBE: VBE read Get_VBE;
end;
// *********************************************************************//
// DispIntf: _VBComponents_OldDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {0002E162-0000-0000-C000-000000000046}
// *********************************************************************//
_VBComponents_OldDisp = dispinterface
['{0002E162-0000-0000-C000-000000000046}']
function Item(index: OleVariant): VBComponent; dispid 0;
property Parent: VBProject readonly dispid 2;
property Count: Integer readonly dispid 10;
function _NewEnum: IUnknown; dispid -4;
procedure Remove(const VBComponent: VBComponent); dispid 11;
function Add(ComponentType: vbext_ComponentType): VBComponent; dispid 12;
function Import(const FileName: WideString): VBComponent; dispid 13;
property VBE: VBE readonly dispid 20;
end;
// *********************************************************************//
// Interface: _VBComponents
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {EEE0091C-E393-11D1-BB03-00C04FB6C4A6}
// *********************************************************************//
_VBComponents = interface(_VBComponents_Old)
['{EEE0091C-E393-11D1-BB03-00C04FB6C4A6}']
function AddCustom(const ProgId: WideString): VBComponent; safecall;
function AddMTDesigner(index: Integer): VBComponent; safecall;
end;
// *********************************************************************//
// DispIntf: _VBComponentsDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {EEE0091C-E393-11D1-BB03-00C04FB6C4A6}
// *********************************************************************//
_VBComponentsDisp = dispinterface
['{EEE0091C-E393-11D1-BB03-00C04FB6C4A6}']
function AddCustom(const ProgId: WideString): VBComponent; dispid 25;
function AddMTDesigner(index: Integer): VBComponent; dispid 26;
function Item(index: OleVariant): VBComponent; dispid 0;
property Parent: VBProject readonly dispid 2;
property Count: Integer readonly dispid 10;
function _NewEnum: IUnknown; dispid -4;
procedure Remove(const VBComponent: VBComponent); dispid 11;
function Add(ComponentType: vbext_ComponentType): VBComponent; dispid 12;
function Import(const FileName: WideString): VBComponent; dispid 13;
property VBE: VBE readonly dispid 20;
end;
// *********************************************************************//
// Interface: _Component
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {0002E163-0000-0000-C000-000000000046}
// *********************************************************************//
_Component = interface(IDispatch)
['{0002E163-0000-0000-C000-000000000046}']
function Get_Application: Application; safecall;
function Get_Parent: Components; safecall;
function Get_IsDirty: WordBool; safecall;
procedure Set_IsDirty(lpfReturn: WordBool); safecall;
function Get_Name: WideString; safecall;
procedure Set_Name(const pbstrReturn: WideString); safecall;
property Application: Application read Get_Application;
property Parent: Components read Get_Parent;
property IsDirty: WordBool read Get_IsDirty write Set_IsDirty;
property Name: WideString read Get_Name write Set_Name;
end;
// *********************************************************************//
// DispIntf: _ComponentDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {0002E163-0000-0000-C000-000000000046}
// *********************************************************************//
_ComponentDisp = dispinterface
['{0002E163-0000-0000-C000-000000000046}']
property Application: Application readonly dispid 1;
property Parent: Components readonly dispid 2;
property IsDirty: WordBool dispid 10;
property Name: WideString dispid 48;
end;
// *********************************************************************//
// Interface: _VBComponent_Old
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {0002E164-0000-0000-C000-000000000046}
// *********************************************************************//
_VBComponent_Old = interface(IDispatch)
['{0002E164-0000-0000-C000-000000000046}']
function Get_Saved: WordBool; safecall;
function Get_Name: WideString; safecall;
procedure Set_Name(const pbstrReturn: WideString); safecall;
function Get_Designer: IDispatch; safecall;
function Get_CodeModule: CodeModule; safecall;
function Get_Type_: vbext_ComponentType; safecall;
procedure Export(const FileName: WideString); safecall;
function Get_VBE: VBE; safecall;
function Get_Collection: VBComponents; safecall;
function Get_HasOpenDesigner: WordBool; safecall;
function Get_Properties: Properties; safecall;
function DesignerWindow: Window; safecall;
procedure Activate; safecall;
property Saved: WordBool read Get_Saved;
property Name: WideString read Get_Name write Set_Name;
property Designer: IDispatch read Get_Designer;
property CodeModule: CodeModule read Get_CodeModule;
property Type_: vbext_ComponentType read Get_Type_;
property VBE: VBE read Get_VBE;
property Collection: VBComponents read Get_Collection;
property HasOpenDesigner: WordBool read Get_HasOpenDesigner;
property Properties: Properties read Get_Properties;
end;
// *********************************************************************//
// DispIntf: _VBComponent_OldDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {0002E164-0000-0000-C000-000000000046}
// *********************************************************************//
_VBComponent_OldDisp = dispinterface
['{0002E164-0000-0000-C000-000000000046}']
property Saved: WordBool readonly dispid 10;
property Name: WideString dispid 48;
property Designer: IDispatch readonly dispid 49;
property CodeModule: CodeModule readonly dispid 50;
property Type_: vbext_ComponentType readonly dispid 51;
procedure Export(const FileName: WideString); dispid 52;
property VBE: VBE readonly dispid 53;
property Collection: VBComponents readonly dispid 54;
property HasOpenDesigner: WordBool readonly dispid 55;
property Properties: Properties readonly dispid 56;
function DesignerWindow: Window; dispid 57;
procedure Activate; dispid 60;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -