vb.net - net - Ocultar y mostrar TabPages en tabControl

ocultar tabpage vb net

Question

Estoy tratando de mostrar u ocultar tabulaciones según la elección del usuario. Si el usuario selecciona género masculino, se debe mostrar el formulario para hombre en un tabulador "masculino" y si el usuario selecciona mujer, se debe mostrar la siguiente forma similar en la siguiente pestaña "femenino"

Intenté usar

tabControl1.TabPages.Remove(...)

y

tabControl1.TabPages.Add(...)

Agrega y elimina los tabuladores, pero al hacerlo también perderá mis controles en las pestañas ... no puedo volver a verlos. ¿Cuál es el problema aquí?

Answer 1

Creo que la respuesta es mucho más fácil.

Para ocultar la pestaña, solo puede usar la forma en que ya intentó o dirigirse a TabPage.

TabControl1.TabPages.Remove(TabPage1) ''Could be male
TabControl1.TabPages.Remove(TabPage2) ''Could be female

aso

La eliminación de la TabPage no la destruye ni los controles sobre ella. Para volver a mostrar la pestaña correspondiente, solo usa el siguiente código

TabControl1.TabPages.Insert(0, TabPage1) ''Show male
TabControl1.TabPages.Insert(1, TabPage2) ''Show female

Answer 2

He estado usando el mismo método para guardar las TabPages ocultas en una lista privada, pero el problema es que cuando quiero mostrar TabPage nuevamente, no aparecen en la posición original (orden). Entonces, finalmente, escribí una clase en VB para agregar TabControl con dos métodos: HideTabPageByName y ShowTabPageByName. Puede llamar a los métodos que pasan el nombre (no a la instancia de TabPage).

Public Class CS_Control_TabControl
Inherits System.Windows.Forms.TabControl
Private mTabPagesHidden As New Dictionary(Of String, System.Windows.Forms.TabPage)
Private mTabPagesOrder As List(Of String)
Public Sub HideTabPageByName(ByVal TabPageName As String)
If mTabPagesOrder Is Nothing Then
'' The first time the Hide method is called, save the original order of the TabPages
mTabPagesOrder = New List(Of String)
For Each TabPageCurrent As TabPage In Me.TabPages
mTabPagesOrder.Add(TabPageCurrent.Name)
Next
End If
If Me.TabPages.ContainsKey(TabPageName) Then
Dim TabPageToHide As TabPage
'' Get the TabPage object
TabPageToHide = TabPages(TabPageName)
'' Add the TabPage to the internal List
mTabPagesHidden.Add(TabPageName, TabPageToHide)
'' Remove the TabPage from the TabPages collection of the TabControl
Me.TabPages.Remove(TabPageToHide)
End If
End Sub
Public Sub ShowTabPageByName(ByVal TabPageName As String)
If mTabPagesHidden.ContainsKey(TabPageName) Then
Dim TabPageToShow As TabPage
'' Get the TabPage object
TabPageToShow = mTabPagesHidden(TabPageName)
'' Add the TabPage to the TabPages collection of the TabControl
Me.TabPages.Insert(GetTabPageInsertionPoint(TabPageName), TabPageToShow)
'' Remove the TabPage from the internal List
mTabPagesHidden.Remove(TabPageName)
End If
End Sub
Private Function GetTabPageInsertionPoint(ByVal TabPageName As String) As Integer
Dim TabPageIndex As Integer
Dim TabPageCurrent As TabPage
Dim TabNameIndex As Integer
Dim TabNameCurrent As String
For TabPageIndex = 0 To Me.TabPages.Count - 1
TabPageCurrent = Me.TabPages(TabPageIndex)
For TabNameIndex = TabPageIndex To mTabPagesOrder.Count - 1
TabNameCurrent = mTabPagesOrder(TabNameIndex)
If TabNameCurrent = TabPageCurrent.Name Then
Exit For
End If
If TabNameCurrent = TabPageName Then
Return TabPageIndex
End If
Next
Next
Return TabPageIndex
End Function
Protected Overrides Sub Finalize()
mTabPagesHidden = Nothing
mTabPagesOrder = Nothing
MyBase.Finalize()
End Sub
End Class

Answer 3

Los códigos siempre deben ser simples y fáciles de realizar para lograr un rendimiento rápido y una buena confiabilidad.

Para agregar una página a un TabControl, el siguiente código es suficiente.

Si Tabcontrol1.Controls.Contains (TabPage1) Then
else Tabcontrol1.Controls.Add (TabPage1) End If

