Member 10974007 Ответов: 1

Создайте тему для всех форм в 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


Что я уже пробовал:

то, что я пробовал запускать темы во всех формах при загрузке, не работает во втором от того, как я кодирую и вызываю, чтобы его можно было использовать полностью во всех формах

1 Ответов

Рейтинг:
0

Sergey Alexandrovich Kryukov

Пожалуйста, смотрите: Поиск статей CodeProject.

—СА


Maciej Los

5!

Sergey Alexandrovich Kryukov

Спасибо, Мацей.
—СА