Tabpage dinamicamente

Hola, os explico mi problema...
tengo un tabcontrol que tiene 7 tabpages y cada tabpage tiene un listview.
La cuestion es que me gustaria crear los listviews dinamicamente, ya que
yo
los creo arrastrando el boton.
Al listview le doy estas caracteristicas:
ListView1.View = View.Details
ListView1.FullRowSelect = True
ListView1.GridLines = True
ListView1.LabelEdit = False
ListView1.Columns.Clear()
ListView1.Items.Clear()
ListView1.Columns.Add("Ejercicio", 150, HorizontalAlignment.Left)
ListView1.Columns.Add("Series", 90, HorizontalAlignment.Left)
ListView1.Columns.Add("Repeticiones", 90, HorizontalAlignment.Left)

si tengo que hacer esto siete veces es un poco follon... por eso me
gustaria
hacerlo dinamicamente pero no se como... si me pudierais ayudar... Gracias

¿Sigues necesitando añadir dinámicamente?

Juan Carlos Badiola
MVP - C#

No hay ninguna dificultad en crear controles dinámicamente. De hecho, en realidad todos los controles de un formulario windows forms se crean dinámicamente. Solo tienes que abrir la región de código que genera el diseñador, la que contiene InitializeComponents(), para ver como se crean dinámicamente los controles. El diseñador de windows forms, lo que hace es generar código para que se creen los controles en tiempo de ejecución.

Para lo que quieres, la forma más fácil es aprovechar el trabajo del diseñador, copiar/cortar-pegar el código generado y adaptarlo a tus necesidades. En general un control se crea así:

dim tuControl as new TipoControl
' asignas propiedades de tuControl
me.controls.Add(tuControl)

Para el caso de un TabControl es más o menos lo mismo, creas un TabPage y lo añades a lu colección TabPages. Los controles que quieras que se incluyan en una página tendrán como Parent la página y no el form (Me). Un ejemplo completo sería algo así:

Dim unTabControl As New TabControl

unTabControl.Bounds = New Rectangle(10, 10, 300, 200)

Dim i As Integer

Dim pagina As TabPage

For i = 1 To 8

pagina = New TabPage

pagina.Text = "Página " & i.ToString

Dim unTextBox As New TextBox

unTextBox.Location = New Point(5, 5)

unTextBox.Text = "Texto de " & i.ToString()

pagina.Controls.Add(unTextBox)

unTabControl.TabPages.Add(pagina)

Next

Me.Controls.Add(unTabControl)





Juan Carlos Badiola
MVP - C#