Skip to content

Latest commit

 

History

History
761 lines (687 loc) · 37.3 KB

README.md

File metadata and controls

761 lines (687 loc) · 37.3 KB

Notice

Provided as is, read and test.
There be dragons, there be bugs. Feedback is welcome.

Tools to extend and facilitate work with Modules Procedures Codemodule Designer Userforms and other objects


TOC of public procedures in my classes

aCodeModule

Type Procedure Returns
Fun Active As aCodeModule
Fun ActiveEnum As aModuleEnumItem
Fun ActiveType As aModuleTypeItem
Fun CaseTo As aCodeModule
Fun Component As VBComponent
Fun EncapsulateParenthesis As aCodeModule
Fun EncapsulateQuotes As aCodeModule
Fun Initialize As aCodeModule
Fun Procedure As aProcedure
Fun ProceduresByDeclaration As Collection
Fun Region As aCodeModule
Fun Regions As Variant
Fun SortComma As aCodeModule
Fun SortLines As aCodeModule
Fun SortLinesByLength As aCodeModule
Fun Substitute As aCodeModule
Fun lines As aCodeModule
Get ProceduresByName As Collection
Sub Align
Sub AlignAs
Sub AlignColumn
Sub AlignComments
Sub BeautifyFunction
Sub BringProcedureHere
Sub Comment
Sub CommentTargetLine
Sub CommentsAddRem
Sub CommentsRemoveRem
Sub CommentsToggle
Sub Copy
Sub Cut
Sub DeleteSelectedLines
Sub DimMerge
Sub DimSeparate
Sub Duplicate
Sub Encapsulate
Sub EncapsulateMultiple
Sub FoldLine
Sub Increment
Sub Inject
Sub InjectArgumentStyleFolded
Sub Insert
Sub Move
Sub ProcedureActivate
Sub ProcedureImport
Sub Rotate
Sub RotateCommas
Sub RotateEqualInLines
Sub RotateLines
Sub RotateMultiple
Sub SetSelection
Sub Sort
Sub Todo
Sub UnComment
Sub UnFoldLine
Sub UncommentTargetLine
Sub UnremTargetLine
Sub injectDivider

aColorScheme

Type Procedure Returns
Fun Init As aColorScheme
Sub AssignColors
Sub ThemeBlackAndBlueDark
Sub ThemeBlackAndBrownDark
Sub ThemeBlackAndGrayDark
Sub ThemeBlackAndGreenDark
Sub ThemeBlackAndOrangeDark
Sub ThemeBlackAndPinkDark
Sub ThemeBlackAndPurpleDark
Sub ThemeBlackAndRedDark
Sub ThemeBlackAndYellowDark
Sub ThemeBlueAndGreenLight
Sub ThemeWhiteAndBlueLight
Sub ThemeWhiteAndBrownLight
Sub ThemeWhiteAndGrayLight
Sub ThemeWhiteAndGreenLight
Sub ThemeWhiteAndOrangeLight
Sub ThemeWhiteAndPinkLight
Sub ThemeWhiteAndPurpleLight
Sub ThemeWhiteAndRedLight
Sub ThemeWhiteAndYellowLight
Sub color

aComboBox

Type Procedure Returns
Fun AutoSizeDropDown As Long
Fun Init As aComboBox
Sub LoadVBProjects

aDesigner

Type Procedure Returns
Fun Active As aDesigner
Fun SelectedControl As MSForms.control
Fun SelectedControls As Collection
Fun SelectedFrameOrMultipageControl As MSForms.control
Fun SelectedFrameOrMultipageControls As Collection
Sub CenterLabelCaption
Sub CopyControlProperties
Sub CopySubControlProperties
Sub CreateFrameMenu
Sub EditObjectProperties
Sub EditObjectsProperty
Sub IconDesign
Sub PasteControlProperties
Sub PasteSubControlProperties
Sub RemoveCaption
Sub RenameControlAndCode
Sub ReplaceCommandButtonWithLabel
Sub SetHandCursor
Sub SetHandCursorToSubControls
Sub SortControlsHorizontally
Sub SortControlsVertically
Sub SwitchNames
Sub SwitchPositions
Sub addFrameFormCode

aFrame

Type Procedure Returns
Fun Init As aFrame
Sub AddThemeControls
Sub ResizeToFitControls

aListBox

