易语言自绘扩展列表框

易语言自绘扩展列表框例子。
.如果真 (i ＝ 列表属性.项目总数 ＋ 1) ' 没有找到！
列表属性.点燃项目 ＝ 0
.如果真结束
.计次循环首 (取数组成员数 (内_扩展按钮), i)
处理事件 ()
.如果真 (PtInRectF (扩展矩形转列表矩形 (取项目矩形 (内_扩展按钮 [i].项目索引), 内_扩展按钮 [i].组件区域), 取低位 (lParam) － 矩形 ().left, 取高位 (lParam) － 矩形 ().top))
.如果真 (内_焦点按钮 ＝ i)
跳出循环 ()
.如果真结束
内_焦点按钮 ＝ i
跳出循环 ()