forked from lee-soft/ViStart
-
Notifications
You must be signed in to change notification settings - Fork 0
/
StartMenuParseResult.cls
177 lines (126 loc) · 5.37 KB
/
StartMenuParseResult.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
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "StartMenuParseResult"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
'local variable(s) to hold property value(s)
Private mvarStartMenuPath As String 'local copy
Private mvarUserFramePath As String 'local copy
Private mvarBottomButtonsArrowPath As String 'local copy
Private mvarBottomButtonsShutdownPath As String 'local copy
Private mvarAllProgramsPath As String 'local copy
Private mvarButtonPath As String 'local copy
Private mvarProgramsArrowPath As String 'local copy
Private mvarErrorCode As Integer 'local copy
'local variable(s) to hold property value(s)
Private mvarStartMenuMaskPath As String 'local copy
Private mvarStartMenuExpandedPath As String 'local copy
Public Property Let StartMenuExpandedPath(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.StartMenuExpandedPath = 5
mvarStartMenuExpandedPath = vData
End Property
Public Property Get StartMenuExpandedPath() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.StartMenuExpandedPath
StartMenuExpandedPath = mvarStartMenuExpandedPath
End Property
Public Property Let StartMenuMaskPath(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.StartMenuMaskPath = 5
mvarStartMenuMaskPath = vData
End Property
Public Property Get StartMenuMaskPath() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.StartMenuMaskPath
StartMenuMaskPath = mvarStartMenuMaskPath
End Property
Public Property Let ErrorCode(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.ErrorCode = 5
mvarErrorCode = vData
End Property
Public Property Get ErrorCode() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.ErrorCode
ErrorCode = mvarErrorCode
End Property
Public Property Let ProgramsArrowPath(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.ProgramsArrowPath = 5
mvarProgramsArrowPath = vData
End Property
Public Property Get ProgramsArrowPath() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.ProgramsArrowPath
ProgramsArrowPath = mvarProgramsArrowPath
End Property
Public Property Let ButtonPath(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.ButtonPath = 5
mvarButtonPath = vData
End Property
Public Property Get ButtonPath() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.ButtonPath
ButtonPath = mvarButtonPath
End Property
Public Property Let AllProgramsPath(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.AllProgramsPath = 5
mvarAllProgramsPath = vData
End Property
Public Property Get AllProgramsPath() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.AllProgramsPath
AllProgramsPath = mvarAllProgramsPath
End Property
Public Property Let BottomButtonsShutdownPath(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.BottomButtonsShutdownPath = 5
mvarBottomButtonsShutdownPath = vData
End Property
Public Property Get BottomButtonsShutdownPath() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.BottomButtonsShutdownPath
BottomButtonsShutdownPath = mvarBottomButtonsShutdownPath
End Property
Public Property Let BottomButtonsArrowPath(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.BottomButtonsArrowPath = 5
mvarBottomButtonsArrowPath = vData
End Property
Public Property Get BottomButtonsArrowPath() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.BottomButtonsArrowPath
BottomButtonsArrowPath = mvarBottomButtonsArrowPath
End Property
Public Property Let UserFramePath(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.UserFramePath = 5
mvarUserFramePath = vData
End Property
Public Property Get UserFramePath() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.UserFramePath
UserFramePath = mvarUserFramePath
End Property
Public Property Let StartMenuPath(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.StartMenuPath = 5
mvarStartMenuPath = vData
End Property
Public Property Get StartMenuPath() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.StartMenuPath
StartMenuPath = mvarStartMenuPath
End Property