一段列程:
long red, green, blue
long custom[ ]
integer li_color
string ls_color
red = 255
custom[1]=rgb(red, 200, blue)
custom[2]=8344736
li_color = ChooseColor( red, custom [ ] )
if li_color =1 then
ls_color=string(red)//red为返回选择的颜色值
dw_3.Modify(is_currentobject+".color='"+ls_color+"'")
end if
Description
Displays the standard color selection dialog box.
Syntax
ChooseColor ( color {, customcolors [ ] } )
Argument Description
color A long passed by reference that represents the color selected in the dialog box
customcolors (optional) A long array of custom colors passed by reference to the color selection dialog box