CommandButton)
Set m_oNextButton = newNextBtn
End Property
Table 4-10 lists the cStepManager class??™s properties and describes them.
Table 4-10. cStepManager Properties
Property Description
NumberOfSettings Contains the number of columns in our step configuration worksheet,
UFormConfig
Worksheet Tells the class where to find the information for each step of the wizard
CurrentPage Stores the value of the current step in the wizard
PreviousPage Calculated based on the CurrentPage property; returns the value of the
preceding step in the wizard
NextPage Calculated based on the CurrentPage property; returns the value of the
next step in the wizard
PreviousButton Stores a pointer to the button on the UserForm that will navigate to the
preceding step in the wizard
NextButton Stores a pointer to the button on the UserForm that will navigate to the
next step in the wizard
We need to add one more property to our class. This read-only property will contain the
collection of cStep objects that hold the information on each step of the wizard.
The PageSettings property will store this collection for us. It returns a Collection object
that we will use in the client code behind our HRWizard UserForm.
The code for the PageSettings property looks like this:
Public Property Get PageSettings() As Collection
Dim colReturn As Collection
Dim numrows As Integer
Dim row As Integer
Dim col As Integer
Dim sKey As String
Set colReturn = New Collection
numrows = m_oWorksheet.
Pages:
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184