有两处问题大神来帮忙完善下

小马大大

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

是可可吖

判断（窗口_是否存在（聚焦点.取窗口句柄（））≠0）

aipca

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

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

aipca

我运行没有任何问题

小马大大

  

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

' 初始化列表框数据，可根据实际情况修改
列表框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): 找不到指定的对象成员命令名称“取项目高度”。
编译现行易程序失败或被中止!

小马大大

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

可以了 我 加错了  现在好了

aipca

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

小马大大

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:40
帮我完善下   选择列表框   --  现在的代码是 列表框内容选中  删除选中的   现在改了 用 选择列表款  前 ...

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

小马大大

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

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