Функция ChooseColor

Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As CHOOSECOLOR) As Long

Платформа

ChooseColor открывает стандартное окно Общего диалога для выбора цвета. Вся необходимая информация для создания диалогового окна,хранится в структурной базе данных в виде pChoosecolor.

Возвращаемое значение

В случае возникновения ошибки или при нажатии пользователем кнопки Отмена,функция возвращает 0 (пользуйтесь CommDlgExtendedError для получения кода ошибки). В успешном случае функция возвращает значение, отличное от нуля.

Параметры

pChoosecolor
Вся необходимая информация для создания диалогового окна.

Пример

' Показываем общее диалоговое окно
'для выбора цвета.  Задний фон формы Form1
' будет установлен в соответствии с выбранным цветом.

'код для General Declarations
Dim CustomColors() As Byte
'код для кнопки Command1
Dim cc As CHOOSECOLOR ' структура для передачи данных
Dim Custcolor(16) As Long  ' содержит список 16 цветов
Dim lReturn As Long ' возвращаемое значение
cc.lStructSize = Len(cc)
    cc.hwndOwner = frmMain.hWnd
    cc.hInstance = App.hInstance
    cc.lpCustColors = StrConv(CustomColors, vbUnicode)
    cc.flags = 0
    
    lReturn = CHOOSECOLOR(cc)
    If lReturn <> 0 Then
' Открываем диалоговое окно. 
' Если пользователь выбрал цвет, устанавливаем цвет фона формы.
        frmMain.BackColor = Str$(cc.rgbResult)
        CustomColors = StrConv(cc.lpCustColors, vbFromUnicode)
    Else
        Exit Sub
    End If

Категория
Общий диалог

В начало.