易语言GDI+例程 学习画笔应用

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 标志, 整数型
.程序集变量 g, GP图形
.程序集变量 笔, GP画笔
.程序集变量 画刷, GP纯色画刷
.程序集变量 矩形, 小数型, , "0"

.子程序 _按钮1_被单击

画刷.创建 (RGB到ARGB (#白色))
g.填充矩形 (画刷, 0, 0, 宽度, 高度)
笔.创建自颜色 (RGB到ARGB (#黑色), 10)
笔.置虚线类型 (#画笔样式1_点点划线)
g.画直线 (笔, 30, 30, 300, 30)
笔.置虚线类型 (#画笔样式1_实线)
g.画直线 (笔, 30, 60, 300, 60)
笔.置虚线类型 (#画笔样式1_点线)
g.画直线 (笔, 30, 90, 300, 90)
笔.置虚线类型 (#画笔样式1_点划线)
g.画直线 (笔, 30, 120, 300, 120)

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

Gdiplus关闭 (标志)

.子程序 _按钮2_被单击

画刷.创建 (RGB到ARGB (#白色))
g.填充矩形 (画刷, 0, 0, 宽度, 高度)
笔.创建自颜色 (RGB到ARGB (#红色), 1)
矩形 ＝ { 15, 5, 10, 5 }
笔.置虚线格式 (矩形)
g.画矩形 (笔, 10, 10, 80, 100)

.子程序 __启动窗口_创建完毕

标志 ＝ Gdiplus初始化 ()
g.创建自窗口句柄 (取窗口句柄 ())

@spctomp