取图屡阽咆忌片中的图标到画板、到图标组、到超级列表框整体效果如下图:
程序源码如下:
.程序集窗口程序集1
.程序集变量图片号
.程序集变量画板,画板,,"0"
.程序集变量图片组,字节集
.程序集变量个数,整数型
.子程序__启动窗口_创建完毕
图片号=载入图片(#图片1)
画板_图标组.宽度=画板_图标组.取图片宽度(图片号)
画板_图标组.高度=画板_图标组.取图片高度(图片号)
个数=画板_图标组.取图片宽度(图片号)÷画板_图标组.取图片高度(图片号)
调试输出(画板_图标组.取图片宽度(图片号),画板_图标组.取图片高度(图片号),个数)
画板_图标组.画图片(图片号,0,0,,,)
卸载图片(图片号)
图片组=建空图片组(16,16)
.子程序_按钮3_被单击
.局部变量局画板,画板
.局部变量i,整数型
清除数组(画板)
.计次循环首(个数,i)
复制窗口组件(画板_母板,局画板)
加入成员(画板,局画板)
画板[i].可视=真
画板[i].左边=20×i-15
画板[i].自动重画=真
.判断开始(i=1)
画板_图标组.复制(0,0,16,16,画板[i],0,0,)
.判断(i=2)
画板_图标组.复制(16+1,0,16,16,画板[i],0,0,)
.默认
画板_图标组.复制(16×i+1,0,16,16,画板[i],0,0,)
.判断结束
加入图片(图片组,画板[i].取图片(16,16),)
超级列表框1.插入表项(,到文本(i),取随机数(0,个数),,,)
.计次循环尾()
'调试输出(取数组成员数(画板))
调试输出(取图片组图片数(图片组))
'调试输出(写到文件(“r:\a.eil”,图片组))
超级列表框1.图片组=图片组
.图片图片1,,这个是图标图片BMP格式的
源码地址:http://qiannao.com/file/dxdong90811/45b416ec/