-
Notifications
You must be signed in to change notification settings - Fork 32
/
FunctionData.cls
155 lines (141 loc) · 5.21 KB
/
FunctionData.cls
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "class_FunctionData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
' #VBIDEUtils#************************************************************
' * Programmer Name : removed
' * Web Site : http://www.ppreview.net
' * E-Mail : removed
' * Date : 15/12/1999
' * Time : 16:13
' * Module Name : class_FunctionData
' * Module Filename : CFuncData.cls
' **********************************************************************
' * Comments :
' *
' *
' **********************************************************************
Option Explicit
Private m_Modulename As String
Private m_FunctionName As String
Private m_intLineNumber As Long
Public Property Get Module() As String
' #VBIDEUtils#************************************************************
' * Programmer Name : removed
' * Web Site : http://www.ppreview.net
' * E-Mail : removed
' * Date : 15/12/1999
' * Time : 16:12
' * Module Name : class_FunctionData
' * Module Filename : FunctionData.cls
' * Procedure Name : Module
' * Parameters :
' **********************************************************************
' * Comments :
' *
' *
' **********************************************************************
Module = m_Modulename
End Property
Public Property Let Module(ByVal vNewValue As String)
' #VBIDEUtils#************************************************************
' * Programmer Name : removed
' * Web Site : http://www.ppreview.net
' * E-Mail : removed
' * Date : 15/12/1999
' * Time : 16:12
' * Module Name : class_FunctionData
' * Module Filename : FunctionData.cls
' * Procedure Name : Module
' * Parameters :
' * ByVal vNewValue As String
' **********************************************************************
' * Comments :
' *
' *
' **********************************************************************
m_Modulename = vNewValue
End Property
Public Property Get FuncName() As String
' #VBIDEUtils#************************************************************
' * Programmer Name : removed
' * Web Site : http://www.ppreview.net
' * E-Mail : removed
' * Date : 15/12/1999
' * Time : 16:12
' * Module Name : class_FunctionData
' * Module Filename : FunctionData.cls
' * Procedure Name : FuncName
' * Parameters :
' **********************************************************************
' * Comments :
' *
' *
' **********************************************************************
FuncName = m_FunctionName
End Property
Public Property Let FuncName(ByVal vNewValue As String)
' #VBIDEUtils#************************************************************
' * Programmer Name : removed
' * Web Site : http://www.ppreview.net
' * E-Mail : removed
' * Date : 15/12/1999
' * Time : 16:12
' * Module Name : class_FunctionData
' * Module Filename : FunctionData.cls
' * Procedure Name : FuncName
' * Parameters :
' * ByVal vNewValue As String
' **********************************************************************
' * Comments :
' *
' *
' **********************************************************************
m_FunctionName = vNewValue
End Property
Public Property Get LineNumber() As Long
' #VBIDEUtils#************************************************************
' * Programmer Name : removed
' * Web Site : http://www.ppreview.net
' * E-Mail : removed
' * Date : 15/12/1999
' * Time : 16:12
' * Module Name : class_FunctionData
' * Module Filename : FunctionData.cls
' * Procedure Name : LineNumber
' * Parameters :
' **********************************************************************
' * Comments :
' *
' *
' **********************************************************************
LineNumber = m_intLineNumber
End Property
Public Property Let LineNumber(ByVal vNewValue As Long)
' #VBIDEUtils#************************************************************
' * Programmer Name : removed
' * Web Site : http://www.ppreview.net
' * E-Mail : removed
' * Date : 15/12/1999
' * Time : 16:12
' * Module Name : class_FunctionData
' * Module Filename : FunctionData.cls
' * Procedure Name : LineNumber
' * Parameters :
' * ByVal vNewValue As Long
' **********************************************************************
' * Comments :
' *
' *
' **********************************************************************
m_intLineNumber = vNewValue
End Property