Type Procedure Returns
Fun Contains As Boolean
Fun Init As aListBox
Fun LoadCSV As Variant
Fun Parent As Variant
Fun SelectedCount As Long
Fun SelectedRowsArray As Variant
Fun SelectedRowsText As String
Fun SelectedValues As Collection single column
Fun TotalColumnsWidth As Variant
Fun selectedIndexes As Collection
Fun targetColumn As Variant
Sub AcceptFiles
Sub AddFilter
Sub AddHeader
Sub AutofitColumns
Sub ClearSelection
Sub DeselectAll
Sub DeselectLike
Sub FilterByColumn
Sub HeightToEntries
Sub ListenToDoubleClick
Sub ListenToDragDrop
Sub ListenToExtendedSelection
Sub LoadVBProjects
Sub RememberList
Sub RemoveSelected
Sub SelectAll
Sub SelectItems
Sub SelectLike
Sub SelectedToRange
Sub ShowTheseColumns
Sub SortAZ
Sub SortOnColumn
Sub SortZA
Sub ToRange
Sub removeHeaders

aListView

Type Procedure Returns
Fun ClickedColumn As Variant
Fun Init As aListView
Fun RowArray As Variant
Fun SelectionArray As Variant
Fun value As Variant
Sub AppendArray
Sub AutofitColumns
Sub DeselectAll
Sub EnableDragSort
Sub EnableDropFilesFolders
Sub EventListener
Sub InitializeFromArray
Sub RowsFormatOddEven
Sub clear

aModule

Type Procedure Returns
Fun Body As String
Fun ClassCalls As Variant
Fun Code As String
Fun Component As VBComponent
Fun Contains As Variant
Fun Copy As Boolean
Fun Duplicate As Boolean
Fun Enums As aModuleEnums
Fun Extension As String
Fun Folders As aModuleFolders
Fun Header As String
Fun HeaderContains As Boolean
Fun Ignore As Boolean
Fun Initialize As aModule
Fun LineLike As Long
Fun LinesLike As Collection
Fun ListOfInclude As Collection
Fun Name As String
Fun Procedures As aModuleProcedures
Fun TodoList As Variant
Fun TypeToLong As vbext_ComponentType
Fun TypeToString As String
Fun Types As aModuleTypes
Get Active As aModule
Get Project As VBProject
Get WorkbookObject As Workbook
Sub Activate
Sub CodeMove
Sub CodeRemove
Sub CommentsRemove
Sub CommentsToOwnLine
Sub Delete
Sub DeleteIfEmpty
Sub DisableDebugPrint
Sub DisableStop
Sub EnableDebugPrint
Sub EnableStop
Sub Export
Sub HeaderAdd
Sub Indent
Sub PredeclaredId
Sub PrintListOfInclude
Sub PrintTodoList
Sub ProcedureFoldDeclarations
Sub RemoveEmptyLines
Sub RemoveEmptyLinesButLeaveOne
Sub RemoveLinesLike
Sub Rename

aModuleEnumItem

Type Procedure Returns
Fun Initialize As aModuleEnumItem
Get Body As String
Get Name As String
Get countoflines As Long
Get firstline As Long
Get index As String
Get lastline As Long
Let Name
Let index
Sub AssignValues
Sub ToCase

aModuleEnums

Type Procedure Returns
Fun Active As aModuleEnumItem
Fun Initialize As aModuleEnums
Get Items As Variant

aModuleFolders

Type Procedure Returns
Fun Exists As Variant
Fun Initialize As aModuleFolders
Fun ToString As String
Sub Append
Sub Create
Sub Delete
Sub Overwrite

aModuleProcedures

Type Procedure Returns
Fun Initialize As aModuleProcedures
Fun Items As Variant
Fun Names As Collection
Fun PrivateProcedures As Collection
Fun PublicProcedures As Collection
Sub Export
Sub List
Sub ListPublic
Sub SortAZ
Sub SortByKind
Sub SortByScope
Sub Update

aModules

Type Procedure Returns
Fun AddOrSet As aModule
Fun ClassNames As Variant
Fun Classes As Collection
Fun Documents As Collection
Fun Exists As Boolean
Fun Initialize As aModules
Fun Item As aModule
Fun ModuleNames As Variant
Fun NamesOf As Variant
Fun NormalModules As Collection
Fun UserformNames As Variant
Fun Userforms As Collection
Get Items As Variant
Sub CaseProperModulesOfWorkbook
Sub CommentsRemove
Sub Export
Sub ExportProcedures
Sub ImportPaths
Sub ImportPicker
Sub Indent
Sub InjectOptionExplicit
Sub ListProcedures
Sub PrintTodoList
Sub Refresh
Sub RemoveEmptyLinesButLeaveOne
Sub RemoveLinesLike
Sub RemoveProcedureList
Sub SideBySide
Sub UpdateProcedures

aModuleTypeItem

Type Procedure Returns
Fun Initialize As aModuleTypeItem
Get Body As String
Get Name As String
Get countoflines As Long
Get firstline As Long
Get index As String
Get lastline As Long
Let Name
Let index
Sub AssignValues

aModuleTypes

Type Procedure Returns
Fun Active As aModuleTypeItem
Fun Initialize As aModuleTypes
Get Items As Variant

aMultiPage

