none
control contenedor tabcontrol problemas al mostrar botones en tiempo de ejecucion

    Pregunta

  • buenas tardes 

    señores estoy tratando de hacer una aplicacion de restaurant mi problema surge cuando trato de crear en un formulario que contiene un tabcontrol. en dicho control necesito que aparescan botones segun la consulta sql que tenga ejemplo

    consulte por papas en ese control deberia aparecer los botones con los nombres de las papas(

    {"Papas Grande", "Papas Mediana",
                "Papas Chica", "Papas con queso", "Papas con pollo", "Papas solas"})

    pero al ejecutar esto solo me aparecen los tabcontrol sin los botones contenidos ejemplos las papas 

     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            'Listado de productos
            Dim papas As New List(Of String)
            papas.AddRange(New String() {"Papas Grande", "Papas Mediana",
                "Papas Chica", "Papas con queso", "Papas con pollo", "Papas solas"})
    
         
            Dim miPagina As New TabPage()
            Dim alto As Integer = 12
    
            'Recorre los valores
            For Each p In papas
                miPagina.Text = "PruebaPestaña"
                miPagina.Name = "paginaPrueba"
                
                'Agrego algunas propiedades
                Dim btn As New Button _
                    With {
                       .Text = p, 'Toma el nombre
                       .Width = 216,
                       .Height = 36,
                       .Location = New Point(12, alto)
                       }
    
                'Crea un Handler para detecta que botón hizo click
                AddHandler btn.Click, AddressOf clickBoton_Click
    
                miPagina.Controls.Add(btn)
                TabControl1.TabPages.Add(miPagina)
                'espacio entre botones +27
                alto += (12 + 27)
            Next
    
    
        End Sub

    codigo proporciando gracias al señor JC NaupaCrispìn

    trate de integrarle el contenedor tabcontrol pero no me muestra los botones 

    ¿como podria mostra esos botones con una consulta sql por favor? en tiempo de ejecucion

    miércoles, 26 de octubre de 2016 19:19

Respuestas

  • Dentro del For each añade los objetos en el contenedor no en la forma 

    TabControl1.TabPages[0].Controls.Add(btn)

    Saludos

    • Marcado como respuesta djnilo miércoles, 26 de octubre de 2016 21:49
    miércoles, 26 de octubre de 2016 19:32
  • Hola djnilo,

    Debes de declarar el nuevo objeto del TabPage dentro del form.

    For Each p In papas Dim miPagina As New TabPage miPagina.Text = "PruebaPestaña" miPagina.Name = "paginaPrueba"

    'Resto de código...

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    muchas gracias JC Naupacrispin por tu tiempo 
    • Marcado como respuesta djnilo miércoles, 26 de octubre de 2016 21:51
    miércoles, 26 de octubre de 2016 21:51

Todas las respuestas

  • Dentro del For each añade los objetos en el contenedor no en la forma 

    TabControl1.TabPages[0].Controls.Add(btn)

    Saludos

    • Marcado como respuesta djnilo miércoles, 26 de octubre de 2016 21:49
    miércoles, 26 de octubre de 2016 19:32
  • Hola djnilo,

    Debes de declarar el nuevo objeto del TabPage dentro del form.

    For Each p In papas Dim miPagina As New TabPage miPagina.Text = "PruebaPestaña" miPagina.Name = "paginaPrueba"

    'Resto de código...

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    miércoles, 26 de octubre de 2016 19:48
  • Dentro del For each añade los objetos en el contenedor no en la forma 

    TabControl1.TabPages[0].Controls.Add(btn)

    Saludos

    muchas gracias Anibal Marcano gracias por tiempo
    miércoles, 26 de octubre de 2016 21:50
  • Hola djnilo,

    Debes de declarar el nuevo objeto del TabPage dentro del form.

    For Each p In papas Dim miPagina As New TabPage miPagina.Text = "PruebaPestaña" miPagina.Name = "paginaPrueba"

    'Resto de código...

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    muchas gracias JC Naupacrispin por tu tiempo 
    • Marcado como respuesta djnilo miércoles, 26 de octubre de 2016 21:51
    miércoles, 26 de octubre de 2016 21:51