Ejemplos usando el Api de windows para Visual basic

248 - Api GetSysColor y SetSysColors

Funciones del Api para obtener los colores del sistema y también poder modificarlos

Este simple ejemplo , cambia mediante la función SetSysColors, el color de las opciones en la apariencia de windows, en este caso del menú desplegable.

Es decir el menú se verá con el siguiente color :

Anteriormente, antes de cambiar el color, se guarda en una variable o array el valor actual de todas las opciones, para poder reestablecerlo al descargar el form , con la Api GetSysColor

Para cambiar el color, se indica en el segundo parámetro de la función SetSysColor , la opción a cambiar. Estas opciones están indicadas en constantes ( Cara del botón, texto del botón, borde activo, barra de título activa, texto del menú, Background , sombras, fondo de la ventana, etc..).

Y el tercer parámetro es el color. Por ejemplo para cambiar el color de la ventana en windows

SetSysColors 1, COLOR_WINDOW, Color

Nota: al descargar el formulario, hacerlo con el botón cerrar para que se ejecute el Unload Form , y se puedan reestaurar los valores previos

Código fuente en el formulario

Option Explicit Private Sub Form_Load() ' guarda los valores para luego reestaurarlos al descargar el formulario Dim i As Long For i = 0 To 20 TColor.SelectColor(i) = GetSysColor(i) Next MsgBox "Ver el menú contextual de windows. " & _ "Luego descargar el form con el botón cerrar, No ,con el stop", 32 ' cambia Call Cambiar(COLOR_MENU, &HFFC0C0) End Sub Private Sub Form_Unload(Cancel As Integer) ' Reestablece Call Reestablecer End Sub

Código fuente en un módulo

Option Explicit ' funciones Api ''''''''''''''''''''''''''''''''''''''' ' aplica los cambios : Cambia el color ''''''''''''''''''''''''''''''''''''''' Public Declare Function SetSysColors Lib "user32" ( _ ByVal nChanges As Long, _ lpSysColor As Long, _ lpColorValues As Long) As Long ' recupera los colores Public Declare Function GetSysColor Lib "user32" ( _ ByVal nIndex As Long) As Long ' constantes para los objetos de windows _ ( texto de la ventana, texto de menu , de la barra de titulo etc..) Enum OPCION COLOR_SCROLLBAR = 0 COLOR_BACKGROUND = 1 COLOR_ACTIVECAPTION = 2 COLOR_INACTIVECAPTION = 3 COLOR_MENU = 4 COLOR_WINDOW = 5 COLOR_WINDOWFRAME = 6 COLOR_MENUTEXT = 7 COLOR_WINDOWTEXT = 8 COLOR_CAPTIONTEXT = 9 COLOR_ACTIVEBORDER = 10 COLOR_INACTIVEBORDER = 11 COLOR_APPWORKSPACE = 12 COLOR_HIGHLIGHT = 13 COLOR_HIGHLIGHTTEXT = 14 COLOR_BTNFACE = 15 COLOR_BTNSHADOW = 16 COLOR_GRAYTEXT = 17 COLOR_BTNTEXT = 18 COLOR_INACTIVECAPTIONTEXT = 19 COLOR_BTNHIGHLIGHT = 20 COLOR_2NDACTIVECAPTION = 27 COLOR_2NDINACTIVECAPTION = 28 End Enum ' type para almacenar los valores Public Type ColorSystem SelectColor(0 To 20) As Long End Type Public TColor As ColorSystem Public Sub Cambiar(LaOpcion As OPCION, Color As Long) Dim ret As Long ' cambia ret = SetSysColors(1, LaOpcion, Color) End Sub Sub Reestablecer() Dim i As Long Dim ret As Long For i = 0 To 20 ' Reestablece el valor anterior ret = SetSysColors(1, i, TColor.SelectColor(i)) Next End Sub

Buscar en Recursos vb