|
刚学gidplus好多命令不会
.版本 2
.程序集 窗口程序集_窗口1
.子程序 _窗口1_创建完毕
Gdiplus初始化 ()
' 画直线 () ' 这里为什么不会在窗口创建后显示画好的直线,调用是显示执行了 。。。。。。。。。。。。。。。。1?
一起画 () ' 这里为什么也不行。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。2??
' 而点击按钮为什么就可以显示出来画好的直线。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。3???
' 请问如何在窗口后执行子程序 画直线() 进行初始化界面样式
' 论坛有个画折线图的例子,用返回字节集的返回置入图片框.图片=画直线() 这个方式不考虑,一个是后期字节集太大一个是用画板高度32627后期也不够要分页处理
' 不要用画板画,就是因为锯齿转gdiplus
.子程序 画直线, , 公开
.局部变量 位图, GP位图
.局部变量 图形, GP图形
.局部变量 字体, GP字体
.局部变量 文本格式, GP文本格式
.局部变量 画刷, GP线性渐变画刷
.局部变量 字体刷, GP纯色画刷
.局部变量 画笔, GP画笔
.局部变量 矩形, 矩形F
' 变量不要理会多少,复制过来的,用不上就用不上
图形.创建自窗口句柄 (画板1.取窗口句柄 ())
图形.清除 ()
画笔.创建自颜色 (RGB到ARGB (#红色), 5)
图形.画直线 (画笔, 0, 20, 400, 20)
图形.销毁 ()
信息框 (“我执行了子程序画直线”, 0, , )
返回 ()
.子程序 画文本, , 公开
.局部变量 位图, GP位图
.局部变量 图形, GP图形
.局部变量 字体, GP字体
.局部变量 文本格式, GP文本格式
.局部变量 画刷, GP线性渐变画刷
.局部变量 字体刷, GP纯色画刷
.局部变量 画笔, GP画笔
.局部变量 矩形, 矩形F
' 变量不要理会多少,复制过来的,用不上就用不上
图形.创建自窗口句柄 (画板1.取窗口句柄 ())
' 图形.清除 ()
字体.创建自名称 (“微软雅黑”, 12)
字体刷.创建 (RGB到ARGB (#白色))
文本格式.创建自通用默认 ()
文本格式.置行对齐 (#文本对齐_居中)
画笔.创建自颜色 (RGB到ARGB (取颜色值 (88, 88, 88)), 1)
矩形 = 制矩形F (0, 0, 1, 1)
画刷.创建自矩形 (矩形, RGB到ARGB (#红色), RGB到ARGB (#红色), )
图形.画文本 (“如何调用显示?”, 字体, 画刷, 制矩形F (26, 23, 200, 40), 文本格式)
字体.销毁 ()
字体刷.销毁 ()
文本格式.销毁 ()
画笔.销毁 ()
字体.销毁 ()
图形.销毁 ()
返回 ()
.子程序 _按钮1_被单击
画直线 ()
返回 ()
.子程序 _按钮2_被单击
画文本 ()
返回 ()
.子程序 一起画
画直线 ()
画文本 ()
返回 ()
补充内容 (2023-9-25 01:42):
3楼例子下载和1楼一样的 |
|