Para eliminar una página de un TabControl, el siguiente código es suficiente.

Si Tabcontrol1.Controls.Contains (TabPage1) Then Tabcontrol1.Controls.Remove (TabPage1) End If

Deseo agradecer a .com por brindar ayuda sincera a los programadores.

Answer 4

Me parece más fácil borrar todas las TabPages agregar agregar las deseadas:

PropertyTabControl.TabPages.Clear();
PropertyTabControl.TabPages.Add(AspectTabPage);
PropertyTabControl.TabPages.Add(WerkstattTabPage);

o

PropertyTabControl.TabPages.Clear();
PropertyTabControl.TabPages.Add(TerminTabPage);

Answer 5

Mejorando la buena solución de Hans Passant, decidí escribir un método de extensión basado en su solución y agregar otras cosas también. Me sorprende que, incluso en .NET 4, esta funcionalidad básica no se haya solucionado.

• Implementado como un método de extensión que se puede reutilizar de una manera más transparente
• El método de limpieza solo limpia las páginas del control que se desecha / limpia.
• Siempre que sea posible, la página de pestañas se restaurará en su misma posición. Esto no siempre es posible si oculta / muestra varias páginas de pestañas.
• Hace algún error y comprobación de parámetros
• Para hacerlo invisible, descubre su padre. Al hacer visible, se debe dar porque la propiedad Parent es nula cuando se eliminó la página de pestañas.

public static class TabPageExtensions
{
private struct TabPageData
{
internal int Index;
internal TabControl Parent;
internal TabPage Page;
internal TabPageData(int index, TabControl parent, TabPage page)
{
Index = index;
Parent = parent;
Page = page;
}
internal static string GetKey(TabControl tabCtrl, TabPage tabPage)
{
string key = "";
if (tabCtrl != null && tabPage != null)
{
key = String.Format("{0}:{1}", tabCtrl.Name, tabPage.Name);
}
return key;
}
}
private static Dictionary<string, TabPageData> hiddenPages = new Dictionary<string, TabPageData>();
public static void SetVisible(this TabPage page, TabControl parent)
{
if (parent != null && !parent.IsDisposed)
{
TabPageData tpinfo;
string key = TabPageData.GetKey(parent, page);
if (hiddenPages.ContainsKey(key))
{
tpinfo = hiddenPages[key];
if (tpinfo.Index < parent.TabPages.Count)
parent.TabPages.Insert(tpinfo.Index, tpinfo.Page); // add the page in the same position it had
else
parent.TabPages.Add(tpinfo.Page);
hiddenPages.Remove(key);
}
}
}
public static void SetInvisible(this TabPage page)
{
if (IsVisible(page))
{
TabControl tabCtrl = (TabControl)page.Parent;
TabPageData tpinfo;
tpinfo = new TabPageData(tabCtrl.TabPages.IndexOf(page), tabCtrl, page);
tabCtrl.TabPages.Remove(page);
hiddenPages.Add(TabPageData.GetKey(tabCtrl, page), tpinfo);
}
}
public static bool IsVisible(this TabPage page)
{
return page != null && page.Parent != null; // when Parent is null the tab page does not belong to any container
}
public static void CleanUpHiddenPages(this TabPage page)
{
foreach (TabPageData info in hiddenPages.Values)
{
if (info.Parent != null && info.Parent.Equals((TabControl)page.Parent))
info.Page.Dispose();
}
}
}

Answer 6

Prefiero hacer la apariencia de estilo plano: https://.com/a/25192153/5660876

 tabControl1.Appearance = TabAppearance.FlatButtons;
tabControl1.ItemSize = new Size(0, 1);
tabControl1.SizeMode = TabSizeMode.Fixed;

Pero hay un píxel que se muestra en cada tabPage, por lo que si elimina todo el texto de cada tabulación, las pestañas se vuelven invisibles perfectamente en tiempo de ejecución.

 foreach (TabPage tab in tabControl1.TabPages)
{
tab.Text = "";
}

Después de eso uso una vista en árbol, para cambiar a través de las pestañas ... haciendo clic en los nodos.

Answer 7

Puede quitar la página de pestañas de la colección TabControl.TabPages y almacenarla en una lista. Por ejemplo:

 private List<TabPage> hiddenPages = new List<TabPage>();
