易语言画笔连线方式源码

资源介绍：

源码调用了GDIPlus模块，实现了GDI画笔连线方式。

资源作者：

@易语言源码大全

资源界面：

.版本 2

.程序集 窗口程序集1
.程序集变量 集画笔, GP画笔
.程序集变量 集图形, GP图形
.程序集变量 集字体, GP字体
.程序集变量 集画刷, GP纯色画刷
.程序集变量 集坐标, 坐标F, , "3"

.子程序 _窗口1_创建完毕

Gdiplus初始化 ()
集画笔.创建自颜色 (RGB到ARGB (#黄褐), 20)
集图形.创建自窗口句柄 (画板2.取窗口句柄 ())
集字体.创建自名称 (“宋体”, 12)
集画刷.创建 (RGB到ARGB (#红色))
集坐标 [1].x ＝ 90
集坐标 [1].y ＝ 80
集坐标 [2].x ＝ 240
集坐标 [2].y ＝ 30
集坐标 [3].x ＝ 240
集坐标 [3].y ＝ 80
集画笔.置斜接限制 (0)

.子程序 _窗口1_将被销毁

Gdiplus关闭 ()

.子程序 _画板1_绘画
.参数 重画区左边, 整数型
.参数 重画区上边, 整数型
.参数 重画区右边, 整数型
.参数 重画区下边, 整数型
.局部变量 hdc, 整数型
.局部变量 图形, GP图形
.局部变量 画笔, GP画笔
.局部变量 字体, GP字体
.局部变量 画刷, GP纯色画刷
.局部变量 坐标, 坐标F, , "3"

hdc ＝ 画板1.取设备句柄 ()
图形.创建自DC (hdc)
画笔.创建自颜色 (RGB到ARGB (#红色), 20)
坐标 [1].x ＝ 90
坐标 [1].y ＝ 80
坐标 [2].x ＝ 240
坐标 [2].y ＝ 30
坐标 [3].x ＝ 240
坐标 [3].y ＝ 80
字体.创建自名称 (“宋体”, 12)
画刷.创建 (RGB到ARGB (#红色))
图形.画文本 (“连线方式：”, 字体, 画刷)
画笔.置连线方式 (#连线方式_斜接)  ' 默认
图形.画多边形 (画笔, 坐标)
图形.变形平移 (0, 80)
画笔.置连线方式 (#连线方式_斜角)
图形.画多边形 (画笔, 坐标)
图形.变形平移 (0, 80)
画笔.置连线方式 (#连线方式_圆角)
图形.画多边形 (画笔, 坐标)

.子程序 _画板2_绘画
.参数 重画区左边, 整数型
.参数 重画区上边, 整数型
.参数 重画区右边, 整数型
.参数 重画区下边, 整数型

集图形.画文本 (“斜接限制：”, 集字体, 集画刷)
集图形.画多边形 (集画笔, 集坐标)

.子程序 _滑块条1_位置被改变

集画笔.置斜接限制 (滑块条1.位置 ÷ 10)
画板2.重画 ()

资源下载：