Introdução

Mudar a cor da barra de título de um formulário no Visual Basic pode ser útil para personalizar a aparência da sua aplicação. Neste artigo, mostraremos como alterar essa cor utilizando a API do Windows.

Código para Alterar a Cor da Barra do Formulário

Para modificar a cor da barra de título de um formulário, utilizamos a função SetSysColors da biblioteca user32. Veja o código abaixo:

Declaração Global da Função e Constantes

Global Declare Function SetSysColors Lib "user32" _
    (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long

' Constantes de cores do sistema
Public Const COLOR_ACTIVECAPTION = 2 ' Barra de título ativa
Public Const COLOR_INACTIVECAPTION = 3 ' Barra de título inativa

Aplicação no Formulário

Dentro do evento de carregamento do formulário (Form_Load), chamamos a função para alterar a cor da barra de título:

Private Sub Form_Load()
    Dim result As Long
    result = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(100, 0, 0)) ' Define a cor para vermelho escuro
End Sub

Explicação do Código

1. Declaração da API: Importamos a função SetSysColors para permitir a modificação das cores do sistema.
2. Definição das Constantes: Utilizamos COLOR_ACTIVECAPTION para alterar a cor da barra de título ativa.
3. Chamada da Função: Dentro do Form_Load, chamamos SetSysColors, definindo a cor como RGB(100, 0, 0), um tom de vermelho escuro.

Considerações

• Essa alteração afeta todo o sistema operacional e não apenas o formulário do aplicativo.
• Para restaurar a cor original, é necessário reiniciar o sistema ou redefinir manualmente as cores do Windows.

Conclusão

Agora você sabe como personalizar a cor da barra de título no Visual Basic utilizando a API do Windows. Essa técnica pode ser útil para criar uma interface mais atrativa e personalizada para seus projetos.