📄 vbide_tlb.pas
字号:
end;
// *********************************************************************//
// Interface: _VBComponent
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {EEE00921-E393-11D1-BB03-00C04FB6C4A6}
// *********************************************************************//
_VBComponent = interface(_VBComponent_Old)
['{EEE00921-E393-11D1-BB03-00C04FB6C4A6}']
function Get_DesignerID: WideString; safecall;
property DesignerID: WideString read Get_DesignerID;
end;
// *********************************************************************//
// DispIntf: _VBComponentDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {EEE00921-E393-11D1-BB03-00C04FB6C4A6}
// *********************************************************************//
_VBComponentDisp = dispinterface
['{EEE00921-E393-11D1-BB03-00C04FB6C4A6}']
property DesignerID: WideString readonly dispid 64;
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;
end;
// *********************************************************************//
// Interface: Property_
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {0002E18C-0000-0000-C000-000000000046}
// *********************************************************************//
Property_ = interface(IDispatch)
['{0002E18C-0000-0000-C000-000000000046}']
function Get_Value: OleVariant; safecall;
procedure Set_Value(lppvReturn: OleVariant); safecall;
function Get_IndexedValue(Index1: OleVariant; Index2: OleVariant; Index3: OleVariant;
Index4: OleVariant): OleVariant; safecall;
procedure Set_IndexedValue(Index1: OleVariant; Index2: OleVariant; Index3: OleVariant;
Index4: OleVariant; lppvReturn: OleVariant); safecall;
function Get_NumIndices: Smallint; safecall;
function Get_Application: Application; safecall;
function Get_Parent: Properties; safecall;
function Get_Name: WideString; safecall;
function Get_VBE: VBE; safecall;
function Get_Collection: Properties; safecall;
function Get_Object_: IUnknown; safecall;
procedure Set_Object_(const lppunk: IUnknown); safecall;
property Value: OleVariant read Get_Value write Set_Value;
property IndexedValue[Index1: OleVariant; Index2: OleVariant; Index3: OleVariant;
Index4: OleVariant]: OleVariant read Get_IndexedValue write Set_IndexedValue;
property NumIndices: Smallint read Get_NumIndices;
property Application: Application read Get_Application;
property Parent: Properties read Get_Parent;
property Name: WideString read Get_Name;
property VBE: VBE read Get_VBE;
property Collection: Properties read Get_Collection;
property Object_: IUnknown read Get_Object_ write Set_Object_;
end;
// *********************************************************************//
// DispIntf: Property_Disp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {0002E18C-0000-0000-C000-000000000046}
// *********************************************************************//
Property_Disp = dispinterface
['{0002E18C-0000-0000-C000-000000000046}']
property Value: OleVariant dispid 0;
property IndexedValue[Index1: OleVariant; Index2: OleVariant; Index3: OleVariant;
Index4: OleVariant]: OleVariant dispid 3;
property NumIndices: Smallint readonly dispid 4;
property Application: Application readonly dispid 1;
property Parent: Properties readonly dispid 2;
property Name: WideString readonly dispid 40;
property VBE: VBE readonly dispid 41;
property Collection: Properties readonly dispid 42;
property Object_: IUnknown dispid 45;
end;
// *********************************************************************//
// Interface: _Properties
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {0002E188-0000-0000-C000-000000000046}
// *********************************************************************//
_Properties = interface(IDispatch)
['{0002E188-0000-0000-C000-000000000046}']
function Item(index: OleVariant): Property_; safecall;
function Get_Application: Application; safecall;
function Get_Parent: IDispatch; safecall;
function Get_Count: Integer; safecall;
function _NewEnum: IUnknown; safecall;
function Get_VBE: VBE; safecall;
property Application: Application read Get_Application;
property Parent: IDispatch read Get_Parent;
property Count: Integer read Get_Count;
property VBE: VBE read Get_VBE;
end;
// *********************************************************************//
// DispIntf: _PropertiesDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {0002E188-0000-0000-C000-000000000046}
// *********************************************************************//
_PropertiesDisp = dispinterface
['{0002E188-0000-0000-C000-000000000046}']
function Item(index: OleVariant): Property_; dispid 0;
property Application: Application readonly dispid 1;
property Parent: IDispatch readonly dispid 2;
property Count: Integer readonly dispid 40;
function _NewEnum: IUnknown; dispid -4;
property VBE: VBE readonly dispid 10;
end;
// *********************************************************************//
// Interface: _AddIns
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {DA936B62-AC8B-11D1-B6E5-00A0C90F2744}
// *********************************************************************//
_AddIns = interface(IDispatch)
['{DA936B62-AC8B-11D1-B6E5-00A0C90F2744}']
function Item(index: OleVariant): AddIn; safecall;
function Get_VBE: VBE; safecall;
function Get_Parent: IDispatch; safecall;
function Get_Count: Integer; safecall;
function _NewEnum: IUnknown; safecall;
procedure Update; safecall;
property VBE: VBE read Get_VBE;
property Parent: IDispatch read Get_Parent;
property Count: Integer read Get_Count;
end;
// *********************************************************************//
// DispIntf: _AddInsDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {DA936B62-AC8B-11D1-B6E5-00A0C90F2744}
// *********************************************************************//
_AddInsDisp = dispinterface
['{DA936B62-AC8B-11D1-B6E5-00A0C90F2744}']
function Item(index: OleVariant): AddIn; dispid 0;
property VBE: VBE readonly dispid 1;
property Parent: IDispatch readonly dispid 2;
property Count: Integer readonly dispid 40;
function _NewEnum: IUnknown; dispid -4;
procedure Update; dispid 41;
end;
// *********************************************************************//
// Interface: AddIn
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {DA936B64-AC8B-11D1-B6E5-00A0C90F2744}
// *********************************************************************//
AddIn = interface(IDispatch)
['{DA936B64-AC8B-11D1-B6E5-00A0C90F2744}']
function Get_Description: WideString; safecall;
procedure Set_Description(const lpbstr: WideString); safecall;
function Get_VBE: VBE; safecall;
function Get_Collection: Addins; safecall;
function Get_ProgId: WideString; safecall;
function Get_Guid: WideString; safecall;
function Get_Connect: WordBool; safecall;
procedure Set_Connect(lpfConnect: WordBool); safecall;
function Get_Object_: IDispatch; safecall;
procedure Set_Object_(const lppdisp: IDispatch); safecall;
property Description: WideString read Get_Description write Set_Description;
property VBE: VBE read Get_VBE;
property Collection: Addins read Get_Collection;
property ProgId: WideString read Get_ProgId;
property Guid: WideString read Get_Guid;
property Connect: WordBool read Get_Connect write Set_Connect;
property Object_: IDispatch read Get_Object_ write Set_Object_;
end;
// *********************************************************************//
// DispIntf: AddInDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {DA936B64-AC8B-11D1-B6E5-00A0C90F2744}
// *********************************************************************//
AddInDisp = dispinterface
['{DA936B64-AC8B-11D1-B6E5-00A0C90F2744}']
property Description: WideString dispid 0;
property VBE: VBE readonly dispid 1;
property Collection: Addins readonly dispid 2;
property ProgId: WideString readonly dispid 3;
property Guid: WideString readonly dispid 4;
property Connect: WordBool dispid 6;
property Object_: IDispatch dispid 7;
end;
// *********************************************************************//
// Interface: _CodeModule
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {0002E16E-0000-0000-C000-000000000046}
// *********************************************************************//
_CodeModule = interface(IDispatch)
['{0002E16E-0000-0000-C000-000000000046}']
function Get_Parent: VBComponent; safecall;
function Get_VBE: VBE; safecall;
function Get_Name: WideString; safecall;
procedure Set_Name(const pbstrName: WideString); safecall;
procedure AddFromString(const String_: WideString); safecall;
procedure AddFromFile(const FileName: WideString); safecall;
function Get_Lines(StartLine: Integer; Count: Integer): WideString; safecall;
function Get_CountOfLines: Integer; safecall;
procedure InsertLines(Line: Integer; const String_: WideString); safecall;
procedure DeleteLines(StartLine: Integer; Count: Integer); safecall;
procedure ReplaceLine(Line: Integer; const String_: WideString); safecall;
function Get_ProcStartLine(const ProcName: WideString; ProcKind: vbext_ProcKind): Integer; safecall;
function Get_ProcCountLines(const ProcName: WideString; ProcKind: vbext_ProcKind): Integer; safecall;
function Get_ProcBodyLine(const ProcName: WideString; ProcKind: vbext_ProcKind): Integer; safecall;
function Get_ProcOfLine(Line: Integer; out ProcKind: vbext_ProcKind): WideString; safecall;
function Get_CountOfDeclarationLines: Integer; safecall;
function CreateEventProc(const EventName: WideString; const ObjectName: WideString): Integer; safecall;
function Find(const Target: WideString; var StartLine: Integer; var StartColumn: Integer;
var EndLine: Integer; var EndColumn: Integer; WholeWord: WordBool;
MatchCase: WordBool; PatternSearch: WordBool): WordBool; safecall;
function Get_CodePane: CodePane; safecall;
property Parent: VBComponent read Get_Parent;
property VBE: VBE read Get_VBE;
property Name: WideString read Get_Name write Set_Name;
property Lines[StartLine: Integer; Count: Integer]: WideString read Get_Lines;
property CountOfLines: Integer read Get_CountOfLines;
property ProcStartLine[const ProcName: WideString; ProcKind: vbext_ProcKind]: Integer read Get_ProcStartLine;
property ProcCountLines[const ProcName: WideString; ProcKind: vbext_ProcKind]: Integer read Get_ProcCountLines;
property ProcBodyLine[const ProcName: WideString; ProcKind: vbext_ProcKind]: Integer read Get_ProcBodyLine;
property ProcOfLine[Line: Integer; out ProcKind: vbext_ProcKind]: WideString read Get_ProcOfLine;
property CountOfDeclarationLines: Integer read Get_CountOfDeclarationLines;
property CodePane: CodePane read Get_CodePane;
end;
// *********************************************************************//
// DispIntf: _CodeModuleDisp
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {0002E16E-0000-0000-C000-000000000046}
// *********************************************************************//
_CodeModuleDisp = dispinterface
['{0002E16E-0000-0000-C000-000000000046}']
property Parent: VBComponent readonly dispid 1610743808;
property VBE: VBE readonly dispid 1610743809;
property Name: WideString dispid 0;
procedure AddFromString(const String_: WideString); dispid 1610743812;
procedure AddFromFile(const FileName: WideString); dispid 1610743813;
property Lines[StartLine: Integer; Count: Integer]: WideString readonly dispid 1610743814;
property CountOfLines: Integer readonly dispid 1610743815;
procedure InsertLines(Line: Integer; const String_: WideString); dispid 1610743816;
procedure DeleteLines(StartLine: Integer; Count: Integer); dispid 1610743817;
procedure ReplaceLine(Line: Integer; const String_: WideString); dispid 1610743818;
property ProcStartLine[const ProcName: WideString; ProcKind: vbext_ProcKind]: Integer readonly dispid 1610743819;
property ProcCountLines[const ProcName: WideString; ProcKind: vbext_ProcKind]: Integer readonly dispid 1610743820;
property ProcBodyLine[const ProcName: WideString; ProcKind: vbext_ProcKind]: Integer readonly dispid 1610743821;
property ProcOfLine[Line: Integer; out ProcKind: vbext_ProcKind]: WideString readonly dispid 1610743822;
property CountOfDeclarationLines: Integer readonly dispid 1610743823;
function CreateEventProc(const EventName: WideString; const ObjectName: WideString): Integer; dispid 1610743824;
function Find(const Target: WideString; var StartLine: Integer; var StartColumn: Integer;
var EndLine: Integer; var EndColumn: Integer; WholeWord: WordBool;
MatchCase: WordBool; PatternSearch: WordBool): WordBool; dispid 1610743825;
property CodePane: CodePane readonly dispid 1610743826;
end;
// *********************************************************************//
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -