请教高手们一个关于易语言画线的问题。
我想做一个程序,功能是在鼠标的热点上画一条贯穿屏幕的十字线,十字线的交点会随鼠标同步移动。但我不知道如何清除上一次画的十字线,所以鼠标一动,整个屏幕上会显示很多线。请教各...
我想做一个程序,功能是在鼠标的热点上画一条贯穿屏幕的十字线,十字线的交点会随鼠标同步移动。但我不知道如何清除上一次画的十字线,所以鼠标一动,整个屏幕上会显示很多线。
请教各位高手,如何清除上一次的画线,使屏幕上只动态显示一个十字线? 展开
请教各位高手,如何清除上一次的画线,使屏幕上只动态显示一个十字线? 展开
1个回答
展开全部
.版本 2
.程序集 窗口程序集1
.子程序 _画板1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
画板1.画直线 (0, 纵向位置, 画板1.宽度, 纵向位置)
画板1.画直线 (横向位置, 0, 横向位置, 画板1.高度)
画板1.清除 (0, 0, 横向位置 - 1, 纵向位置 - 1)
画板1.清除 (0, 纵向位置 + 1, 横向位置 - 1, 画板1.高度 - 纵向位置)
画板1.清除 (横向位置 + 1, 0, 画板1.宽度 - 横向位置, 纵向位置 - 1)
画板1.清除 (横向位置 + 1, 纵向位置 + 1, 画板1.宽度 - 横向位置, 画板1.高度 - 纵向位置)
.程序集 窗口程序集1
.子程序 _画板1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
画板1.画直线 (0, 纵向位置, 画板1.宽度, 纵向位置)
画板1.画直线 (横向位置, 0, 横向位置, 画板1.高度)
画板1.清除 (0, 0, 横向位置 - 1, 纵向位置 - 1)
画板1.清除 (0, 纵向位置 + 1, 横向位置 - 1, 画板1.高度 - 纵向位置)
画板1.清除 (横向位置 + 1, 0, 画板1.宽度 - 横向位置, 纵向位置 - 1)
画板1.清除 (横向位置 + 1, 纵向位置 + 1, 画板1.宽度 - 横向位置, 画板1.高度 - 纵向位置)
追问
你这种做法就无法在画板上画线了啊,画的东西会被随后的命令清除。并且,我是要在屏幕上画线,并不是在画板上画。
追答
可以,边画边清,上面是我做成之后复制的代码,留邮箱给你源码,屏幕上的具体怎样我不知道,不过原理应该差不多
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询