.版本 2 .程序集 窗口程序集_启动窗口 .子程序 取色 .参数 句柄 .参数 X .参数 Y .局部变量 颜色, 整数型 颜色 ＝ GetPixel (GetDC (句柄), X, Y) 连续赋值 (颜色, 底色, 标签1.背景颜色, 标签2.背景颜色, 标签3.背景颜色) 连续赋值 (颜色 ＋ 65535 ÷ 2, 标签1.文本颜色, 标签2.文本颜色, 标签3.文本颜色) 编辑框1.内容 ＝ 到文本 (颜色) 编辑框2.内容 ＝ 取十六进制文本 (颜色) 编辑框3.内容 ＝ “#” ＋ 到网页色 (颜色) .子程序 _图片框2_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 取色 (图片框2.取窗口句柄 (), 横向位置, 纵向位置) .子程序 _图片框1_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 取色 (图片框1.取窗口句柄 (), 横向位置, 纵向位置) .子程序 到网页色, 文本型 .参数 颜色值, 整数型 .局部变量 字节集, 字节集 字节集 ＝ 到字节集 (颜色值) 返回 (取文本右边 (“00” ＋ 取十六进制文本 (字节集 [1]), 2) ＋ 取文本右边 (“00” ＋ 取十六进制文本 (字节集 [2]), 2) ＋ 取文本右边 (“00” ＋ 取十六进制文本 (字节集 [3]), 2)) .子程序 __启动窗口_创建完毕