private void EnablePage(TabPage page, bool enable) {
if (enable) {
tabControl1.TabPages.Add(page);
hiddenPages.Remove(page);
}
else {
tabControl1.TabPages.Remove(page);
hiddenPages.Add(page);
}
}
protected override void OnFormClosed(FormClosedEventArgs e) {
foreach (var page in hiddenPages) page.Dispose();
base.OnFormClosed(e);
}

Answer 8

Puede usar lo siguiente

tabcontainer.tabs(1).visible=true

1 es tabindex

Answer 9

Si puede permitirse usar el elemento Tag de TabPage , puede utilizar estos métodos de extensión

 public static void HideByRemoval(this TabPage tp)
{
TabControl tc = tp.Parent as TabControl;
if (tc != null && tc.TabPages.Contains(tp))
{
// Store TabControl and Index
tp.Tag = new Tuple<TabControl, Int32>(tc, tc.TabPages.IndexOf(tp));
tc.TabPages.Remove(tp);
}
}
public static void ShowByInsertion(this TabPage tp)
{
Tuple<TabControl, Int32> tagObj = tp.Tag as Tuple<TabControl, Int32>;
if (tagObj?.Item1 != null)
{
// Restore TabControl and Index
tagObj.Item1.TabPages.Insert(tagObj.Item2, tp);
}
}

Answer 10

Tengo mi código de ejemplo funcionando pero quiero hacerlo un poco mejor refringiendo la pestaña de la lista:

Public Class Form1
Dim State1 As Integer = 1
Dim AllTabs As List(Of TabPage) = New List(Of TabPage)
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Check1(State1)
State1 = CInt(IIf(State1 = 1, 0, 1))
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
AllTabs.Add(TabControl1.TabPages("TabPage1"))
AllTabs.Add(TabControl1.TabPages("TabPage2"))
End Sub
Sub Check1(ByVal No As Integer)
If TabControl1.TabPages.ContainsKey("TabPage1") Then
TabControl1.TabPages.Remove(TabControl1.TabPages("TabPage1"))
End If
If TabControl1.TabPages.ContainsKey("TabPage2") Then
TabControl1.TabPages.Remove(TabControl1.TabPages("TabPage2"))
End If
TabControl1.TabPages.Add(AllTabs(No))
End Sub
End Class

Answer 11

Un enfoque diferente sería tener dos controles de pestaña, uno visible y otro no. Puede mover las pestañas de una a otra como esta (vb.net):

If Me.chkShowTab1.Checked = True Then
Me.tabsShown.TabPages.Add(Me.tabsHidden.TabPages("Tab1"))
Me.tabsHidden.TabPages.RemoveByKey("Tab1")
Else
Me.tabsHidden.TabPages.Add(Me.tabsShown.TabPages("Tab1"))
Me.tabsShown.TabPages.RemoveByKey("Tab1")
End If

Si el orden de las pestañas es importante, cambie el método .Add en las pestañas a las que se refiere. Inserte y especifique la posición ordinal. Una forma de hacerlo es llamar a una rutina que devuelve la posición ordinal deseada.

Answer 12

Y a partir de la respuesta de Emile (y Slugster), me resultó un poco más fácil extender TabControl (en lugar de TabPages). De esta forma puedo configurar páginas invisibles o visibles con una sola llamada, y tampoco tener que preocuparme por las referencias padre nulas para las páginas invisibles.

Ejemplo de llamada: MyTabControl.SetTabVisibilityExt ("tabTests", isDeveloper);

