Spanish {SOLUCIONADO} Crear o simular array de objetos

[desof]

Hola necesito crear un array de objetos Buttons tal como se hace en VB6

Ejemplo :

myBt(0).Text="boton0"
myBt(1).Text="boton1"
myBt(2).Text="boton2"
...


Es posible ?

Como?

 

[cimperia]

Si, es posible.

Dim myBt(50) As Button
myBt(0).Initialize("myBt")
myBt(0).Text = "boton0"

 

[desof]

grax!!!

 

[cimperia]

De nada

 

[bgsoft]

Hola

Tambien puedes generarlo con el mismo nombre y sin necesidad de dimensionar una matriz de objetos , por ejemplo:

' Crear los botones (u otro objeto)
For n = 1 To TotalBotones
  dim MiBoton as Button
  MiBoton.Initialize ("MiBoton")
  MiBoton.Tag = n
  MiBoton.Text = "Botón 1" ' mejor tener el texto en una matriz o List
  ' aqui añades texto, lo incrustas donde quieras, etc
next

Sub MiBoton_Click
 Dim  indice  As Int 
 Dim Texto as String
 
 Dim b As Button
 b= Sender
   
   indice = b.Tag
   Texto = b.Text
   ' .......
   ' ..........
   ' el código que quieras

end sub

Saludos

 

[bgsoft]

Hola Desof

Ya que la pregunta quedó resuelta, podrias poner en la cabecera [SOLUCIONADO], asi hacemos mas agil el foro, gracias.

Saludos