Ejemplos usando el Api de windows para Visual basic

273 - OleTranslateColor

Muchas veces puede ser necesario, a partir de un color de sistema, obtener su equivalente valor en otro formato como RGB o un valor Long. Este ejemplo utiliza la función de windows OleTranslateColor para convertir algunos valores de color del sistema en formato Hexadecimal, en su equivalente en formato Long.

Ejemplo : Colocar un control ListBox para cargar algunos colores.

Código fuente

Option Explicit ' -- Declaraciones Private Declare Function OleTranslateColor _ Lib "OLEPRO32.DLL" ( _ ByVal OLE_COLOR As Long, _ ByVal HPALETTE As Long, _ pccolorref As Long) As Long ' -- si la función falla devuelve este valor Private Const CLR_INVALID = -1 ' -- Función que recibe el color y lo convierte con OleTranslateColor ' ---------------------------------------------------------------------------- Private Function TranslateColor( _ ByVal lColor As OLE_COLOR, _ Optional hPal As Long = 0) As Long If OleTranslateColor(lColor, hPal, TranslateColor) Then TranslateColor = CLR_INVALID End If End Function ' -- Cargar valores al listbox ' ---------------------------------------------------------------------------- Private Sub Form_Load() With List1 .AddItem "Cara del botón" .AddItem "Sombra del botón" .AddItem "Escritorio" .AddItem "Color de resalte" .AddItem "Borde inactivo" .AddItem "Fondo de la ventana" .AddItem "Color del texto de la ventana" .AddItem "Información sobre herramientas" .AddItem "Texto deshabilitado" .AddItem "Espacio de trabajo de la aplicación" End With End Sub ' -- Convertir el color al hacer clic en el item ' ---------------------------------------------------------------------------- Private Sub List1_Click() ' -- Color de retorno Dim lColor As Long With List1 ' -- Pasar los valores de color de sistema en formato ' -- hexadecimal para retornarlos como Long Select Case List1.ListIndex Case 0: lColor = TranslateColor(&H8000000F) Case 1: lColor = TranslateColor(&H80000010) Case 2: lColor = TranslateColor(&H80000001) Case 3: lColor = TranslateColor(&H8000000D) Case 4: lColor = TranslateColor(&H8000000B) Case 5: lColor = TranslateColor(&H80000005) Case 6: lColor = TranslateColor(&H80000008) Case 7: lColor = TranslateColor(&H80000018) Case 8: lColor = TranslateColor(&H80000011) Case 9: lColor = TranslateColor(&H8000000C) End Select End With ' -- Asignar el valor al backcolor del form Me.BackColor = lColor End Sub

Recursos vb - Relacionados

Convertir colores a RGB

Buscar en Recursos vb