Ejemplos usando el Api de windows para Visual basic

26 - Cuadro de diálogo Seleccionar color de windows con el Api CHOOSECOLOR

Este ejemplo muestra como utilizar la función Api de windows CHOOSECOLOR , para llamar al cuadro de diálogo que permite seleccionar un color.

Vista del cuadro de diálogo Seleccionar color

Ejemplo de como llamar mediante el Api CHOOSECOLOR el cuadro de dialogo de windows para seleccionar un color

La función lleva como parámetro una estructura llamada igual que la función, es decir un Type llamado CHOOSECOLOR para configurar y establecer las opciones del mismo

La función Api cuando es llamada, retorna un valor de tipo Long con el color seleccionado. Si se eligió Cancelar devuelve el valor -1. También podemos visualizar el cuadro de diálogo clásico-Normal o el completo como el que está en la imagen, para eso se debe pasar en la variable Flags de la estructura el valor 2, si queremos el normal o clásico se le pasa un 0. Lo demás está mas o menos comentado en el código.

Nota: Al final de la página , hay otros ejemplos de commonDialog para visual basic

Código fuente en un formulario con un commandButton

' Función Api CHOOSECOLOR Private Declare Function CHOOSECOLOR Lib "comdlg32.dll" Alias "ChooseColorA" ( _ pChoosecolor As CHOOSECOLOR) As Long ' Estructura CHOOSECOLOR para configurar el cuadro de diálogo Private Type CHOOSECOLOR lStructSize As Long hwndOwner As Long hInstance As Long rgbResult As Long lpCustColors As String flags As Long lCustData As Long lpfnHook As Long lpTemplateName As String End Type Private Function Abrir_CommonDialog_Color() As Long ' Array de tipo Byte dinámico Dim CustomColors() As Byte ' Variable para utilizar la estructura Dim cc As CHOOSECOLOR 'array de tipo Long Dim Custcolor(16) As Long 'Variable de retorno Dim lReturn As Long 'Establecemos el tamaño de la extructura cc.lStructSize = Len(cc) 'Le pasamos el hwnd del form a cc cc.hwndOwner = Me.hWnd 'Establecemos la instancia de nuestra aplicación a cc.Hinstance cc.hInstance = App.hInstance 'Establecemos los colores convertidos a Unicode cc.lpCustColors = StrConv(CustomColors, vbUnicode) 'El flag a 0 dialogo normal, en 2 dialogo completo cc.flags = 2 'Mostramos el Cuadro de diálogo If CHOOSECOLOR(cc) <> 0 Then 'Retornamos a nuestra función el valor elegido Abrir_CommonDialog_Color = cc.rgbResult 'Para los colores personalizados CustomColors = StrConv(cc.lpCustColors, vbFromUnicode) Else Abrir_CommonDialog_Color = -1 End If End Function Private Sub Command1_Click() Dim El_Color As Long 'La variable El_Color almacenará el color en formato Long 'del color elegido. Si no se eligió ninguno retornamos desde 'la función el valor -1, si no establecemos el color defondo 'del form pasandole el valor devuelto por la función ' llamamos al cuadro diálogo Seleccionar Color El_Color = Abrir_CommonDialog_Color If El_Color <> -1 Then ' establecemos el color de fondo del Form con el color seleccionado Me.BackColor = El_Color Else MsgBox "Se canceló ", vbInformation End If End Sub Private Sub Form_Load() Command1.Caption = " Seleccionar Color " End Sub

Otros Recursos Visual basic 6.0

Página con ejemplos varios relacionados a los cuadros de diálogo de windows

Buscar en Recursos vb