📄 vbide_tlb.pas
字号:
// GUID: {0002E164-0000-0000-C000-000000000046}
// *********************************************************************//
_VBComponent = 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: _VBComponentDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {0002E164-0000-0000-C000-000000000046}
// *********************************************************************//
_VBComponentDisp = 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;
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: _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;
// *********************************************************************//
// Interface: _CodePanes
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {0002E172-0000-0000-C000-000000000046}
// *********************************************************************//
_CodePanes = interface(IDispatch)
['{0002E172-0000-0000-C000-000000000046}']
function Get_Parent: VBE; safecall;
function Get_VBE: VBE; safecall;
function Item(index: OleVariant): CodePane; safecall;
function Get_Count: Integer; safecall;
function _NewEnum: IUnknown; safecall;
function Get_Current: CodePane; safecall;
procedure Set_Current(const CodePane: CodePane); safecall;
property Parent: VBE read Get_Parent;
property VBE: VBE read Get_VBE;
property Count: Integer read Get_Count;
property Current: CodePane read Get_Current write Set_Current;
end;
// *********************************************************************//
// DispIntf: _CodePanesDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {0002E172-0000-0000-C000-000000000046}
// *********************************************************************//
_CodePanesDisp = dispinterface
['{0002E172-0000-0000-C000-000000000046}']
property Parent: VBE readonly dispid 1610743808;
property VBE: VBE readonly dispid 1610743809;
function Item(index: OleVariant): CodePane; dispid 0;
property Count: Integer readonly dispid 1610743811;
function _NewEnum: IUnknown; dispid -4;
property Current: CodePane dispid 1610743813;
end;
// *********************************************************************//
// Interface: _CodePane
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {0002E176-0000-0000-C000-000000000046}
// *********************************************************************//
_CodePane = interface(IDispatch)
['{0002E176-0000-0000-C000-000000000046}']
function Get_Collection: CodePanes; safecall;
function Get_VBE: VBE; safecall;
function Get_Window_: Window_; safecall;
procedure GetSelection(out StartLine: Integer; out StartColumn: Integer; out EndLine: Integer;
out EndColumn: Integer); safecall;
procedure SetSelection(StartLine: Integer; StartColumn: Integer; EndLine: Integer;
EndColumn: Integer); safecall;
function Get_TopLine: Integer; safecall;
procedure Set_TopLine(TopLine: Integer); safecall;
function Get_CountOfVisibleLines: Integer; safecall;
function Get_CodeModule: CodeModule; safecall;
procedure Show; safecall;
function Get_CodePaneView: vbext_CodePaneview; safecall;
property Collection: CodePanes read Get_Collection;
property VBE: VBE read Get_VBE;
property Window_: Window_ read Get_Window_;
property TopLine: Integer read Get_TopLine write Set_TopLine;
property CountOfVisibleLines: Integer read Get_CountOfVisibleLines;
property CodeModule: CodeModule read Get_CodeModule;
property CodePaneView: vbext_CodePaneview read Get_CodePaneView;
end;
// *********************************************************************//
// DispIntf: _CodePaneDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {0002E176-0000-0000-C000-000000000046}
// *********************************************************************//
_CodePaneDisp = dispinterface
['{0002E176-0000-0000-C000-000000000046}']
property Collection: CodePanes readonly dispid 1610743808;
property VBE: VBE readonly dispid 1610743809;
property Window_: Window_ readonly dispid 1610743810;
procedure GetSelection(out StartLine: Integer; out StartColumn: Integer; out EndLine: Integer;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -