精易论坛

标题: 有两处问题大神来帮忙完善下 [打印本页]

---

作者: 小马大大    时间: 2025-2-26 18:55
标题: 有两处问题大神来帮忙完善下

Desktop.rar (1.16 MB, 下载次数: 3)

2025-2-26 18:54 上传

点击文件名下载附件

@aipca

---

作者: aipca    时间: 2025-2-26 18:55

  

子程序名	返回值类型	公开	备 注
_退出定位_被选择

如果真 (是否已创建 (聚焦点))
聚焦点.销毁 ()
返回 ()

.版本 2<br /> <br /> .子程序 _退出定位_被选择<br /> <br /> .如果真 (是否已创建 (聚焦点))<br />     聚焦点.销毁 ()<br /> .如果真结束<br /> 返回 ()

列表框不能单独为某一行设置背景色。

---

作者: 小马大大    时间: 2025-2-26 19:00
标注点哪里 二次标注同个点 者取消当前以标注点

---

作者: 小马大大    时间: 2025-2-26 19:35

aipca 发表于 2025-2-26 19:24

  

子程序名	返回值类型	公开	备 注
_退出定位_被选择

[/quote]
[e=1].版本 2

子程序名	返回值类型	公开	备 注
_退出定位_被选择

聚焦点.销毁 (真)  ' 立即销毁

.版本 2<br /> <br /> .子程序 _退出定位_被选择</blockquote></div><br /> [e=1].版本 2<br /> <br /> .子程序 _退出定位_被选择<br /> <br /> 聚焦点.销毁 (真)  ' 立即销毁

运行 跟我的一样     没有先运行 聚焦点窗口  直接点 退出定位  弹错误  

---

作者: 小马大大    时间: 2025-2-26 19:38
在没 聚焦点 未启动  提示 聚焦点未启动   这样可以 决绝  系统弹的这个错误

---

作者: 小马大大    时间: 2025-2-26 19:44

aipca 发表于 2025-2-26 19:24
[e=1].版本 2

.子程序 _退出定位_被选择

---

作者: 是可可吖    时间: 2025-2-26 19:47
表示没看懂你的问题

---

作者: 小马大大    时间: 2025-2-26 20:00
鼠标拖动位置 把   位置坐标显示在 标签4 里

---

作者: 小马大大    时间: 2025-2-26 20:02
鼠标拖动焦点窗口位置把位置坐标显示在 标签4 里

---

作者: aipca    时间: 2025-2-26 20:05

小马大大 发表于 2025-2-26 19:35
.版本 2

.子程序 _退出定位_被选择

要判断窗口是否已经被创建或打开啊
如果真 (是否已创建 (聚焦点))

---

作者: 小马大大    时间: 2025-2-26 20:21

aipca 发表于 2025-2-26 20:05
要判断窗口是否已经被创建或打开啊
如果真 (是否已创建 (聚焦点))

---

作者: 是可可吖    时间: 2025-2-26 22:21
判断（窗口_是否存在（聚焦点.取窗口句柄（））≠0）

---

作者: aipca    时间: 2025-2-26 22:26

小马大大 发表于 2025-2-26 20:21

你是不是还保留了那个错误的“退出定位_被单击”的子程序？删除它再试

---

作者: aipca    时间: 2025-2-26 22:31

我运行没有任何问题

---

作者: 小马大大    时间: 2025-2-26 22:44

  

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

' 初始化列表框数据，可根据实际情况修改
列表框1.加入项目 (“选项 1”, )

子程序名	返回值类型	公开	备 注
_列表框1_鼠标左键按下	逻辑型

变量名	类 型	静态	数组	备 注
当前选中索引	整数型

' 获取当前选中项的索引
当前选中索引 ＝ 列表框1.现行选中项
' 将当前选中项的索引存储在列表框的标记属性中
列表框1.标记 ＝ 当前选中索引
返回 (假)

子程序名	返回值类型	公开	备 注
_列表框1_鼠标移动	逻辑型

变量名	类 型	静态	数组	备 注
鼠标所在项目索引	整数型
之前选中索引	整数型
鼠标左键是否按下	逻辑型
项目高度	整数型
可视项数	整数型
移动位置	整数型
纵向位置	整数型