Type Procedure Returns
Fun ActivePage As MSForms.page
Fun Init As aMultiPage
Fun OutlookCheck As Boolean
Sub AddContactsToSidebarBottom
Sub AddThemeControlsSidbarRight
Sub BuildMenu
Sub MailDev
Sub SetBackColor

aProcedure

Type Procedure Returns
Fun Active As aProcedure
Fun Code As aProcedureCode
Fun CustomProperties As aProcedureCustomProperties
Fun Dependencies As aProcedureDependencies
Fun Folder As aProcedureFolder
Fun Format As aProcedureFormat
Fun Initialize As aProcedure
Fun Inject As aProcedureInject
Fun Move As aProcedureMove
Fun Scope As aProcedureScope
Fun Variables As aProcedureVariables
Fun arguments As aProcedureArguments
Fun lines As aProcedureLines
Get KindAsLong As Long
Get KindAsString As String
Get Name As String
Get Parent As VBComponent
Get returnType As String
Sub Activate
Sub CreateCaller
Sub CreateTest
Sub Delete
Sub Replace

aProcedureArguments

Type Procedure Returns
Fun Initialize As aProcedureArguments
Fun MultiLine As String
Fun SingleLine As String
Get AsSeen As String
Get Items As Variant
Get count As Long

aProcedureArgumentsItem

Type Procedure Returns
Fun Initialize As aProcedureArgumentsItem
Get DefaultValue As Variant
Get IsByRef As Boolean
Get IsByVal As Boolean
Get IsOptional As Boolean
Get IsParamArray As Boolean
Get IsType As String
Get Name As String
Get hasDefaultValue As Boolean
Let DefaultValue
Let IsByRef
Let IsByVal
Let IsOptional
Let IsParamArray
Let IsType
Let Name
Let hasDefaultValue

aProcedureCode

Type Procedure Returns
Fun Initialize As aProcedureCode
Fun Inject As aProcedureInject
Fun lines As aProcedureLines
Get All As Variant
Get Body As Variant
Get BodyAfterComments As Variant
Get Contains As Boolean
Get ContainsInBody As String
Get ContainsInHeader As String
Get Declaration As Variant
Get DeclarationClean As Variant
Get Header As Variant

aProcedureCustomProperties

Type Procedure Returns
Fun Initialize As aProcedureCustomProperties
Get Ignore As Boolean
Get LastModified As String
Get ParentAssigned As String
Let Ignore
Let LastModified
Let ParentAssigned

aProcedureDependencies

Type Procedure Returns
Fun CallerModules As Collection
Fun CallerModulesToString As String
Fun Callers As Collection
Fun CallersToString As String
Fun DeclarationsTableKeywords As Collection
Fun Initialize As aProcedureDependencies
Fun LinkedClasses As Collection
Fun LinkedDeclarations As Collection
Fun LinkedProcedures As Collection
Fun LinkedProceduresDeep As Collection
Fun LinkedSheets As Collection
Fun LinkedUserforms As Variant
Fun collLinkedProcedures As Collection
Fun collLinkedProceduresDeep As Collection
Sub AddToLinkedTable
Sub BringLinkedProceduresHere
Sub BringProcedureHere
Sub Export
Sub ExportDeclaration
Sub ExportLinkedCode
Sub ImportClass
Sub ImportDeclaration
Sub ImportDependencies
Sub ImportProcedure
Sub ImportUserform
Sub InjectLinkedClasses
Sub InjectLinkedDeclarations
Sub InjectLinkedLists
Sub InjectLinkedProcedures
Sub InjectLinkedUserforms
Sub RemoveIncludeLines
Sub Update

aProcedureFolder

Type Procedure Returns
Fun Exists As Boolean
Fun Initialize As aProcedureFolder
Sub Append
Sub Create
Sub Delete
Sub Overwrite

aProcedureFormat

Type Procedure Returns
Fun Initialize As aProcedureFormat
Sub BlankLinesToDividers
Sub CommentsRemove
Sub CommentsToOwnLine
Sub CommentsToRem
Sub DisableDebugPrint
Sub DisableStop
Sub EnableDebugPrint
Sub EnableStop
Sub FoldDeclaration
Sub Indent
Sub NumbersAdd
Sub NumbersRemove
Sub RemoveEmptyLines
Sub RemoveLinesLike
Sub Replace
Sub UnfoldDeclaration

aProcedureInject

Type Procedure Returns
Fun Initialize As aProcedureInject
Get ObjectsReleaseText As String
Sub BodyAfterComments
Sub BodyBottom
Sub BodyTop
Sub Description
Sub HeaderBottom
Sub HeaderTop
Sub Modification
Sub ObjectsReleaseAtEnd
Sub ObjectsReleaseHere
Sub Template
Sub TemplateObject
Sub Timer
Sub test

aProcedureLines

