Visual Basic 2005: Grupo de botones

[moradazo]

Hola amigos del foro.

Tengo una duda acerca de un grupo de botones que se salen del tamaño del form. El programa genera una X cantidad de botones, en algunas circunstancias 5 botones, otras 8, otras 25, otras 40, etc

La situación es que cuando son más de 15 botones se crea un scroll en el form, haciendo que la ventana se desplace. Mi idea es hacer que solo se desplace el grupo de botones, supuse con un Group Box pero no me funciono tal vez por que no lo declaré como es, acá está el código de creación de botones:

Código PHP:

  For i As Integer = 0 To (cont - 1) 
            'For que recorre la cantidad de botones en el archivo de texto' 
            Dim Boton As New Button 'Declaracion de boton' 
            Boton.Name = (TextBox1.Lines(i) & (i)) + i.ToString() 'Nombre del boton' 
            Boton.Text = TextBox1.Lines(i) 'Texto en el boton' 
            Boton.Height = 22 'Tamaño alto de cada boton' 
            Boton.Width = 137 'Tamaño largo de cada boton' 
            Boton.Location = New Point(TxtPoint.X + 10, TxtPoint.Y) 'Localizacion en el Form del boton' 
            TxtPoint.Y += Boton.Height + 4 
            AddHandler Boton.Click, AddressOf xClick 
            'Finalmente agrega el boton' 
            Controls.Add(Boton) 
        Next i  
   

Tal vez si se declara en vez de New Point el groupbox pero sinceramente no se como, por eso pido la ayuda, gracias!

[boluart]

Iniciado por moradazo

Mi idea es hacer que solo se desplace el grupo de botones

a que te refieres con grupo de botones??

si lo que quieres es agregarle botones a un control GroupBox puedes cambiar:

Controls.Add(Boton)
por
GroupBox1.Controls.Add(Boton)

[moradazo]

Gracias boluart pero el groupbox ni el panel me ofrecen un scroll. Hay forma de activarles un scroll? es que la cantidad de botones es mas grande que el tamaño del groupbox entonces necesito ese scroll para poder visualizar todos los botones dentro de ese control, gracias!

[boluart]

Iniciado por moradazo

Gracias boluart pero el groupbox ni el panel me ofrecen un scroll

Quizas sea porque no activaste la propiedad AutoScroll a true

[moradazo]

Excelente Boluart, muchisimas gracias!!!

[moradazo]

Hola a todos. Tengo un problema con los botones:

Quiero distribuir los botones en un tabcontrol de tal manera que yo puedo elegir en cual tab va cierto grupo de botones. Lo que pasa es que al agregar primero pone unos botones desde arriba hasta la mitad, y los otros en el otro tab los pone desde la mitad hasta abajo. Me gustaría saber si puedo hacer que ambos grupos empiezen desde una misma dirección.
Se que tiene que ver con el TxtPoint que señalo ahí en el código pero incluso declarando otro no me ha servido. Habrá alguna forma más eficaz?

Código PHP:

  Private TxtPoint As New Point(25, 5) 
 
         For i As Integer = 0 To (cont - 1) 
            Dim Boton As New Button 'Declaracion de boton' 
            Boton.Name = (TextBox1.Lines(i) & (i)) + i.ToString() 'Nombre del boton' 
            Boton.Text = TextBox1.Lines(i) 'Texto en el boton' 
            Boton.Height = 22 'Tamaño alto de cada boton' 
            Boton.Width = 137 'Tamaño largo de cada boton' 
            Boton.Location = New Point(TxtPoint.X, TxtPoint.Y) 'Localizacion del boton' 
            TxtPoint.Y += Boton.Height + 5 
            AddHandler Boton.Click, AddressOf xClick 
            'Finalmente agrega el boton' 
             
            If Boton.Text.StartsWith("800") Then 
                TAB800.Controls.Add(Boton) 
            Else 
                TABgeneral.Controls.Add(Boton) 
            End If 
 
        Next i  
   

[moradazo]

Listo lo resolví, solamente ocupaba tener una condición IF para determinar que grupo de botones va en cada tab, ademas si debo agregar otro txtpoint

Código PHP:

  For i As Integer = 0 To (cont - 1) 
            'For que recorre la cantidad de botones en el archivo de texto' 
            Dim Boton As New Button 'Declaracion de boton' 
            Boton.Name = (TextBox1.Lines(i) & (i)) + i.ToString() 'Nombre del boton' 
            Boton.Text = TextBox1.Lines(i) 'Texto en el boton' 
            Boton.Height = 22 'Tamaño alto de cada boton' 
            Boton.Width = 137 'Tamaño largo de cada boton' 
            Boton.Location = New Point(TxtPoint.X, TxtPoint.Y) 'Localizacion en el Form del boton' 
            TxtPoint.Y += Boton.Height + 5 
            AddHandler Boton.Click, AddressOf xClick 
            If Boton.Text.StartsWith("800") Then 
                TAB800.Controls.Add(Boton) 
            Else 
                Dim gBoton As New Button 
                gBoton.Name = (TextBox1.Lines(i) & (i)) + i.ToString() 
                gBoton.Text = TextBox1.Lines(i) 
                gBoton.Height = 22 
                gBoton.Width = 137 
                gBoton.Location = New Point(TxtPoint2.X, TxtPoint2.Y) 
                TxtPoint2.Y += gBoton.Height + 5 
                AddHandler gBoton.Click, AddressOf xClick 
                TABgeneral.Controls.Add(gBoton) 
            End If 
 
        Next i  
   

Aqui tienen para cualquiera que le sirva!

[David]

Pero en ese caso el "Boton" también debería ir dentro de la condicional, ya que la estás creando y después no la estás usando pues creas otro botón "gBoton".

[moradazo]

Si tienes razon David, buena observación.

De esto se trata, hay que aprender de los que saben!

Pura vida!