loop help please

[mrcw]

I'm trying to shorten this list

Page01.Visible = False
Page02.Visible = False
Page03.Visible = False
Page04.Visible = False
Page05.Visible = False
...
Page50.Visible = False

(there are 50 entries in the list)

I have tried writing a for to loop but I am stuck. I have got this far

Dim i As Integer

For i = 1 To 50
Page(i).Visible = False
Next

now I get an error message sayin "expression is not a method or array....."
Can somebody show me what the loop should be please.

mrcw

[debasisdas]

The error message is self explanatory. Why you need a loop for that. A simple sub-procedure will do all that for you.

[smartchap]

May try this:

Dim j as string
for i=1 to 50
j=Page & i
j.Visible=False
next

[mrcw]

Thanks for your suggestion Smartchap but it doesn't work.
mrcw

[rpicilli]

@mrcw

If you really want to do in this way you need to make the names the same.

For any language Page1 is different from Page01.

Taking the example of Smarchap you can do some changes on it.

Dim j as string
Dim myCtrl as new Object

for i=1 to 50
j="Page" & i.tostring("00")

myCtrl.Name = j

myCtrl.Visible=False

next


Try this and let us know if worked.


Rpicilli