|
*-- 说明：以默认方式将一个LISTBOX控件拖到一个表单上，
* 那么下列代码就可以往这个LISTBOX里添加带有图片
* 的项目了。
*-- 定义8个LIST里的项目名称，以及他们的图片名称
dime content(8,2)
content(1,1) = "第一页"
content(2,1) = "上一页"
content(3,1) = "下一页"
content(4,1) = "末一页"
content(5,1) = "打印设置"
content(6,1) = "报表打印"
content(7,1) = "报表属性"
content(8,1) = "关闭报表"
content(1,2) = "btnHome"
content(2,2) = "btnPrev"
content(3,2) = "btnNext"
content(4,2) = "btnEnd"
content(5,2) = "btnSetup"
content(6,2) = "btnPrint"
content(7,2) = "btnProp"
content(8,2) = "btnClose"
*-- 循环加入这8个项目的名称及指定他们的图片，默认扩展名是BMP的。
With Thisform.List1
For n = 1 to 8
.AddItem(content(n,1))
.Picture(n) = content(n,2) + ".bmp"
EndFor
EndWith
注：上述代码是用在列表框的（即LISTBOX），那么如果要应用在下拉列表框中，如何呢？
只需要将List改成Combo即可，属性设置都为默认值即可！
|
