GDI绘制三角板易语言源码

资源介绍：

GDI绘制三角板易语言源码，源码是易语言GDI学习的优秀源码。

资源作者：

@黑客源码

资源界面：

.版本 2

.程序集 窗口程序集1
.程序集变量 路径, GP路径, , "2"
.程序集变量 区域, GP区域
.程序集变量 图形, GP内存图形
.程序集变量 画笔, GP画笔
.程序集变量 刷子, GP纯色画刷
.程序集变量 hRgn, 整数型
.程序集变量 cj, 整数型
.程序集变量 坐标F, 坐标F, , "3"
.程序集变量 字体, GP字体

.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型

' 本源码来自三叶资源网(www.sanye.cx)
SetClassLong (_启动窗口.取窗口句柄 (), -26, 位或 (GetClassLong (_启动窗口.取窗口句柄 (), -26), 131072))
Gdiplus初始化 ()
cj ＝ API_GetDC (_启动窗口.取窗口句柄 ())
图形.创建 (500, 500)
刷子.创建 (RGB到ARGB (#天蓝))
图形.填充矩形 (刷子, 0, 0, 500, 500)
' 本源码来自三叶资源网(www.sanye.cx)
坐标F [1].x ＝ 0
坐标F [1].y ＝ 0
坐标F [2].x ＝ 500
坐标F [2].y ＝ 0
坐标F [3].x ＝ 500
坐标F [3].y ＝ 300
路径 [1].创建 ()
路径 [1].添加多边形 (坐标F)
区域.创建自路径 (路径 [1])
坐标F [1].x ＝ 205
坐标F [1].y ＝ 60
坐标F [2].x ＝ 440
坐标F [2].y ＝ 60
坐标F [3].x ＝ 440
坐标F [3].y ＝ 195
路径 [2].创建 ()
路径 [2].添加多边形 (坐标F)
区域.合并路径 (路径 [2], #合并模式_排除新区域)
hRgn ＝ 区域.取区域句柄 (图形)
画笔.创建自颜色 (RGB到ARGB (#青蓝), 2)
图形.画路径 (画笔, 路径 [1])
画笔.销毁 ()
' 本源码来自三叶资源网(www.sanye.cx)
画笔.创建自颜色 (RGB到ARGB (#黑色), 1)
字体.创建自名称 (“宋体”, 15, , )
刷子.销毁 ()
刷子.创建 (RGB到ARGB (#黑色))
.计次循环首 (12, i)

    图形.画直线 (画笔, 40 × i, 0, 40 × i, 10)

    图形.画直线 (画笔, 40 × i － 20, 0, 40 × i － 20, 5)

    图形.画文本 (到文本 (i), 字体, 刷子, 制矩形F (40 × i － 6, 12))

.计次循环尾 ()

.计次循环首 (7, i)
    图形.画直线 (画笔, 500, 40 × i, 490, 40 × i)

    图形.画直线 (画笔, 500, 40 × i － 20, 495, 40 × i － 20)
    ' 本源码来自三叶资源网(www.sanye.cx)
    图形.画文本 (到文本 (i), 字体, 刷子, 制矩形F (475, 40 × i － 6))

.计次循环尾 ()
SetWindowRgn (_启动窗口.取窗口句柄 (), hRgn, 真)
画笔.销毁 ()
刷子.销毁 ()
路径 [1].销毁 ()
路径 [2].销毁 ()

.子程序 _时钟1_周期事件

' 偷懒了
图形.复制 (图形.获取mdc (), cj, 0, 0, 0, 0, _启动窗口.宽度, _启动窗口.高度, #光栅运算_复制)

.子程序 __启动窗口_将被销毁

图形.销毁 ()
' 本源码来自三叶资源网(www.sanye.cx)
区域.销毁 ()
Gdiplus关闭 ()

资源下载：