资源介绍：
源码结合了易语言GDIPlus类模块，实现了渐变混合效果。
资源作者：
资源界面：
.版本 2
.子程序 新窗口过程, 整数型
.参数 hwnd, 整数型
.参数 msg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型
.局部变量 hdc, 整数型
.局部变量 PS, PAINTSTRUCT
.局部变量 图形, GP图形
.局部变量 画刷, GP线性渐变画刷
.局部变量 字体刷, GP纯色画刷
.局部变量 文本格式, GP文本格式
.局部变量 矩形, 矩形F
.局部变量 字体, GP字体
.判断开始 (msg ＝ #WM_PAINT)
hdc ＝ BeginPaint (hwnd, PS)
' =====================================代码开始
图形.创建自DC (hdc)
图形.清除 ()
字体.创建自默认字体 ()
字体刷.创建 (RGB到ARGB (#白色))
文本格式.创建 ()
文本格式.置对齐 (#文本对齐_居中)
文本格式.置行对齐 (#文本对齐_居中)
矩形 ＝ 制矩形F (30, 10, 250, 40)
' 原始
画刷.创建自矩形 (矩形, RGB到ARGB (#红色), RGB到ARGB (#蓝色))
图形.填充矩形 (画刷, 矩形.左边, 矩形.顶边, 矩形.宽度, 矩形.高度)
图形.画文本 (“原始”, 字体, 字体刷, 矩形, 文本格式)
' { 0, 0.5, 1 }, { 0, 0.5, 1 }' 本源码来自三叶资源网(www.sanye.cx)
矩形 ＝ 制矩形F (30, 矩形.顶边 ＋ 50, 250, 40)
画刷.置混合 ({ 0, 0.5, 1 }, { 0, 0.5, 1 })
图形.填充矩形 (画刷, 矩形.左边, 矩形.顶边, 矩形.宽度, 矩形.高度)
图形.画文本 (“{ 0, 0.5, 1 }, { 0, 0.5, 1 }”, 字体, 字体刷, 矩形, 文本格式)
' { 0, 0.5, 1 }, { 0, 0.2, 1 }
矩形 ＝ 制矩形F (30, 矩形.顶边 ＋ 50, 250, 40)
画刷.置混合 ({ 0, 0.5, 1 }, { 0, 0.2, 1 })
图形.填充矩形 (画刷, 矩形.左边, 矩形.顶边, 矩形.宽度, 矩形.高度)
图形.画文本 (“{ 0, 0.5, 1 }, { 0, 0.2, 1 }”, 字体, 字体刷, 矩形, 文本格式)
' { 0, 0.5, 1 }, { 0, 0.8, 1 }
矩形 ＝ 制矩形F (30, 矩形.顶边 ＋ 50, 250, 40)
画刷.置混合 ({ 0, 0.5, 1 }, { 0, 0.8, 1 })
图形.填充矩形 (画刷, 矩形.左边, 矩形.顶边, 矩形.宽度, 矩形.高度)
图形.画文本 (“{ 0, 0.5, 1 }, { 0, 0.8, 1 }”, 字体, 字体刷, 矩形, 文本格式)
' { 0, 0.2, 1 }, { 0, 0.5, 1 }
矩形 ＝ 制矩形F (30, 矩形.顶边 ＋ 50, 250, 40)
画刷.置混合 ({ 0, 0.2, 1 }, { 0, 0.5, 1 })
图形.填充矩形 (画刷, 矩形.左边, 矩形.顶边, 矩形.宽度, 矩形.高度)
图形.画文本 (“{ 0, 0.2, 1 }, { 0, 0.5, 1 }”, 字体, 字体刷, 矩形, 文本格式)
' { 0, 0.8, 1 }, { 0, 0.5, 1 }
矩形 ＝ 制矩形F (30, 矩形.顶边 ＋ 50, 250, 40) ' 本源码来自三叶资源网(www.sanye.cx)
画刷.置混合 ({ 0, 0.8, 1 }, { 0, 0.5, 1 })
图形.填充矩形 (画刷, 矩形.左边, 矩形.顶边, 矩形.宽度, 矩形.高度)
图形.画文本 (“{ 0, 0.8, 1 }, { 0, 0.5, 1 }”, 字体, 字体刷, 矩形, 文本格式)
' { 0, 0.2, 1 }, { 0, 0.2, 1 }
矩形 ＝ 制矩形F (30, 矩形.顶边 ＋ 50, 250, 40)
画刷.置混合 ({ 0, 0.2, 1 }, { 0, 0.2, 1 })
图形.填充矩形 (画刷, 矩形.左边, 矩形.顶边, 矩形.宽度, 矩形.高度)
图形.画文本 (“{ 0, 0.2, 1 }, { 0, 0.2, 1 }”, 字体, 字体刷, 矩形, 文本格式)
' { 0, 0.8, 1 }, { 0, 0.8, 1 }
矩形 ＝ 制矩形F (30, 矩形.顶边 ＋ 50, 250, 40)
画刷.置混合 ({ 0, 0.8, 1 }, { 0, 0.8, 1 })
图形.填充矩形 (画刷, 矩形.左边, 矩形.顶边, 矩形.宽度, 矩形.高度)
图形.画文本 (“{ 0, 0.8, 1 }, { 0, 0.8, 1 }”, 字体, 字体刷, 矩形, 文本格式)
' =====================================代码结束
EndPaint (hwnd, PS)
.默认
.判断结束
返回 (CallWindowProc (原过程, hwnd, msg, wParam, lParam))
资源下载：