creating array of checkboxes on useform

[red6000]

Hi,

I use the following code to create an array of checkboxes on a userform:

Dim xArray()
Dim xCount As Integer
Dim xControl As Control

For Each xControl In EditFrm.Controls
If TypeOf xControl Is MSForms.CheckBox Then
ReDim Preserve xArray(xCount)
Set xArray(xCount) = xControl
xCount = xCount + 1
End If
Next xControl


How would I amend the code to create an array, but only for checkboxes
within a frame?

Thanks.

 

[Jean-Guy Marcil]

red6000 was telling us:
red6000 nous racontait que :

Hi,

I use the following code to create an array of checkboxes on a
userform:
Dim xArray()
Dim xCount As Integer
Dim xControl As Control

For Each xControl In EditFrm.Controls
If TypeOf xControl Is MSForms.CheckBox Then
ReDim Preserve xArray(xCount)
Set xArray(xCount) = xControl
xCount = xCount + 1
End If
Next xControl


How would I amend the code to create an array, but only for checkboxes
within a frame?

Change
If TypeOf xControl Is MSForms.CheckBox Then
for
For Each xControl In EditFrm.Frame1.Controls

using the approriate object instead of Frame1, Oeuf Corse.

--

Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
(e-mail address removed)
Word MVP site: http://www.word.mvps.org