Skip to content

Commit 4e63e0e

Browse files
committed
2 parents 587bf2e + cc66e75 commit 4e63e0e

23 files changed

+1339
-51
lines changed

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

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -29,7 +29,7 @@ Public Function Method1(ByVal X As Long) As Long
2929

3030
End Function
3131

32-
Public Function method2a() As Long
32+
Public Function Method2a() As Long
3333

3434
Dim X As Long
3535

@@ -41,7 +41,7 @@ Public Function method2a() As Long
4141
X = 10
4242
End If
4343

44-
method2a = X
44+
Method2a = X
4545

4646
Exit Function
4747

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

Lines changed: 13 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -7,12 +7,17 @@ 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

13-
'AccUnit:TestRelated
14-
15-
'Implements CodeModulGenerator
20+
Implements ITestInterface
1621

1722
Dim AccUnitX As Long
1823
Private m_AccUnitInfo As String
@@ -99,15 +104,13 @@ Private Static Sub MyStaticSub(Optional ByVal Reset As Boolean = False)
99104
Static Counter2 As Integer
100105
End Sub
101106

102-
103-
Private Function CodeModulGenerator_CreateCodemodule(ByVal ComponentType As VBIDE.vbext_ComponentType, Optional ByVal Name As String = vbNullString) As VBIDE.VBComponent
107+
'---------------------------
108+
' Implement ITestInterface interface
104109
'
105-
End Function
106-
107-
Private Sub CodeModulGenerator_InsertDeclarationLine(ByVal Code As String)
110+
Private Sub ITestInterface_TestMe()
108111
'
109112
End Sub
110113

111-
Private Sub CodeModulGenerator_RemoveCodemodule()
114+
Private Function ITestInterface_TestProc(ByVal TestParam1 As Long) As Variant
112115
'
113-
End Sub
116+
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

0 commit comments

Comments
 (0)