易语言屏蔽超级列表框滚动条源码

易语言屏蔽超级列表框滚动条源码

.版本 2
.支持库 iext

.程序集 启动窗口程序集
.程序集变量 i, 整数型

.子程序 __启动窗口_创建完毕
.局部变量 a, 整数型

默认窗口 ＝ SetWindowLongA (超级列表框1.取窗口句柄 (), -4, &处理)
置随机数种子 ()
.计次循环首 (8, )
    a ＝ 超级列表框1.插入表项 (, 到文本 (取随机数 (10000, 99999)), , , , )
    超级列表框1.置标题 (a, 1, 到文本 (取随机数 (10000, 99999)))
.计次循环尾 ()


.子程序 处理, 整数型, , 不要修改该子程序的返回值及参数的类型！
.参数 句柄, 整数型
.参数 消息, 整数型
.参数 参数1, 整数型
.参数 参数2, 整数型

.如果真 (消息 ＝ 131)
    返回 (1)
.如果真结束
返回 (CallWindowProcA (默认窗口, 句柄, 消息, 参数1, 参数2))

.子程序 _按钮1_被单击
.局部变量 a, 整数型

i ＝ i ＋ 1
a ＝ 超级列表框1.插入表项 (, “新插入” ＋ 到文本 (i), , , , )
超级列表框1.置标题 (a, 1, 到文本 (取随机数 (10000, 99999)))


.子程序 _按钮2_被单击

超级列表框1.发送信息 (277, 0, 0)


.子程序 _按钮3_被单击

超级列表框1.发送信息 (277, 1, 0)

@易语言源码分享站