超级列表框选中之后的虚线怎么去掉呢

13714528766

  

子程序名	返回值类型	公开	备 注
_超级列表框1_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
表项坐标	坐标
i	整数型

表项信息.横向 ＝ 横向位置
表项信息.纵向 ＝ 纵向位置
取表项结构信息 (超级列表框1.取窗口句柄 (), 4153, 0, 表项信息)  ' 当前取表项行、列位置
输出调试文本 (“行：” ＋ 到文本 (表项信息.行))
输出调试文本 (“列：” ＋ 到文本 (表项信息.列))
输出调试文本 (“----------------------------------”)
如果真 (表项信息.列 ＝ 3)
如果真 (表项信息.行 ≠ -1)
取表项坐标信息 (超级列表框1.取窗口句柄 (), 4096 ＋ 16, 表项信息.行, 表项坐标)  ' 取出当前表项行列坐标点
组合框1.顶边 ＝ 超级列表框1.顶边 ＋ 表项坐标.y ＋ 1
组合框1.左边 ＝ 表项坐标.x ＋ 超级列表框1.左边
如果真 (表项信息.列 ＝ 0)
组合框1.左边 ＝ 表项坐标.x ＋ 超级列表框1.左边
计次循环首 (表项信息.列, i)
组合框1.左边 ＝ 组合框1.左边 ＋ 超级列表框1.取列宽 (i － 1)
计次循环尾 ()
组合框1.宽度 ＝ 超级列表框1.取列宽 (表项信息.列)
组合框1.内容 ＝ 超级列表框1.取标题 (表项信息.行, 表项信息.列)
组合框1.可视 ＝ 真
超级列表框1.禁止重画 ()
组合框1.获取焦点 ()
组合框1.被选择字符数 ＝ -1  ' 全选中编辑框中的内容

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _超级列表框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 表项坐标, 坐标<br /> .局部变量 i, 整数型<br /> <br /> 表项信息.横向 ＝ 横向位置<br /> 表项信息.纵向 ＝ 纵向位置<br /> 取表项结构信息 (超级列表框1.取窗口句柄 (), 4153, 0, 表项信息)  ' 当前取表项行、列位置<br /> 输出调试文本 (“行：” ＋ 到文本 (表项信息.行))<br /> 输出调试文本 (“列：” ＋ 到文本 (表项信息.列))<br /> 输出调试文本 (“----------------------------------”)<br /> .如果真 (表项信息.列 ＝ 3)<br />     .如果真 (表项信息.行 ≠ -1)<br />         取表项坐标信息 (超级列表框1.取窗口句柄 (), 4096 ＋ 16, 表项信息.行, 表项坐标)  ' 取出当前表项行列坐标点<br />         组合框1.顶边 ＝ 超级列表框1.顶边 ＋ 表项坐标.y ＋ 1<br />         组合框1.左边 ＝ 表项坐标.x ＋ 超级列表框1.左边<br /> <br /> <br />         .如果真 (表项信息.列 ＝ 0)<br />             组合框1.左边 ＝ 表项坐标.x ＋ 超级列表框1.左边<br />         .如果真结束<br />         .计次循环首 (表项信息.列, i)<br />             组合框1.左边 ＝ 组合框1.左边 ＋ 超级列表框1.取列宽 (i － 1)<br />         .计次循环尾 ()<br />         组合框1.宽度 ＝ 超级列表框1.取列宽 (表项信息.列)<br />         组合框1.内容 ＝ 超级列表框1.取标题 (表项信息.行, 表项信息.列)<br />         组合框1.可视 ＝ 真<br />         超级列表框1.禁止重画 ()<br />         组合框1.获取焦点 ()<br />         组合框1.被选择字符数 ＝ -1  ' 全选中编辑框中的内容

小白子

强迫症是病，得治

13714528766

lixuhui2468 发表于 2019-8-28 12:51
强迫症是病，得治

指点下

小白子

13714528766 发表于 2019-8-28 12:56
指点下

代码执行完后，将现行选中项赋值为-1

灵海雪缘

强迫症是病，得治

|bingbing|

说出来你可能不相信，只要再放一个分组框在旁边（可视真假都行），就可以了

13714528766

lixuhui2468 发表于 2019-8-28 12:58
代码执行完后，将现行选中项赋值为-1

好了,非常感谢,给你打赏10个金币

13714528766

lixuhui2468 发表于 2019-8-28 12:58
代码执行完后，将现行选中项赋值为-1

左键点击之后,好像还是有虚线

小白子

13714528766 发表于 2019-8-28 13:49
左键点击之后,好像还是有虚线

那试一下把焦点传递给其他组件

零碎不堪

代码执行完后，将现行选中项赋值为-1