ChooseColor

機能

カラー選択ダイアログボックスを開く

Declare Function ChooseColor Lib "comdlg32"  _

	Alias "ChooseColorA" _

(lpcc As tagCHOOSECOLOR) As Long

Declare Function ChooseColor Lib "comdlg32"  _

	Alias "ChooseColorA" _

(lpcc As tagCHOOSECOLOR) As Integer

BOOL ChooseColor(
LPCHOOSECOLOR lpcc
);
引数
lpcc

tagCHOOSECOLOR構造体

戻り値

OKボタンを押したとき  0以外
     rgnResultに選択したカラー値が戻る

キャンセル or クローズのとき	0

サンプル

ダウンロード(ChooseColor.lzh 6.08KB)

Private Sub Command1_Click()
Dim lpcc As tagCHOOSECOLOR
Dim lColor As Long
Dim col(15) As Long
For a = 0 To 15
    col(a) = &HFFFFFF
Next

With lpcc
    .lStructSize = Len(lpcc)
    .hWndOwner = Me.hWnd
    lColor = &HFFFFFF
    .rgbResult = lColor
    .flags = CC_ANYCOLOR Or CC_ENABLEHOOK
    .lpCustColor = VarPtr(col(0))
    .hInstance = App.hInstance
    .lpfnHook = ChangeAddressOf(AddressOf TestProc)
End With
Call ChooseColor(lpcc)
End Sub