Создайте тему для всех форм в VB.NET
Public backcolor1 As Color = Color.blue Public bawhite As Color = Color.White Public Sub themes() Me.BackColor = backcolor1 PictureBox1.BackColor = backcolor1 Dim cControl As Control For Each cControl In Me.Controls If (TypeOf cControl Is Button) Then cControl.ForeColor = Color.Black cControl.Font = New Font(cControl.Font, FontStyle.Bold) End If If (TypeOf cControl Is TextBox) Then cControl.ForeColor = Color.Black cControl.Font = New Font(cControl.Font, FontStyle.Bold) cControl.BackColor = bawhite End If If (TypeOf cControl Is CheckBox) Then cControl.ForeColor = Color.Black cControl.Font = New Font(cControl.Font, FontStyle.Bold) cControl.BackColor = backcolor1 End If If (TypeOf cControl Is ComboBox) Then cControl.ForeColor = Color.Black cControl.Font = New Font(cControl.Font, FontStyle.Bold) cControl.BackColor = bawhite End If Next cControl End Sub
Что я уже пробовал:
то, что я пробовал запускать темы во всех формах при загрузке, не работает во втором от того, как я кодирую и вызываю, чтобы его можно было использовать полностью во всех формах