Fix tab layout visibility

This commit is contained in:
Livio Merola
2026-07-24 09:21:01 +02:00
parent 385367cb3d
commit 0167a9f335
6 changed files with 19 additions and 7 deletions
+15 -3
View File
@@ -69,16 +69,28 @@ Public Class Form1
Size = New Size(1120, 760)
StartPosition = FormStartPosition.CenterScreen
Dim shell As New TableLayoutPanel With {
.Dock = DockStyle.Fill,
.ColumnCount = 1,
.RowCount = 2,
.Margin = Padding.Empty,
.Padding = Padding.Empty
}
shell.RowStyles.Add(New RowStyle(SizeType.AutoSize))
shell.RowStyles.Add(New RowStyle(SizeType.Percent, 100))
Controls.Add(shell)
Dim mainMenu = BuildMainMenu()
MainMenuStrip = mainMenu
Controls.Add(mainMenu)
mainMenu.Dock = DockStyle.Fill
shell.Controls.Add(mainMenu, 0, 0)
Dim tabs As New TabControl With {.Dock = DockStyle.Fill}
Dim tabs As New TabControl With {.Dock = DockStyle.Fill, .Margin = Padding.Empty}
Dim tabTrasferimento As New TabPage("Trasferimento programmi")
Dim tabStatoMoxa As New TabPage("Stato Moxa")
tabs.TabPages.Add(tabTrasferimento)
tabs.TabPages.Add(tabStatoMoxa)
Controls.Add(tabs)
shell.Controls.Add(tabs, 0, 1)
Dim root As New TableLayoutPanel With {
.Dock = DockStyle.Fill,