Object Name Manipultation!

[Quijian]

Hey guys, I am having problem with manipulating a object name. Here is the case:

xpic as string
picbox as string

I have multiple image boxes named picbox_1, picbox_2, picbox_3, ect. What I want to do is that xpic contain a number and picbox contain "picbox_" and I want to add xpic and picbox together as a object name. Like this:

picbox + xpic.visibility = false

I will take any suggestions, thanks!

 

[OrthoDocSoft]

dim a as string
dim b as string
dim c as string

a = "Picbox"
b = "1"
c = a & b

(SUB)

Select case c

Case "Picbox1"

Picbox1.visible = true

Case "Picbox2"

Picbox2.visible = true

End Select

(End Sub)

Change a and b as you wish and call the sub

Ortho

 

[mmilan]

Use a control array instead.

mmilan

 

[DeltaTech]

Hi Quijian
Why not have your picboxes as an array? Then you can refer to it using xpic as the index.

picbox(xpic).visible = false

 

[mmilan]

Erm...

 

[bjd4jc]

or you could do

Me.Control("picbox" & xpic).visible = False

 

[bjd4jc]

that should be

Me.Controls(picbox & xpic).visible=false

for teh "s" in controls

 

[DeltaTech]

Sorry mmilan
I did not see your reply when I posted mine.

 

[Quijian]

Thanks guys, you own!