.版本 2 .程序集 窗口程序集1 .子程序 打开选择颜色对话框, 逻辑型 .参数 窗口句柄, 整数型 .参数 选择颜色, 整数型, 参考, 请提供变量 .局部变量 tChooseColour, CHOOSECOLOR tChooseColour.hwndOwner ＝ 窗口句柄 tChooseColour.flags ＝ 0 tChooseColour.lpCustColors ＝ 取空白文本 (15) tChooseColour.lStructSize ＝ 36 ' 本源码来自三叶资源网(www.sanye.cx) .如果真 (ShowColour (tChooseColour) ＝ 0) 返回 (假) .如果真结束 选择颜色 ＝ tChooseColour.rgbResult 返回 (真) .子程序 _按钮1_被单击 .局部变量 颜色, 整数型 .如果真 (打开选择颜色对话框 (取窗口句柄 (), 颜色)) 图片框1.背景颜色 ＝ 颜色 .如果真结束