USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  formulários ficaram coloridos.
Walace
IPATINGA
MG - BRASIL
Postada em 10/05/2004 11:41 hs            
Olá galera do VBWEB!
Estou com um probleminha, usei os codigos abaixo (Peguei os códigos aqui no site) em um projeto no VB6 depois disso todos os meus formulários ficaram coloridos mesmo se eu inicia um novo projeto ele vem coloridos. Como faço para voltar a cor padrão dos mesmos.
 
(Forms/MDI)
Título da Dica:  Trocar a cor da barra do form
Postada em 9/9/2003 por The Matrix
 
 
 
Global
Declare Function SetSysColors Lib "user32"_
(ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long
Public Const COLOR_SCROLLBAR = 0 'The Scrollbar colour
Public Const COLOR_BACKGROUND = 1 'Colour of the background with no wallpaper
Public Const COLOR_ACTIVECAPTION = 2 'Caption of Active Window
Public Const COLOR_INACTIVECAPTION = 3 'Caption of Inactive window
Public Const COLOR_MENU = 4 'Menu
Public Const COLOR_WINDOW = 5 'Windows background
Public Const COLOR_WINDOWFRAME = 6 'Window frame
Public Const COLOR_MENUTEXT = 7 'Window Text
Public Const COLOR_WINDOWTEXT = 8 '3D dark shadow (Win95)
Public Const COLOR_CAPTIONTEXT = 9 'Text in window caption
Public Const COLOR_ACTIVEBORDER = 10 'Border of active window
Public Const COLOR_INACTIVEBORDER = 11 'Border of inactive window
Public Const COLOR_APPWORKSPACE = 12 'Background of MDI desktop
Public Const COLOR_HIGHLIGHT = 13 'Selected item background
Public Const COLOR_HIGHLIGHTTEXT = 14 'Selected menu item
Public Const COLOR_BTNFACE = 15 'Button
Public Const COLOR_BTNSHADOW = 16 '3D shading of button
Public Const COLOR_GRAYTEXT = 17 'Grey text, of zero if dithering is used.
Public Const COLOR_BTNTEXT = 18 'Button text
Public Const COLOR_INACTIVECAPTIONTEXT = 19 'Text of inactive window
Public Const COLOR_BTNHIGHLIGHT = 20 '3D highlight of button
Form
result = SetSysColors(1, COLOR_ACTIVECAPTION, RGB(100, 0, 0))
 

Renato Sanches
     
Ama
Pontos: 2843
UBERLÂNDIA
MG - BRASIL
Postada em 11/05/2004 00:25 hs         
Procure por um pc com sistema operacional igual ao seu e use
col& = GetSysColor(COLOR_ACTIVECAPTION), col& será a cor  original
entao use no seu PC
result = SetSysColors(1, COLOR_ACTIVECAPTION, col&)
Deve resolver problema.
E aqui vai meu protesto quem passar um "DICA" INFORME OS PRÓS E OS CONTRAS
POIS AQUI NEM TODOS CONHECEM A FUNDO TODAS ARTIMANHAS DA PROGRAMAÇÃO
PRINCIPALMENTE EM WINDOWS 'APIs".
desculpem-me mas este tipo de ajuda me faz ferver de raiva tive de gritar para relaxar!!!!!!!
     
Walace
IPATINGA
MG - BRASIL
Postada em 13/05/2004 20:52 hs            
Valeu pela dica amigo. deu certo mesmo! :-)
     
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página