Add example for invoking add-in procedures via Application.Run

Author: josef-poetzl

Example/DeclDictTester.accdb.src/dbs-properties.json

@@ -0,0 +1,13 @@
+{
+  "Info": {
+    "Class": "clsDbDocument",
+    "Description": "Database Documents Properties (DAO)"
+  },
+  "Items": {
+    "Databases": {
+      "SummaryInfo": {
+        "Title": "Database"
+      }
+    }
+  }
+}

Example/DeclDictTester.accdb.src/documents.json

@@ -0,0 +1,57 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "ClassToTest"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = False
+Option Compare Database
+Option Explicit
+
+'---------------
+' Class to test
+'---------------
+
+Public Property Get Info() As String
+
+   Info = "abc"
+
+    Dim Abc As String
+
+End Property
+
+Public Function Method1(ByVal X As Long) As Long
+
+    X = X + 1
+    Method1 = X
+
+End Function
+
+Public Function method2a() As Long
+
+    Dim X As Long
+
+    X = 1 + 1
+
+    If X = 2 Then
+        X = 9
+    Else
+        X = 10
+    End If
+
+    method2a = X
+
+Exit Function
+
+    X = 5 'This line will never be reached.
+
+End Function
+
+Public Function Method3() As Long
+
+ Dim X As Long
+
+
+End Function

Example/DeclDictTester.accdb.src/modules/ClassToTest.cls