' 判断鼠标左键是否按下
鼠标左键是否按下 ＝ 位与 (功能键状态, 1) ＝ 1
' 获取之前记录的选中项索引
之前选中索引 ＝ 列表框1.标记
' 获取列表框的项目高度
项目高度 ＝ 列表框1.取项目高度 ()
' 获取列表框的可视项数
可视项数 ＝ 列表框1.取可视项目数 ()
' 获取列表框的滚动位置
滚动位置 ＝ 列表框1.滚动位置
' 计算鼠标所在项目的索引
鼠标所在项目索引 ＝ 纵向位置 ÷ 项目高度 + 移动位置
' 判断鼠标所在项目索引是否在有效范围内
如果 (鼠标所在项目索引 < 0 或 鼠标所在项目索引 >= 列表框1.取项目数 ())
鼠标所在项目索引 ＝ -1



' 判断鼠标左键按下、鼠标在列表框内且之前有选中项
如果 (鼠标左键是否按下 且 鼠标所在项目索引 ≠ -1 且 之前选中索引 ≠ -1)
' 选中鼠标所在的项目
列表框1.现行选中项 ＝ 鼠标所在项目索引


返回 (假)

子程序名	返回值类型	公开	备 注
_列表框1_鼠标左键弹起	逻辑型

' 鼠标左键弹起后，重置列表框的标记属性
列表框1.标记 ＝ -1
返回 (假)

.版本 2<br /> <br /> .子程序 _启动窗口_创建完毕<br /> <br /> ' 初始化列表框数据，可根据实际情况修改<br /> 列表框1.加入项目 (“选项 1”, )<br /> <br /> .子程序 _列表框1_鼠标左键按下, 逻辑型<br /> .局部变量 当前选中索引, 整数型<br /> <br /> ' 获取当前选中项的索引<br /> 当前选中索引 ＝ 列表框1.现行选中项<br /> ' 将当前选中项的索引存储在列表框的标记属性中<br /> 列表框1.标记 ＝ 当前选中索引<br /> 返回 (假)<br /> <br /> .子程序 _列表框1_鼠标移动, 逻辑型<br /> .局部变量 鼠标所在项目索引, 整数型<br /> .局部变量 之前选中索引, 整数型<br /> .局部变量 鼠标左键是否按下, 逻辑型<br /> .局部变量 项目高度, 整数型<br /> .局部变量 可视项数, 整数型<br /> .局部变量 移动位置, 整数型<br /> .局部变量 纵向位置, 整数型<br /> <br /> ' 判断鼠标左键是否按下<br /> 鼠标左键是否按下 ＝ 位与 (功能键状态, 1) ＝ 1<br /> ' 获取之前记录的选中项索引<br /> 之前选中索引 ＝ 列表框1.标记<br /> ' 获取列表框的项目高度<br /> 项目高度 ＝ 列表框1.取项目高度 ()<br /> ' 获取列表框的可视项数<br /> 可视项数 ＝ 列表框1.取可视项目数 ()<br /> ' 获取列表框的滚动位置<br /> 滚动位置 ＝ 列表框1.滚动位置<br /> <br /> ' 计算鼠标所在项目的索引<br /> 鼠标所在项目索引 ＝ 纵向位置 ÷ 项目高度 + 移动位置<br /> <br /> ' 判断鼠标所在项目索引是否在有效范围内<br /> .如果 (鼠标所在项目索引 < 0 或 鼠标所在项目索引 >= 列表框1.取项目数 ())<br />     鼠标所在项目索引 ＝ -1<br /> .否则<br /> <br /> .如果结束<br /> <br /> ' 判断鼠标左键按下、鼠标在列表框内且之前有选中项<br /> .如果 (鼠标左键是否按下 且 鼠标所在项目索引 ≠ -1 且 之前选中索引 ≠ -1)<br />     ' 选中鼠标所在的项目<br />     列表框1.现行选中项 ＝ 鼠标所在项目索引<br /> .否则<br /> <br /> .如果结束<br /> 返回 (假)<br /> <br /> .子程序 _列表框1_鼠标左键弹起, 逻辑型<br /> <br /> ' 鼠标左键弹起后，重置列表框的标记属性<br /> 列表框1.标记 ＝ -1<br /> 返回 (假)

提示     

