http://www.asp.net/ajax/ajaxcontroltoolkit/Samples/Tabs/Tabs.aspx
Una necesidad que podemos tener es la de imprimir una página con Tabs. Para esto, necesitaríamos que el contenido de cada tab estuviera visible, por ejemplo uno debajo del otro.
El siguiente código en VB.Net hace exactamente eso:
Public Sub ShowTabPlain(ByVal tab As TabContainer)
Dim panPlainTab As New Panel
tab.Parent.Controls.AddAt(tab.Parent.Controls.IndexOf(tab), panPlainTab)
For Each oTabPanel As TabPanel In tab.Tabs
Dim oTitle As New HtmlGenericControl("H1")
oTitle.InnerText = oTabPanel.HeaderText
panPlainTab.Controls.Add(oTitle)
For Each oControl As Control In oTabPanel.Controls
panPlainTab.Controls.Add(oControl)
Next
For Each oControl As Control In oTabPanel.Controls
oTabPanel.Controls.Remove(oControl)
Next
Next
tab.Visible = False
End Sub
No hay comentarios.:
Publicar un comentario