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

在 2018年7月29日2018年7月29日上张贴由易语言源码大全发表回复

资源介绍：

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

资源作者：

资源界面：

.版本 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) ' 释放资源

资源下载：