正在预处理现行程序
错误(36): 找不到指定的对象成员命令名称“取项目高度”。
编译现行易程序失败或被中止!

---

作者: 小马大大    时间: 2025-2-26 22:49

aipca 发表于 2025-2-26 22:31
我运行没有任何问题

可以了 我 加错了  现在好了

---

作者: aipca    时间: 2025-2-27 10:08
改成超级列表框来实现标红，用了扩展界面支持库一Ex的免费功能，【扩展界面支持库一Ex】4.2.131 2025-01-31更新_精易论坛。

33.e

2025-2-27 10:05 上传

点击文件名下载附件

979.37 KB, 下载次数: 1

---

作者: 小马大大    时间: 2025-2-27 13:40

aipca 发表于 2025-2-27 10:08
改成超级列表框来实现标红，用了扩展界面支持库一Ex的免费功能，【扩展界面支持库一Ex】4.2.131 2025-01-31 ...

帮我完善下   选择列表框   --  现在的代码是 列表框内容选中  删除选中的   现在改了 用 选择列表款  前的框被勾选后 点删除，删除所勾选的内容

  

子程序名	返回值类型	公开	备 注
_删除内容1_被单击

变量名	类 型	静态	数组	备 注
当前选中项	整数型
下一项索引	整数型

' 先检查列表框是否为空
如果真 (列表框1.取项目数 () ＝ 0)
信息框 (“删除数据失败，请先导入数据在操作！”, 0, “提示”, )
返回 ()  ' 直接返回，不执行后续删除操作

' 获取当前列表框 1 中选中项的索引
当前选中项 ＝ 列表框1.现行选中项
' 判断是否有选中项
如果 (当前选中项 ≠ -1)
' 计算删除当前项后下一项的索引
下一项索引 ＝ 当前选中项
' 删除选中项
列表框1.删除项目 (当前选中项)
' 判断列表框中是否还有项目
如果 (列表框1.取项目数 () ＞ 0)
' 若下一项索引超出列表框项目数量，将其设为最后一项索引
如果 (下一项索引 ≥ 列表框1.取项目数 ())
下一项索引 ＝ 列表框1.取项目数 () － 1


' 选中下一项
列表框1.现行选中项 ＝ 下一项索引
' 若删除后列表框为空，不做选中操作

信息框 (“请先选中要删除的内容在操作！”, 0, “提示”, )

.版本 2<br /> <br /> .子程序 _删除内容1_被单击<br /> .局部变量 当前选中项, 整数型<br /> .局部变量 下一项索引, 整数型<br /> <br /> ' 先检查列表框是否为空<br /> .如果真 (列表框1.取项目数 () ＝ 0)<br />     信息框 (“删除数据失败，请先导入数据在操作！”, 0, “提示”, )<br />     返回 ()  ' 直接返回，不执行后续删除操作<br /> .如果真结束<br /> <br /> ' 获取当前列表框 1 中选中项的索引<br /> 当前选中项 ＝ 列表框1.现行选中项<br /> <br /> ' 判断是否有选中项<br /> .如果 (当前选中项 ≠ -1)<br />     ' 计算删除当前项后下一项的索引<br />     下一项索引 ＝ 当前选中项<br /> <br />     ' 删除选中项<br />     列表框1.删除项目 (当前选中项)<br /> <br />     ' 判断列表框中是否还有项目<br />     .如果 (列表框1.取项目数 () ＞ 0)<br />         ' 若下一项索引超出列表框项目数量，将其设为最后一项索引<br />         .如果 (下一项索引 ≥ 列表框1.取项目数 ())<br />             下一项索引 ＝ 列表框1.取项目数 () － 1<br />         .否则<br /> <br />         .如果结束<br />         ' 选中下一项<br />         列表框1.现行选中项 ＝ 下一项索引<br />     .否则<br />         ' 若删除后列表框为空，不做选中操作<br />     .如果结束<br /> <br /> .否则<br />     信息框 (“请先选中要删除的内容在操作！”, 0, “提示”, )

---

作者: 小马大大    时间: 2025-2-27 13:47

小马大大 发表于 2025-2-27 13:40
帮我完善下   选择列表框   --  现在的代码是 列表框内容选中  删除选中的   现在改了 用 选择列表款  前 ...

能外加一个  鼠标左键选中 选择列表框内容下拉选中的内容 被选中

