如何使用API函数ChooseColor？

[chenhuijun]

我使用API函数 choosecolor,想出现颜色对话框。可是对于结构参数CHOOSECOLOR的初始化工作却百思不得其解。请教高手如何给这个函数赋初值，最好举例！

[chenhuijun]

↑

[946]

FUNCTION ulong ChooseColor(ref CHOOSECOLOR pChoosecolor) LIBRARY "comdlg32.dll" ALIAS FOR "ChooseColorA"
Function long LocalAlloc(long Flags, long Bytes) library "kernel32.dll"
Function long LocalFree(long MemHandle) library "kernel32.dll"
//调用
choosecolor str_choosecolor

str_choosecolor.lstructsize=4*9
str_choosecolor.hwndOwner=handle(this)
str_choosecolor.Flags=2
str_choosecolor.lpCustColors=LocalAlloc(0,4*16)
if choosecolor(str_choosecolor)=1 then
st_1.backcolor=str_choosecolor.rgbResult
end if
LocalFree(str_choosecolor.lpCustColors)

[chenhuijun]

thank you!结帐