-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathIVbaVariable.cls
70 lines (54 loc) · 1.35 KB
/
IVbaVariable.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
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "IVbaVariable"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Public Enum ArgumentIdEnum
'Just go with it, I guess.
ArgumentTypeMask = &H1F
'Types:
Integer_AID = &H6
Long_AID = &H8
Single_AID = &HA
Double_AID = &HB
Currency_AID = &HD
Date_AID = &HC
String_AID = &H10
Object_AID = &H1C
Boolean_AID = &H3
Variant_AID = &HF
Byte_AID = &H5
LongLong_AID = &H11
HResult_AID = &H1F 'Returned from all class calls
Any_AID = &H2
UserDefined_AID = &H15
VbaClass_AID = &H14
ReferenceClass_AID = &H1E
'Flags:
IsByRef_AID = &H40 'Flag
IsArray_AID = &H80 'Flag
IsOptional_AID = &H100 ' Flag
End Enum
Public Enum PassByEnum
PassByReference
PassByValue
End Enum
Public Property Get Name() As String
End Property
Public Property Get VarType() As VbVarType
End Property
Public Property Get Description() As String
End Property
Public Property Get IsArray() As Boolean
End Property
Public Property Get PassBy() As PassByEnum
End Property
Public Property Get Declaration() As String
End Property
Public Property Get IsOptional() As Boolean
End Property