---

作者: 小马大大    时间: 2025-2-27 13:50

小马大大 发表于 2025-2-27 13:47
能外加一个  鼠标左键选中 选择列表框内容下拉选中的内容 被选中

那个 聚焦点的窗口 显示 屏幕的 图 背景可以用 透明的吗?

---

作者: aipca    时间: 2025-2-27 14:02

  

计次循环首 (超级列表框1.取表项数 (), i)
判断 (超级列表框1.取选择框选中状态 (i － 1) ＝ 真)
超级列表框1.删除表项 (i － 1)



计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     .判断开始 (超级列表框1.取选择框选中状态 (i － 1) ＝ 真)<br />         超级列表框1.删除表项 (i － 1)<br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()

---

作者: aipca    时间: 2025-2-27 14:35
透明效果不太好，估计是图片处理的不好，有条件的可以用EXUI的玻璃效果，上面的删除不对，做了修改

33.e

2025-2-27 14:34 上传

点击文件名下载附件

982.42 KB, 下载次数: 3

---

作者: aipca    时间: 2025-2-27 14:55
图片简单的重新处理了一下 没有了毛边，替换一下

无毛边图.zip

2025-2-27 14:54 上传

点击文件名下载附件

3.68 KB, 下载次数: 1

---

作者: 小马大大    时间: 2025-2-27 16:14
问题1

问题2



问题3   拖动时将坐标显示在 当前坐标下的标签上

---

作者: 小马大大    时间: 2025-2-27 16:30

小马大大 发表于 2025-2-27 16:14
问题1

问题2

问题2那的 问题是 ：鼠标下拉则是 选中  可以实现批量删除操作

---

作者: 小马大大    时间: 2025-2-27 16:34
问题2:是  鼠标下拉 选中内容 来实现批量删除   问题1是  显示出来的 背景可以实现背景透明吗

---

作者: 小马大大    时间: 2025-2-27 16:38
屏幕坐标读取思路.e (981.38 KB, 下载次数: 0)

2025-2-27 16:38 上传

点击文件名下载附件

保存配置.txt (142 Bytes, 下载次数: 0)

2025-2-27 16:38 上传

点击文件名下载附件

---

作者: aipca    时间: 2025-3-1 12:53

小马大大 发表于 2025-2-27 16:34
问题2:是  鼠标下拉 选中内容 来实现批量删除   问题1是  显示出来的 背景可以实现背景透明吗 ...

上面的附件不都给你解决了吗？

---

作者: 小马大大    时间: 2025-3-1 18:47

aipca 发表于 2025-3-1 12:53
上面的附件不都给你解决了吗？

鼠标左键按住下拉则是 选中  可以实现批量删除操作  超级列表框 前的框勾选

---

作者: aipca    时间: 2025-3-3 12:06

  

子程序名	返回值类型	公开	备 注
_聚焦点_位置被改变

变量名	类 型	静态	数组	备 注
坐标位	文本型

坐标位 ＝ 子文本替换 (全局_超级列表框1.取标题 (全局_超级列表框1.现行选中项, 0), 文本_取右边 (全局_超级列表框1.取标题 (全局_超级列表框1.现行选中项, 0), “X:”, ), 到文本 (取鼠标垂直位置 ()), , , 真)
坐标位 ＝ 坐标位 ＋ “ Y：” ＋ 到文本 (取鼠标水平位置 ())
全局_超级列表框1.置标题 (全局_超级列表框1.现行选中项, 0, 坐标位)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _聚焦点_位置被改变<br /> .局部变量 坐标位, 文本型<br /> <br /> 坐标位 ＝ 子文本替换 (全局_超级列表框1.取标题 (全局_超级列表框1.现行选中项, 0), 文本_取右边 (全局_超级列表框1.取标题 (全局_超级列表框1.现行选中项, 0), “X:”, ), 到文本 (取鼠标垂直位置 ()), , , 真)<br /> 坐标位 ＝ 坐标位 ＋ “ Y：” ＋ 到文本 (取鼠标水平位置 ())<br /> 全局_超级列表框1.置标题 (全局_超级列表框1.现行选中项, 0, 坐标位)

你要的坐标随定位变动。

---

作者: 小马大大    时间: 2025-3-4 09:36

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4