Ver Mensaje Individual
  #10 (permalink)  
Antiguo 15/03/2012, 10:21
snowdogs
 
Fecha de Ingreso: noviembre-2009
Mensajes: 89
Antigüedad: 14 años, 5 meses
Puntos: 1
Respuesta: Botones Dinamicos

Gracias por tus respuestas Aquaventus, fijate tengo el siguiente codigo para hacer parte eso:

Código vb:
Ver original
  1. Public Class Form1
  2.     Dim logros(10) As Label
  3.     Dim codDeporte As Integer = 1 'Beisbol
  4.    Dim Partidos() As GroupBox
  5.     Dim totalPartidos As Integer = 0
  6.     Sub CrearPartido(ByVal nombreEquipo1 As String, ByVal nombreEquipo2 As String)
  7.         ReDim Preserve Partidos(totalPartidos)
  8.         Dim equipo1 As New Label
  9.         Dim equipo2 As New Label
  10.         equipo1.Text = nombreEquipo1
  11.         equipo2.Text = nombreEquipo2
  12.         equipo1.AutoSize = True
  13.         equipo2.AutoSize = True
  14.         equipo1.Location = New Point(10, 15)
  15.         equipo2.Location = New Point(10, 45)
  16.         Partidos(totalPartidos) = New GroupBox
  17.         Partidos(totalPartidos).Size = New Size(800, 70)
  18.         Partidos(totalPartidos).BackColor = Color.Aqua
  19.         Partidos(totalPartidos).Location = New Point(1, 40 * (totalPartidos + 1))
  20.         Partidos(totalPartidos).Controls.Add(equipo1)
  21.         Partidos(totalPartidos).Controls.Add(equipo2)
  22.         Me.Controls.Add(Partidos(totalPartidos))
  23.         totalPartidos = totalPartidos + 1
  24.     End Sub
  25.     Sub CrearFormulario()
  26.         Dim tabla As OdbcDataReader
  27.         Dim conex As New Conexion
  28.         Dim contador As Integer = 0
  29.         Dim x As Integer = 100
  30.         Dim separacion As Integer = 75
  31.         tabla = conex.consultar("select *from tipoapuesta where codDeporte = " & codDeporte)
  32.         While tabla.Read
  33.             logros(contador) = New Label
  34.             logros(contador).Text = tabla.GetValue(2)
  35.             logros(contador).Location = New Point(x, 20)
  36.             logros(contador).AutoSize = True
  37.             Me.Controls.Add(logros(contador))
  38.             contador = contador + 1
  39.             x = x + separacion
  40.         End While
  41.  
  42.     End Sub
  43.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  44.         CrearFormulario()
  45.         CrearPartido("Cardenales", "Leones")
  46.     End Sub
  47.  
  48. 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..