Type Procedure Returns
Fun Initialize As aProcedureLines
Get CountOfBody As Long
Get CountOfDeclarationLines As Long
Get CountOfHeaderLines As Variant
Get FirstOfBody As Long
Get FirstOfBodyAfterComments As Long
Get FirstOfDeclaration As Long
Get FirstOfHeader As Long
Get LastOfBody As Long
Get LastOfDeclaration As Long
Get LastOfHeader As Long
Get LikeThis As Long
Get Longest As Long
Get count As Long
Get first As Long
Get last As Long
Sub EnsureBlankLineBeforeProcedure

aProcedureMove

Type Procedure Returns
Fun Initialize As aProcedureMove
Get IndexInModule As Long
Sub Bottom
Sub Copy
Sub Down
Sub ToModule
Sub ToModuleAssigned
Sub Top
Sub Up

aProcedureScope

Type Procedure Returns
Fun Initialize As aProcedureScope
Fun ToString As String
Get Suggested As String
Sub MakePrivate
Sub MakePublic
Sub MakeSuggested

aProcedureVariables

Type Procedure Returns
Fun Initialize As aProcedureVariables
Get Items As Variant
Get count As Long
Sub ToImmediate
Sub UpdatableVariableAdd
Sub UpdatableVariableRemove

aProcedureVariablesItem

Type Procedure Returns
Fun Initialize As aProcedureVariablesItem
Get IsType As String
Get Line As Long
Get Name As String
Get isAssignedValue As Boolean
Let IsType
Let Line
Let Name

aProject

Type Procedure Returns
Fun Code As String
Fun Declarations As aProjectDeclarations
Fun Extension As Variant
Fun Name As Variant
Fun NameClean As Variant
Fun ProceduresArray As Variant
Fun ProceduresLike As Collection
Fun REFERENCES As aProjectReferences
Fun TodoList As String
Fun WorkbookObject As Workbook
Get Active As aProject
Get Initialize As aProject
Get Items As Variant
Get Procedures As Collection
Get ProceduresNames As Collection
Get Project As VBProject
Get this As aProject
Sub Backup
Sub CreateLinkedTable
Sub CreateLinkedTableSheet
Sub ExportCodeUnified
Sub ExportModules
Sub ExportProcedures
Sub ExportXML
Sub Indent
Sub ModulesMerge

aProjectDeclarations

Type Procedure Returns
Fun Initialize As aProjectDeclarations
Fun Items As Collection
Fun declaredEnums As String
Fun declaredFunctions As String
Fun declaredKeywords As Variant
Fun declaredSubs As String
Fun declaredTypes As String
Fun tableKeywords As Collection
Sub ExportDeclarations
Sub ExportTable
Sub createTable

aProjectReferences

Type Procedure Returns
Fun Initialize As aProjectReferences
Sub AddFromFile
Sub AddFromGUID
Sub AddScriptControl
Sub AddVBIDE
Sub Export
Sub ImportReferences
Sub RemoveByDescription
Sub RemoveByGUID
Sub RemoveByName
Sub ToSheet

aTreeView

Type Procedure Returns
Fun GetLevel As Integer
Fun Init As aTreeView
Fun ToArray As Variant
Fun TreeviewArrayPaths As Variant 1d
Fun columnCount As Variant
Fun rowCount As Variant
Sub ActivateProjectElement
Sub ApplyStandardStyle
Sub ChildrenCheck
Sub CollapseAll
Sub ExpandAll
Sub FilterTV
Sub FindCodeEverywhere
Sub ImageListLoadProjectIcons
Sub LoadRange
Sub LoadTreeArray
Sub LoadVBProjects
Sub RemoveEmpty
Sub SelectNextNode
Sub SelectNodes
Sub SelectPreviousNode
Sub TreeviewArrayAppendPaths
Sub TreeviewAssignProjectImages
Sub clear

aUserform

Type Procedure Returns
Fun ClearBit As Long
Fun Effect As Scripting.Dictionary
Fun EnableCloseButton As Boolean
Fun HWndOfUserForm As Long
Fun Initialize As aUserform
Fun IsFormResizable As Boolean
Fun IsTitleBarVisible As Boolean
Fun MakeFormResizable As Boolean
Fun SetFormOpacity As Boolean
Fun SetFormParent As Boolean
Fun ShowCloseButton As Boolean
Fun ShowMaximizeButton As Boolean
Fun ShowMinimizeButton As Boolean
Fun ShowTitleBar As Boolean
Fun hwnd As LongPtr
Sub Borderless
Sub DockControls
Sub IconDesign
Sub LoadOptions
Sub LoadPosition
Sub MouseOnControl
Sub OnTop
Sub ParentIsVBE
Sub Resizable
Sub Resizable2
Sub ResizeToFitControls
Sub SaveOptions
Sub SavePosition
Sub ShowAtCursor
Sub TRANSPARENT
Sub Transition