Botones Dinamicos

[Aquaventus]

Código vb:

Dim tabla As OdbcDataReader
Dim conex As New Conexion
i = 1
tabla = conex.consultar("select logro *from logros")
 
While tabla.Read
      ReDim BotonEquipo1(totalPartidos, i)
      BotonEquipo1(totalPartidos, i) = New Button
      BotonEquipo1(totalPartidos, i).Text = tabla.GetValue(0)
      BotonEquipo1(totalPartidos, i).Size = New Size(33, 20)
      BotonEquipo1(totalPartidos, i).Location = New Point(x, 20)
      Partidos(totalPartidos).Controls.Add(BotonEquipo1(totalPartidos, i))
 
      ReDim BotonEquipo2(totalPartidos, i)
      BotonEquipo2(totalPartidos, i) = New Button
      BotonEquipo2(totalPartidos, i).Text = tabla.GetValue(0)
      BotonEquipo2(totalPartidos, i).Size = New Size(33, 20)
      BotonEquipo2(totalPartidos, i).Location = New Point(x, 55)
      Partidos(totalPartidos).Controls.Add(BotonEquipo2(totalPartidos, i))
 
 x = x + separacion
 
i = i + 1
End While