如何实现这种框选效果

fss851736

怎么实现这种框选标签的效果

atomd510

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
组件	外形框	5
坐标	坐标
按下鼠标左键	逻辑型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
n	整数型

置随机数种子 ()
外形框1.可视 ＝ 假
计次循环首 (5, n)
复制窗口组件 (外形框1, 组件 [n])
组件 [n].左边 ＝ 取随机数 (画板1.宽度 － 组件 [n].宽度, 0)
组件 [n].顶边 ＝ 取随机数 (画板1.高度 － 组件 [n].高度, 0)
组件 [n].可视 ＝ 真
组件 [n].调整层次 ( #次高层 )
计次循环尾 ()
按下鼠标左键 ＝ 假
画板1.自动重画 ＝ 真
画板1.获取焦点 ()
时钟2.时钟周期 ＝ 20

子程序名	返回值类型	公开	备 注
_时钟2_周期事件

变量名	类 型	静态	数组	备 注
n	整数型

如果真 (测试虚拟键_ ( #单击左键 ) ≠ 0 且 按下鼠标左键 ＝ 假)
坐标.起始x ＝ 取鼠标水平位置 () － _启动窗口.左边 － 画板1.左边
坐标.起始y ＝ 取鼠标垂直位置 () － _启动窗口.顶边 － 画板1.顶边 － 14
如果真 (测试虚拟键_ ( #单击左键 ) ≠ 0)
计次循环首 (取数组成员数 (组件), n)
组件 [n].背景颜色 ＝ #透明
计次循环尾 ()
坐标.实时x ＝ 取鼠标水平位置 () － _启动窗口.左边 － 画板1.左边
坐标.实时y ＝ 取鼠标垂直位置 () － _启动窗口.顶边 － 画板1.顶边 － 14
画板1.清除 (0, 0, 画板1.宽度, 画板1.高度)
画板1.画矩形 (坐标.起始x, 坐标.起始y, 坐标.实时x, 坐标.实时y)
调试输出 (坐标.起始x, 坐标.起始y)
按下鼠标左键 ＝ 真
如果真 (测试虚拟键_ ( #单击左键 ) ＝ 0 且 按下鼠标左键 ＝ 真)
按下鼠标左键 ＝ 假
坐标.结束x ＝ 取鼠标水平位置 () － _启动窗口.左边 － 画板1.左边
坐标.结束y ＝ 取鼠标垂直位置 () － _启动窗口.顶边 － 画板1.顶边
计次循环首 (取数组成员数 (组件), n)
如果真 (组件 [n].左边 ≥ 坐标.起始x 且 组件 [n].左边 ＋ 组件 [n].宽度 ≤ 坐标.结束x 或 组件 [n].左边 ≤ 坐标.起始x 且 组件 [n].左边 ＋ 组件 [n].宽度 ≥ 坐标.结束x)
如果真 (组件 [n].顶边 ≥ 坐标.起始y 且 组件 [n].顶边 ≤ 坐标.结束y 或 组件 [n].顶边 ≤ 坐标.起始y 且 组件 [n].顶边 ≥ 坐标.结束y)
组件 [n].背景颜色 ＝ #红色


计次循环尾 ()
画板1.清除 (0, 0, 画板1.宽度, 画板1.高度)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 组件, 外形框, , "5"<br /> .程序集变量 坐标, 坐标<br /> .程序集变量 按下鼠标左键, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 n, 整数型<br /> <br /> 置随机数种子 ()<br /> 外形框1.可视 ＝ 假<br /> .计次循环首 (5, n)<br />     复制窗口组件 (外形框1, 组件 [n])<br />     组件 [n].左边 ＝ 取随机数 (画板1.宽度 － 组件 [n].宽度, 0)<br />     组件 [n].顶边 ＝ 取随机数 (画板1.高度 － 组件 [n].高度, 0)<br />     组件 [n].可视 ＝ 真<br />     组件 [n].调整层次 (#次高层)<br /> .计次循环尾 ()<br /> <br /> 按下鼠标左键 ＝ 假<br /> <br /> <br /> 画板1.自动重画 ＝ 真<br /> 画板1.获取焦点 ()<br /> 时钟2.时钟周期 ＝ 20<br /> <br /> .子程序 _时钟2_周期事件<br /> .局部变量 n, 整数型<br /> <br /> .如果真 (测试虚拟键_ (#单击左键) ≠ 0 且 按下鼠标左键 ＝ 假)<br /> <br />     坐标.起始x ＝ 取鼠标水平位置 () － _启动窗口.左边 － 画板1.左边<br />     坐标.起始y ＝ 取鼠标垂直位置 () － _启动窗口.顶边 － 画板1.顶边 － 14<br /> <br /> .如果真结束<br /> .如果真 (测试虚拟键_ (#单击左键) ≠ 0)<br />     .计次循环首 (取数组成员数 (组件), n)<br />         组件 [n].背景颜色 ＝ #透明<br />     .计次循环尾 ()<br /> <br />     坐标.实时x ＝ 取鼠标水平位置 () － _启动窗口.左边 － 画板1.左边<br />     坐标.实时y ＝ 取鼠标垂直位置 () － _启动窗口.顶边 － 画板1.顶边 － 14<br /> <br />     画板1.清除 (0, 0, 画板1.宽度, 画板1.高度)<br />     画板1.画矩形 (坐标.起始x, 坐标.起始y, 坐标.实时x, 坐标.实时y)<br /> <br />     调试输出 (坐标.起始x, 坐标.起始y)<br /> <br />     按下鼠标左键 ＝ 真<br /> .如果真结束<br /> .如果真 (测试虚拟键_ (#单击左键) ＝ 0 且 按下鼠标左键 ＝ 真)<br />     按下鼠标左键 ＝ 假<br /> <br />     坐标.结束x ＝ 取鼠标水平位置 () － _启动窗口.左边 － 画板1.左边<br />     坐标.结束y ＝ 取鼠标垂直位置 () － _启动窗口.顶边 － 画板1.顶边<br />     .计次循环首 (取数组成员数 (组件), n)<br />         .如果真 (组件 [n].左边 ≥ 坐标.起始x 且 组件 [n].左边 ＋ 组件 [n].宽度 ≤ 坐标.结束x 或 组件 [n].左边 ≤ 坐标.起始x 且 组件 [n].左边 ＋ 组件 [n].宽度 ≥ 坐标.结束x)<br />             .如果真 (组件 [n].顶边 ≥ 坐标.起始y 且 组件 [n].顶边 ≤ 坐标.结束y 或 组件 [n].顶边 ≤ 坐标.起始y 且 组件 [n].顶边 ≥ 坐标.结束y)<br />                 组件 [n].背景颜色 ＝ #红色<br /> <br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     画板1.清除 (0, 0, 画板1.宽度, 画板1.高度)<br /> <br /> .如果真结束

Zixue

这一看就是webui ,网页

fss851736

Zixue 发表于 2025-7-10 01:26
这一看就是webui ,网页

不是网页的 就是一个易软件里面的效果

花间一壶酒

fss851736 发表于 2025-7-10 06:04
不是网页的 就是一个易软件里面的效果

他的意思是 webui  也就是 在软件里运行一个浏览器 然后做个网页界面

绿色的雨

在顶层画图，鼠标经过的地方变色，可以解决

冷渣渣

fss851736 发表于 2025-7-10 06:04
不是网页的 就是一个易软件里面的效果

易语言软件套的网页  易语言原生组件搞不了这个

白十二

你说的应该是这个

白十二

白十二 发表于 2025-7-10 10:01
你说的应该是这个

附件发不上来，论坛搜索Gdi内存画板，

fss851736

白十二 发表于 2025-7-10 10:05
附件发不上来，论坛搜索Gdi内存画板，

怎么弄哥