public static class WinFormExtensions
{
public static TabPage FindTabByNameExt( this TabControl tc, string tabName)
{
foreach (TabPage tab in tc.TabPages)
if (tab.Name == tabName)
return tab;
return null;
}
private struct TabPageData
{
internal int Index;
internal TabControl Parent;
internal TabPage Page;
internal TabPageData(int index, TabControl parent, TabPage page)
{
Index = index;
Parent = parent;
Page = page;
}
internal static string GetKey(TabControl tc, TabPage tabPage)
{
string key = "";
if (tc == null || tabPage == null)
return key;
key = $"{tc.Name}:{tabPage.Name}";
return key;
}
internal static string GetKey(TabControl tc, string tabName)
{
string key = "";
if (tc == null)
return key;
key = $"{tc.Name}:{tabName}";
return key;
}
}
private static Dictionary<string, TabPageData> hiddenPages = new Dictionary<string, TabPageData>();
public static void SetTabVisibleExt(this TabControl tc, string tabName)
{
if (tc == null || tc.IsDisposed)
return;
if (tc.IsTabVisibleExt(tabName))
return;
string key = TabPageData.GetKey(tc, tabName);
if (hiddenPages.ContainsKey(key))
{
TabPageData tpinfo = hiddenPages[key];
if (tpinfo.Index < tc.TabPages.Count)
tc.TabPages.Insert(tpinfo.Index, tpinfo.Page); // add the page in the same position it had
else
tc.TabPages.Add(tpinfo.Page);
hiddenPages.Remove(key);
return;
}
else
throw new ApplicationException($"TabControl={tc.Name} does not have Invisible TabPage={tabName}");
}
public static void SetTabInvisibleExt(this TabControl tc, string tabName)
{
if (tc == null || tc.IsDisposed)
return;
if (IsTabInvisibleExt(tc, tabName))
return;
TabPage page = tc.FindTabByNameExt(tabName);
if (page != null)
{
string key = TabPageData.GetKey(tc, page);
TabPageData tpInfo = new TabPageData(tc.TabPages.IndexOf(page), tc, page);
tc.TabPages.Remove(page);
hiddenPages.Add(key, tpInfo);
return;
}
else // Could not find the tab, and it isn''t already invisible.
throw new ApplicationException($"TabControl={tc.Name} could not locate TabPage={tabName}");
}
// A convenience method to combine the SetTabInvisible and SetTabInvisible.
public static void SetTabVisibilityExt(this TabControl tc, string tabName, bool? isVisible)
{
if (isVisible == null)
return;
if (isVisible.Value)
tc.SetTabVisibleExt(tabName);
else
tc.SetTabInvisibleExt(tabName);
}
public static bool IsTabVisibleExt(this TabControl tc, string tabName)
{
TabPage page = tc.FindTabByNameExt(tabName);
return page != null;
}
public static bool IsTabInvisibleExt(this TabControl tc, string tabName)
{
string key = TabPageData.GetKey(tc, tabName);
return hiddenPages.ContainsKey(key);
}
public static void CleanUpHiddenPagesExt(this TabControl tc)
{
foreach (TabPageData info in hiddenPages.Values)
{
if (info.Parent != null && info.Parent.Equals((TabControl)tc))
info.Page.Dispose();
}
}
}

Answer 13

siempre puede ocultar o mostrar el tabulador.

''in VB
myTabControl.TabPages(9).Hide() ''to hide the tabpage that has index 9
myTabControl.TabPages(9).Show() ''to show the tabpage that has index 9

Answer 14

 Public Shared HiddenTabs As New List(Of TabPage)()
Public Shared Visibletabs As New List(Of TabPage)()
Public Shared Function ShowTab(tab_ As TabPage, show_tab As Boolean)
Select Case show_tab
Case True
If Visibletabs.Contains(tab_) = False Then Visibletabs.Add(tab_)
If HiddenTabs.Contains(tab_) = True Then HiddenTabs.Remove(tab_)
Case False
If HiddenTabs.Contains(tab_) = False Then HiddenTabs.Add(tab_)
If Visibletabs.Contains(tab_) = True Then Visibletabs.Remove(tab_)
End Select
For Each r In HiddenTabs
Try
Dim TC As TabControl = r.Parent
If TC.Contains(r) = True Then TC.TabPages.Remove(r)
Catch ex As Exception
End Try
Next
For Each a In Visibletabs
Try
Dim TC As TabControl = a.Parent
If TC.Contains(a) = False Then TC.TabPages.Add(a)
Catch ex As Exception
End Try
Next
End Function

Answer 15

 public static Action<Func<TabPage, bool>> GetTabHider(this TabControl container) {
if (container == null) throw new ArgumentNullException("container");
var orderedCache = new List<TabPage>();
var orderedEnumerator = container.TabPages.GetEnumerator();
while (orderedEnumerator.MoveNext()) {
var current = orderedEnumerator.Current as TabPage;
if (current != null) {
orderedCache.Add(current);
}
}
return (Func<TabPage, bool> where) => {
if (where == null) throw new ArgumentNullException("where");
container.TabPages.Clear();
foreach (TabPage page in orderedCache) {
if (where(page)) {
container.TabPages.Add(page);
}
}
};
}

Usado así:

 var showOnly = this.TabContainer1.GetTabHider();
showOnly((tab) => tab.Text != "tabPage1");

El orden original se conserva manteniendo una referencia a la instancia de la función anónima.

Answer 16

TabPanel1.Visible = true; // Show Tabpage 1
TabPanel1.Visible = false; //Hide Tabpage 1