GDI画矩形，画圆形，画直线。的问题= =

jiesansi · 发表于 2020-4-8 14:12:09

.版本 2

.子程序 _画板1_鼠标位置被移动, 逻辑型
.参数横向位置, 整数型
.参数纵向位置, 整数型
.参数功能键状态, 整数型

.判断开始 (鼠标状态＝ 1)
.判断开始 (画图类型＝ 1)

      id ＝ LoadCursorFromFile (“pen.cur”)
      指针＝ SetClassLong (画板1.取窗口句柄 (), -12, id)
      内存图形.画直线 (画笔, 坐标.x, 坐标.y, 横向位置, 纵向位置)
      内存图形.置平滑模式 (#平滑模式_抗锯齿)
      内存图形.置平滑模式 (#平滑模式_最佳质量)
      ' 本源码来自易语言zy网(www.eyuyan.la)

      .判断开始 (横向位置＞ 10000)
         ' ===============还有一种笨办法就是下面这段每次画线增加一点==============================
         .判断开始 (组合框1.现行选中项＝ 0)
            坐标.x ＝横向位置
            坐标.y ＝纵向位置

         .默认

            .判断开始 (坐标.x ＜横向位置)
                  坐标.x ＝横向位置－ 1
            .判断 (坐标.x ＞横向位置)
                  坐标.x ＝横向位置＋ 1
            .默认

                  坐标.x ＝横向位置
            .判断结束

            .判断开始 (坐标.y ＜纵向位置)
                  坐标.y ＝纵向位置－ 1
            .判断 (坐标.y ＞纵向位置)
                  坐标.y ＝纵向位置＋ 1
            .默认

                  坐标.y ＝纵向位置
            .判断结束
            ' 本源码来自易语言zy网(www.eyuyan.la)
         .判断结束
         ' ===============================================
      .默认

      .判断结束

      坐标.x ＝横向位置
      坐标.y ＝纵向位置

      内存图形.复制 (内存图形.获取mdc (), cj, 0, 0, 0, 0, 画板1.宽度, 画板1.高度, #光栅运算_复制)
.判断 (画图类型＝ 2)
      内存图形.画直线 (画笔2, 坐标.x, 坐标.y, 横向位置, 纵向位置)
      内存图形.置平滑模式 (#平滑模式_抗锯齿)
      内存图形.置平滑模式 (#平滑模式_最佳质量)
      坐标.x ＝横向位置
      坐标.y ＝纵向位置
      内存图形.复制 (内存图形.获取mdc (), cj, 0, 0, 0, 0, 画板1.宽度, 画板1.高度, #光栅运算_复制)

      ' 橡皮没有写自己加
.判断 (画图类型＝ 3)

.判断 (画图类型＝ 4)

.判断 (画图类型＝ 5)

.默认

.判断结束

.默认

.判断结束
SetClassLong (画板1.取窗口句柄 (), -12, 指针)

.子程序 _画板1_鼠标左键被放开, 逻辑型
.参数横向位置, 整数型
.参数纵向位置, 整数型
.参数功能键状态, 整数型

.判断开始 (画图类型＝ 4)
内存图形.画矩形 (画笔, 坐标.x, 坐标.y, 取鼠标水平位置 (), 取鼠标垂直位置 ())
坐标.x ＝横向位置
坐标.y ＝纵向位置
内存图形.复制 (内存图形.获取mdc (), cj, 0, 0, 0, 0, 画板1.宽度, 画板1.高度, #光栅运算_复制)
.默认

.判断结束

鼠标状态＝ 0

使用gdi画矩形的时候，矩形总是会偏移。而且是在松开鼠标之后显示出来。我把命令放到鼠标移动里面，就会出现很多。
直线、圆形。我成功的被坐标搞懵了。。。求解吧。

我最终想要达到的目的是画矩形的时候，能在鼠标移动的时候，看到矩形的大小变化，鼠标松开之后，矩形固定，并且只有一个矩形。直线和圆形。也是这样。。。。

飞羽软件 · 发表于 2020-4-8 14:28:01

改这个费时间，你应该把悬赏设置高点，还要吧源码文件发上来，应该有人帮你改了

jiesansi · 发表于 2020-4-8 14:35:36

[e=1].版本 2
.支持库 iext
.支持库 shell
.支持库 spec

.程序集窗口程序集1
.程序集变量画图类型, 整数型
.程序集变量坐标, 坐标F
.程序集变量内存图形, GP内存图形
.程序集变量 cj, 整数型
.程序集变量画笔, GP画笔
.程序集变量鼠标状态, 整数型
.程序集变量画**GP纯色画**
.程序集变量画笔2, GP画笔
.程序集变量 B, 整数型
.程序集变量 id, 整数型
.程序集变量句柄, 整数型
.程序集变量指针, 整数型

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

位置＝ 3
图片框1.图片＝ #图片01
工具条1.加入状态 (0, 1)
_工具条1_被单击 (0)
画板1.画板背景色＝ 2443011
.如果 (文件是否存在 (取特定目录 (3) ＋ “\截图”) ＝假)
创建目录 (取特定目录 (3) ＋ “\截图”)
调试输出 (“已创建”)
.否则
调试输出 (“已创建”)
返回 ()
.如果结束

GDI图层建立 ()
' 本源码来自易语言zy网(www.eyuyan.la)

.子程序 GDI图层建立

Gdiplus初始化 ()
内存图形.创建 (画板1.宽度, 画板1.高度)
cj ＝ API_GetDC (画板1.取窗口句柄 ())
画笔.创建自颜色 (RGB到ARGB (#黑色), 组合框1.现行选中项＋ 1)
' 画笔加线帽就可以了
画笔.置线帽 (#线帽样式_圆线帽, #线帽样式_圆线帽, #线帽样式_圆线帽)
画笔2.创建自颜色 (RGB到ARGB (#白色), 10)
画**唇

ManNanIsMe · 发表于 2020-4-8 14:45:09

OK 来了达到你的要求了应该~~~~~

jiesansi · 发表于 2020-4-8 14:56:17

ManNanIsMe 发表于 2020-4-8 14:45
OK 来了达到你的要求了应该~~~~~

gdi手写板.e (380.3 KB, 下载次数: 27)

lifeqiuzhi5201 · 发表于 2020-4-8 16:40:53

内容这么多，我看了下，没啥问题

jiesansi · 发表于 2020-4-8 16:43:35

lifeqiuzhi5201 发表于 2020-4-8 16:40
内容这么多，我看了下，没啥问题

= = 没问题我就不会发这个了啊

jiesansi · 发表于 2020-4-9 09:43:14

尝试了另外一种办法。给终点坐标也赋值。但是如图一样。同样是鼠标单击一次。越往右下角圆越大，越往左上角圆越小。并且生成的圆和鼠标位置有偏移。是往右下角偏

lifeqiuzhi5201 · 发表于 2020-4-10 10:33:09

这个功能在看雪平台上面有，你可以去看看

jiesansi · 发表于 2020-4-10 11:12:56

lifeqiuzhi5201 发表于 2020-4-10 10:33
这个功能在看雪平台上面有，你可以去看看

木有找到。。。。能给个连接不。。。

		自动登录	找回密码
密码			注册

[求助] GDI画矩形，画圆形，画直线。的问题= =