MUDAR A COR DE UM FORM

EVERSON.PASETTO 17/09/2006 10:35:07
#171963
Bem digamos que eu tenha um Form, e coloco nele um botão, e quando eu clicar nele ele abra uma caixa de cores.

Assim:

Private Sub Cor_Click()
    img.ShowColor
End Sub



Mas como faço para que a o form receba a cor selecionada, e principalmente esta cor seja a cor padrão.

Ou seja digamos que o form seja amarelo, tá.

Eu executo o programa clico no botão Cores, seleciono na caixa de cor a cor Azul, ele muda para azul.

E eu fecho o programa, e quando executar ele novamente ele tem que estar na cor azul.

Isto é possivel fazer?????

Obrigado e até +
USUARIO.EXCLUIDOS 17/09/2006 11:50:46
#171972 Resposta escolhida
é sim, tente o seguinte código (img é um CommonDialog,né?):

Para alterar a cor:
Private Sub Cor_Click()
On Error GoTo Erro:
  img.CancelError = True 'Dará erro se cancelar
  img.ShowColor
  Me.BackColor = img.Color 'To sem VB, verifique se é Color a propriedade mesmo
  SaveSetting App.CompanyName, App.Title, "Cor", Me.BackColor 'Salva a cor selecionado nos registros do windows
Erro:
'Se veio prá cá direto é pq deu erro
err.Clear
End Sub


Agora no Form_Load vc recupera a cor:
Private Sub Form_Load()
  'Aqui vc restaura a cor dos registros do windows,
  'caso não tenha nenhuma cor salva ele pega a cor atual do form, ou seja,
  'não muda...
  Me.BackColor = GetSetting(App.CompanyName, App.Title, "Cor", Me.BackColor)
End Sub


é isso aí, qualquer dúvida poste...flw
Tópico encerrado , respostas não são mais permitidas
Voltar