.版本 2 .子程序 _画板1_绘画 .参数 重画区左边, 整数型 .参数 重画区上边, 整数型 .参数 重画区右边, 整数型 .参数 重画区下边, 整数型 .局部变量 图形, GP图形 .局部变量 画刷, GP线性渐变画刷 .局部变量 矩形, 矩形F .局部变量 填充矩形, 矩形F 图形.创建自DC (画板1.取设备句柄 ()) 图形.清除 () 矩形 ＝ 制矩形F (10, 10, 200, 150) 填充矩形 ＝ 制矩形F ((矩形.左边 ＋ 矩形.宽度) ÷ 8, (矩形.顶边 ＋ 矩形.高度) ÷ 8, 矩形.宽度 ÷ 4, 矩形.高度 ÷ 4) 画刷.创建自矩形 (填充矩形, RGB到ARGB (#红色), RGB到ARGB (#蓝色), #线性渐变模式_从左到右) 图形.填充矩形 (画刷, 矩形.左边, 矩形.顶边, 矩形.宽度, 矩形.高度) 画刷.销毁 () 图形.变形平移 (0, 矩形.顶边 ＋ 矩形.高度) 画刷.创建自矩形 (填充矩形, RGB到ARGB (#红色), RGB到ARGB (#蓝色), #线性渐变模式_从上到下) 图形.填充矩形 (画刷, 矩形.左边, 矩形.顶边, 矩形.宽度, 矩形.高度) 画刷.销毁 () 图形.变形平移 (矩形.左边 ＋ 矩形.宽度, 0) 画刷.创建自矩形 (填充矩形, RGB到ARGB (#红色), RGB到ARGB (#蓝色), #线性渐变模式_从左上到右下) 图形.填充矩形 (画刷, 矩形.左边, 矩形.顶边, 矩形.宽度, 矩形.高度) 画刷.销毁 () 图形.变形平移 (0, －(矩形.高度 ＋ 矩形.顶边)) 画刷.创建自矩形 (填充矩形, RGB到ARGB (#红色), RGB到ARGB (#蓝色), #线性渐变模式_从右上到左下) 图形.填充矩形 (画刷, 矩形.左边, 矩形.顶边, 矩形.宽度, 矩形.高度) 画刷.销毁 ()