为编程爱好者分享易语言教程源码的资源网
好用的代理IP,游戏必备 ____广告位招租____ 服务器99/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器
好用的代理IP,游戏必备 ____广告位招租____ 服务器低至38/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器

网站首页 > 易语言相关 > 图形图像源码 正文

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

三叶资源网 2018-07-31 22:26:38 图形图像源码 2607 ℃ 12 评论

资源介绍:

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

资源作者:

@易语言源码大全

资源界面:

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

资源下载:

文件下载

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网⑤群:21414575

已有12位网友发表了看法:

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网⑤群:三叶资源网⑤群

网站分类
随机tag
下载链接解析WEBQQ登录支付宝进度复制文件bitmapECC模块源码WinHttp类WebSocket ClientJson助手Shell外壳编程工厂模式socks4udp协议易语言直尺工具源码支持库源码文件内容穿透搜索替换工具音遇语音报时多线程特训班FFmpeg
最新评论