Reference Controls to chang attributes through Array
Sorry Dave,
I meant on a UserForm.
I already have cb() as Boolean in Public declarations.
Any thoughts?
Dan
"Dave Peterson" wrote:
On a worksheet?
dim x as long 'watch your spelling of integer
with activesheet
for x = 1 to 10
.oleobjects("cmd_" & x).visible = cb(x)
next x
end with
cb() is an array of true/falses, right.
Ps. I'd use:
dim CB(1 to 10) as boolean
dim CB(10) as boolean
will create an array of 11 elements--0 to 10.
(unless you're using an "Option Base" statement.)
DanB wrote:
I have 3 CommandButton controls (cmd_1, cmd_2, ... cmd_10)
I want to be able to cycle through them to change their attributes using
data stored in an array cb(10). I know I'm missing something simple, but
integral. Can anyone help?
I've tried:
Dim myObj as Object
Dim x as Interger
For x = 1 to 10
Set myObj = "cmd_" & x
With myObj
.Visible = cb(x)
End With
Next x
--
Dave Peterson
|