@@ -0,0 +1,113 @@
+VERSION 1.0 CLASS
+BEGIN
+  MultiUse = -1  'True
+END
+Attribute VB_Name = "DeclarationDictTestCodemodule"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = False
+Attribute VB_Exposed = False
+Option Compare Database
+Option Explicit
+
+'AccUnit:TestRelated
+
+'Implements CodeModulGenerator
+
+Dim AccUnitX As Long
+Private m_AccUnitInfo As String
+Public Field As String
+
+Private Const Const1 As String = "abc"
+
+Private Enum TestEnum: TestEnum_P1 = 2: End Enum
+Private Type TestType1
+   FldA As Long
+   FldB As String
+   FldC As Boolean
+End Type
+
+Private Enum TestEnum2
+   TestEnum2_P1 = 2
+   TestEnum2_P2 = 3
+End Enum
+
+Private Type TestType2
+   Fld2A As Long
+   Fld2B As String
+   FldC As Date
+End Type
+
+Private WithEvents m_TextBox As TextBox
+Attribute m_TextBox.VB_VarHelpID = -1
+
+Public Event RaiseSomething(ByVal EventParam1 As Variant)
+
+Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
+
+Private Declare PtrSafe Function CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
+    (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long) As Long
+
+Public Event RaiseSomething2(ByVal EventParam1 As Variant, ByVal EventParam2 As Variant)
+
+Private Sub Class_Initialize()
+' Dim Class_Initialize_Xyz as String ... ignored!
+End Sub
+
+Public Function AccUnitTestFunct(ByVal FuncParam1 As Variant, FuncParam2() As String) As Variant
+
+   Dim FuncVar1 As Variant, FuncVar2
+   Dim FuncVar3() ' _
+   Dim CommentX as String, CommentY As Long
+
+   Dim FuncVar4 As Long: FuncVar4 = 5
+
+   Dim Dim1 As Long: Dim Dim2
+
+       Dim Counter2 ' _
+   Public X asString, Y As Long
+
+End Function
+
+Public Sub ProcWith3DeclLines( _
+               ByVal D3P1 As Variant, _
+               ByRef D3P2() As String)
+'
+End Sub
+
+' Declaration of a property procedure in one line:
+Friend Property Get Name1() As String: Name1 = "TestName": End Property
+
+Friend Property Let Name2(ByVal NewValue As String)
+'
+End Property
+
+Friend Property Set PropertySet(ByVal ObjRef As Object)
+'
+End Property
+
+Private Sub TestMe() ' _
+Private Sub ThisIsOnlyAComment(
+
+End Sub
+
+Public Sub VariableParams(ParamArray Args() As Variant)
+'
+End Sub
+
+Private Static Sub MyStaticSub(Optional ByVal Reset As Boolean = False)
+    Static Counter2 As Integer
+End Sub
+
+
+Private Function CodeModulGenerator_CreateCodemodule(ByVal ComponentType As VBIDE.vbext_ComponentType, Optional ByVal Name As String = vbNullString) As VBIDE.VBComponent
+'
+End Function
+
+Private Sub CodeModulGenerator_InsertDeclarationLine(ByVal Code As String)
+'
+End Sub
+
+Private Sub CodeModulGenerator_RemoveCodemodule()
+'
+End Sub

Example/DeclDictTester.accdb.src/modules/DeclarationDictTestCodemodule.cls

@@ -0,0 +1,7 @@
+Attribute VB_Name = "Module1"
+Option Compare Database
+Option Explicit
+
+Private Sub TestInfo()
+'
+End Sub

Example/DeclDictTester.accdb.src/modules/Module1.bas

@@ -0,0 +1,20 @@
+Attribute VB_Name = "_LoadAddIn"
+Option Compare Database
+Option Explicit
+
+Public Sub LoadAddIn()
+
+'API: RunVcsCheck(Optional ByVal OpenDialogToFixLettercase As Boolean = False)
+
+   Dim AddInCallPath As String
+   AddInCallPath = CurrentProject.Path & "\..\ACLibDeclarationDictCore.RunVcsCheck"
+
+   Dim Result As Variant
+   Result = Application.Run(AddInCallPath, True)
+   If Result = True Then
+      Debug.Print "No problems with letter case"
+   Else
+      Debug.Print Result
+   End If
+
+End Sub

Example/DeclDictTester.accdb.src/modules/_LoadAddIn.bas

@@ -0,0 +1,24 @@
+{
+  "Info": {
+    "Class": "clsDbNavPaneGroup",
+    "Description": "Navigation Pane Custom Groups"
+  },
+  "Items": {
+    "Categories": [
+      {
+        "Name": "Custom",
+        "Flags": 0,
+        "Position": 2,
+        "Groups": [
+          {
+            "Name": "Custom Group 1",
+            "Flags": 0,
+            "Position": 2,
+            "Objects": [
+            ]
+          }
+        ]
+      }
+    ]
+  }
+}

Example/DeclDictTester.accdb.src/nav-pane-groups.json

@@ -0,0 +1,10 @@
+{
+  "Info": {
+    "Class": "clsDbProject",
+    "Description": "Project"
+  },
+  "Items": {
+    "FileFormat": 12,
+    "RemovePersonalInformation": false
+  }
+}

Example/DeclDictTester.accdb.src/project.json

@@ -0,0 +1,17 @@
+{
+  "Info": {
+    "Class": "clsDbVbeProject",
+    "Description": "VBE Project"
+  },
+  "Items": {
+    "Name": "TestApp",
+    "Description": "",
+    "FileName": "DeclDictTester.accdb",
+    "HelpFile": "",
+    "HelpContextId": 0,
+    "ConditionalCompilationArguments": "",
+    "Mode": 0,
+    "Protection": 0,
+    "Type": 100
+  }
+}

Example/DeclDictTester.accdb.src/themes/Office Theme.thmx

@@ -0,0 +1,36 @@
+{
+  "Info": {
+    "Class": "clsDbVbeReference",
+    "Description": "VBE References"
+  },
+  "Items": {
+    "stdole": {
+      "GUID": "{00020430-0000-0000-C000-000000000046}",
+      "Version": "2.0"
+    },
+    "DAO": {
+      "GUID": "{4AC9E1DA-5BAD-4AC7-86E3-24F4CDCECA28}",
+      "Version": "12.0"
+    },
+    "VBIDE": {
+      "GUID": "{0002E157-0000-0000-C000-000000000046}",
+      "Version": "5.3"
+    },
+    "Scripting": {
+      "GUID": "{420B2830-E718-11CF-893D-00A0C9054228}",
+      "Version": "1.0"
+    },
+    "Office": {
+      "GUID": "{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}",
+      "Version": "2.8"
+    },
+    "ADODB": {
+      "GUID": "{2A75196C-D9EB-4129-B803-931327F72D5C}",
+      "Version": "2.8"
+    },
+    "VBScript_RegExp_55": {
+      "GUID": "{3F4DACA7-160D-11D2-A8E9-00104B365C9F}",
+      "Version": "5.5"
+    }
+  }
+}

Example/DeclDictTester.accdb.src/vbe-project.json

@@ -0,0 +1,66 @@
+{
+  "Info": {
+    "AddinVersion": "4.1.2",
+    "AccessVersion": "16.0 64-bit"
+  },
+  "Options": {
+    "ExportFolder": "",
+    "ShowDebug": false,
+    "UseFastSave": true,
+    "UseMergeBuild": false,
+    "UseGitIntegration": false,
+    "SavePrintVars": true,
+    "ExportPrintSettings": {
+      "Orientation": true,
+      "PaperSize": true,
+      "Duplex": false,
+      "PrintQuality": false,
+      "DisplayFrequency": false,
+      "Collate": false,
+      "Resolution": false,
+      "DisplayFlags": false,
+      "Color": false,
+      "Copies": false,
+      "ICMMethod": false,
+      "DefaultSource": false,
+      "Scale": false,
+      "ICMIntent": false,
+      "FormName": false,
+      "PaperLength": false,
+      "DitherType": false,
+      "MediaType": false,
+      "PaperWidth": false,
+      "TTOption": false
+    },
+    "SaveQuerySQL": true,
+    "FormatSQL": true,
+    "ForceImportOriginalQuerySQL": false,
+    "SaveTableSQL": true,
+    "SplitLayoutFromVBA": true,
+    "StripPublishOption": true,
+    "SanitizeColors": 1,
+    "SanitizeLevel": 2,
+    "ExtractThemeFiles": false,
+    "TablesToExportData": {
+      "USysRegInfo": {
+        "Format": "Tab Delimited"
+      },
+      "USysRibbons": {
+        "Format": "Tab Delimited"
+      }
+    },
+    "SchemaExports": {
+    },
+    "RunBeforeExport": "",
+    "RunAfterExport": "",
+    "RunBeforeBuild": "",
+    "RunAfterBuild": "",
+    "RunBeforeMerge": "",
+    "RunAfterMerge": "",
+    "ShowVCSLegacy": true,
+    "HashAlgorithm": "SHA256",
+    "UseShortHash": true,
+    "BreakOnError": false,
+    "PreserveRubberDuckID": false
+  }
+}