易语言图象操作之GDI画渐变矩形源码

资源介绍：

源码通过在一个大矩形中循环构造小矩形并使颜色进行渐变。

资源作者：

@易语言源码大全

资源界面：

.版本 2

.子程序 _按钮1_被单击
.局部变量 hWnd, 整数型, , , 窗口句柄
.局部变量 hDC, 整数型, , , 设备场景
.局部变量 Rect, RECT, , , 矩形
.局部变量 nColor, 整数型, , , 颜色值
.局部变量 nWidth, 整数型, , , 宽度
.局部变量 nHeight, 整数型, , , 高度
.局部变量 hBrush, 整数型, , , 画刷句柄
.局部变量 i, 整数型, , , 循环变量

hWnd ＝ 图片框1.取窗口句柄 ()
nWidth ＝ 图片框1.宽度
hDC ＝ GetDC (hWnd)
.计次循环首 (图片框1.宽度, i)
    Rect ＝ 构造矩形 (i － 1, 0, i, 图片框1.高度)
    nColor ＝ 取颜色值 (255 － MulDiv (i, 255, nWidth), 255 － MulDiv (i, 255, nWidth), 255 － MulDiv (i, 255, nWidth))
    hBrush ＝ CreateSolidBrush (nColor)  ' 创建画刷
    FillRect (hDC, Rect, hBrush)  ' 填充矩形
    DeleteObject (hBrush)  ' 删除画刷
.计次循环尾 ()
ReleaseDC (hWnd, hDC)  ' 释放资源

资源下载：