易语言设置超级列表框下拉菜单,表项弹出选择框

易语言 2020-08-18 20:36:01

易语言设置超级列表框下拉菜单,表项弹出选择框

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