Gracias por tus respuestas Aquaventus, fijate tengo el siguiente codigo para hacer parte eso:
Código vb:
Ver originalPublic Class Form1
Dim logros(10) As Label
Dim codDeporte As Integer = 1 'Beisbol
Dim Partidos() As GroupBox
Dim totalPartidos As Integer = 0
Sub CrearPartido(ByVal nombreEquipo1 As String, ByVal nombreEquipo2 As String)
ReDim Preserve Partidos(totalPartidos)
Dim equipo1 As New Label
Dim equipo2 As New Label
equipo1.Text = nombreEquipo1
equipo2.Text = nombreEquipo2
equipo1.AutoSize = True
equipo2.AutoSize = True
equipo1.Location = New Point(10, 15)
equipo2.Location = New Point(10, 45)
Partidos(totalPartidos) = New GroupBox
Partidos(totalPartidos).Size = New Size(800, 70)
Partidos(totalPartidos).BackColor = Color.Aqua
Partidos(totalPartidos).Location = New Point(1, 40 * (totalPartidos + 1))
Partidos(totalPartidos).Controls.Add(equipo1)
Partidos(totalPartidos).Controls.Add(equipo2)
Me.Controls.Add(Partidos(totalPartidos))
totalPartidos = totalPartidos + 1
End Sub
Sub CrearFormulario()
Dim tabla As OdbcDataReader
Dim conex As New Conexion
Dim contador As Integer = 0
Dim x As Integer = 100
Dim separacion As Integer = 75
tabla = conex.consultar("select *from tipoapuesta where codDeporte = " & codDeporte)
While tabla.Read
logros(contador) = New Label
logros(contador).Text = tabla.GetValue(2)
logros(contador).Location = New Point(x, 20)
logros(contador).AutoSize = True
Me.Controls.Add(logros(contador))
contador = contador + 1
x = x + separacion
End While
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CrearFormulario()
CrearPartido("Cardenales", "Leones")
End Sub
End Class
Lo que quiero por ahora es que en ves de que me salga Cardenale y Leones el cual agregue manualmente, quiero que esos 2 nombres lo saque de la base de dato, teniendo en cuenta que seran 2 nombres por cada groupbox, osea se van a crear groupbox por cada 2 nombres de esos, no se si me explico..