Skip to content

Commit 3570c80

Browse files
committed
+ move DeclDictTester to main folder
1 parent 19d7fb8 commit 3570c80

13 files changed

+50
-10
lines changed

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

Lines changed: 13 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -7,12 +7,19 @@ Attribute VB_GlobalNameSpace = False
77
Attribute VB_Creatable = False
88
Attribute VB_PredeclaredId = False
99
Attribute VB_Exposed = False
10+
'---------------------------------------------------------------------------------------
11+
' Class: DeclarationDictTestCodemodule
12+
'---------------------------------------------------------------------------------------
13+
'
14+
' Different examples for declarations
15+
'
16+
'---------------------------------------------------------------------------------------
1017
Option Compare Database
1118
Option Explicit
1219

1320
'AccUnit:TestRelated
1421

15-
'Implements CodeModulGenerator
22+
Implements ITestInterface
1623

1724
Dim AccUnitX As Long
1825
Private m_AccUnitInfo As String
@@ -99,15 +106,13 @@ Private Static Sub MyStaticSub(Optional ByVal Reset As Boolean = False)
99106
Static Counter2 As Integer
100107
End Sub
101108

102-
103-
Private Function CodeModulGenerator_CreateCodemodule(ByVal ComponentType As VBIDE.vbext_ComponentType, Optional ByVal Name As String = vbNullString) As VBIDE.VBComponent
109+
'---------------------------
110+
' Implement ITestInterface interface
104111
'
105-
End Function
106-
107-
Private Sub CodeModulGenerator_InsertDeclarationLine(ByVal Code As String)
112+
Private Sub ITestInterface_TestMe()
108113
'
109114
End Sub
110115

111-
Private Sub CodeModulGenerator_RemoveCodemodule()
116+
Private Function ITestInterface_TestProc(ByVal TestParam1 As Long) As Variant
112117
'
113-
End Sub
118+
End Function

Example/DeclDictTester.accdb.src/modules/Module1.bas renamed to DeclDictTester.accdb.src/modules/ExampleModule.bas

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
Attribute VB_Name = "Module1"
1+
Attribute VB_Name = "ExampleModule"
22
Option Compare Database
33
Option Explicit
44

Lines changed: 28 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,28 @@
1+
VERSION 1.0 CLASS
2+
BEGIN
3+
MultiUse = -1 'True
4+
END
5+
Attribute VB_Name = "ITestInterface"
6+
Attribute VB_GlobalNameSpace = False
7+
Attribute VB_Creatable = False
8+
Attribute VB_PredeclaredId = False
9+
Attribute VB_Exposed = False
10+
'---------------------------------------------------------------------------------------
11+
' Interface: ITest
12+
'---------------------------------------------------------------------------------------
13+
'
14+
' Interface for Implement test in DeclarationDictTestCodemodule
15+
'
16+
'---------------------------------------------------------------------------------------
17+
Option Compare Database
18+
Option Explicit
19+
20+
'AccUnit:TestRelated
21+
22+
Public Sub TestMe()
23+
'
24+
End Sub
25+
26+
Public Function TestProc(ByVal TestParam1 As Long)
27+
'
28+
End Function

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

Lines changed: 8 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,8 +1,15 @@
11
Attribute VB_Name = "_LoadAddIn"
2+
'---------------------------------------------------------------------------------------
3+
' Module: _LoadAddIn
4+
'---------------------------------------------------------------------------------------
5+
'
6+
' API examples
7+
'
8+
'-------------------------------------------------------------------------
29
Option Compare Database
310
Option Explicit
411

5-
Public Sub LoadAddIn()
12+
Public Sub LoadAddIn_RunVcsCheck()
613

714
'API: RunVcsCheck(Optional ByVal OpenDialogToFixLettercase As Boolean = False)
815

0 commit comments

Comments
 (0)