易语言界面渐变模式源码

资源介绍：

源码调用了GDI+类模块，实现了渐变模式效果。

资源作者：

@易语言源码大全

资源界面：

.版本 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 (#蓝色), #线性渐变模式_从右上到左下)
图形.填充矩形 (画刷, 矩形.左边, 矩形.顶边, 矩形.宽度, 矩形.高度)
画刷.销毁 ()

资源下载：