Fix tab layout visibility
This commit is contained in:
@@ -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,
|
||||
|
||||
Reference in New Issue
Block a user