Hacer Grupos: Text + Image + Label + etc...

[Arc_Dream5]

  No saben como puedo hacer lo siguiente:

En mi codigo.. se tienen que hacer visibles algunos texts, labels, image... al darle clic en un list... pero el problema es que son demasiados.. para el Procedimiento.. ejemplo:

If  list.text = "Hello" then
image1.visible=true
text1.visible=true
label1.visible=true
image1.visible=false
text1.visible=false
label1.visible=false
else
........

Como ya dije son muchos de ese estilo.. pero quiero saber si se pueden hacer tipo Grupos para no tener que ponerlos todos?????


Espero que me entiendan!!!!

[NYlOn]

Podes poner los controels en un Frame y despues hacer:

Código [Seleccionar] Expandir


Frame1.Visible = True


Sino podes crear un sub funcion y en vez de escribir el mismo codigo muchas veces llamas a esa funcion:

Código [Seleccionar] Expandir


Private Sub Visibilidad()
If  list.text = "Hello" then
image1.visible=true
text1.visible=true
label1.visible=true
image1.visible=false
text1.visible=false
label1.visible=false
else
........
End Sub

Private sub Command1_Click ()
    Call Visibilidad
End SUb


Espero que te sirva, saludos.-

[Arc_Dream5]

  Muchisimas gracias..