Recorrer coleccion de objetos
Publicado por Dario (1 intervención) el 13/03/2006 10:09:28
Como puedo recorrer los controles de un objeto pasado a otro form
seguen el siguiente ejemplo
form1...
Public Panel1 As New Panel
Public panel1_i As New Panel
For i = 1 To n
Dim bt As New Button
bt.Text = Trim(Str(i))
panel1_i.Controls.Add(bt)
Next
Panel1.Controls.Add(panel1_i)
Dim f As New Form
f = New Form2(Panel1)
...
Form2_load()
Me.Controls.Add(Panel1)
For Each Button In Panel1
Next
*** aqui no se como poder hacer que funcione
seguen el siguiente ejemplo
form1...
Public Panel1 As New Panel
Public panel1_i As New Panel
For i = 1 To n
Dim bt As New Button
bt.Text = Trim(Str(i))
panel1_i.Controls.Add(bt)
Next
Panel1.Controls.Add(panel1_i)
Dim f As New Form
f = New Form2(Panel1)
...
Form2_load()
Me.Controls.Add(Panel1)
For Each Button In Panel1
Next
*** aqui no se como poder hacer que funcione
Valora esta pregunta


0