CTLBAR控件是一个可包含icos和bitmaps(用于背影)图象的卷轴式菜单。
CTLBAR控件提供一系列的列表栏(LISTBAR),每个列表栏(LISTBAR)可添加多达32000个列表条(LIST ITEM)。
1. 32位CTLBAR控件名:CTLBAR32.OCX
2. 16位CTLBAR控件名:CTLBAR32.OCX
3. 许可文件名: ctLstBar.lic
4. 类名:CctListBarCtrl
方法:
1. 创建控件
a. 我们可以查看ACCESS的帮助文档,象使用其它可视化控件一样在自己的窗体上添加一个CTLBAR控件,
b. 使用ADDLIST方法来添加自己的LISTBAR
当我们在窗体上添加了TCLBAR控件后,只能看到一个LISTBAR,我们可以在程式
中使用ADDLIST方法来添加自己的LISTBAR.
nList = ctListBar.AddList "Properties"
c. 添加LIST之后就要在使用"AddListItem方法来添加"LIST ITEM".
ctListBar.AddListItem nList, "Item Text",ctListBar.imageN
也可使用"InsertListItem 方法添加"LISTITEM项目
ctListBar.InsertListItem nList, nPosn, "Item Text", Pic1.Image1
注意:所添加的图标尺寸最好是32*32,对大于32*32的图标该控件对其进行缩小.而不是
剪割.
d. clearlists 该方法将移除控件中所有的LISTBAR及LISTITEM
语法:[FROM.]ctListBar.ClearLists
ctListBar.ClearLists
e. DeleteItem 该方法将删除控件中某一个LISTBAR中的一个LIST ITEM
返回一个BOOLEAN值来确定LIST ITEM是否被删除。
语法:[FORM.]ctListBar.DeleteItem(nList,nItem)
nList 要删除的LIST ITEM所在的LISTBAR序号
nItem 所要删除的LIST ITEM的序号
示例:bSuccess = ctListBar.DeleteItem(2,3)
f. DeleteList 用方法同DeleteItem
示例:bSuccess = ctListBar.DeleteItem(2)
2.事件
标准事件:
CLICK 鼠标单击控件的空白区域时发生。
DBLCLICK 鼠标双击控件的空白区域时发生。
MOUSEDOWN 鼠标在控件的空白区域按下时发生,发生在CLICK事件之前。
MOUSEUP 鼠标在控件的空白区域松开时发生,发生在CLICK事件之前并判断按下的是哪一个鼠标键。
MOUSEMOVE 鼠标在控件的空白区域移动时发生,发生在CLICK事件之前。
非标准事件:
CTRERROR 获得控件错误时发生。
错误代码:
32000 - 内存不足
32001 - 不能再添加list 或 Item.
32002 - 添加的list 或Item多于32000个.
32203 - list 索引错误.
32004 - Item 索引错误.
DRAGITEM 在列表中拖动时发生。
DropITEM 在列表中拖放后发生。
ITEMCLICK 单击一个LISTITEM时发生。
LISTCHANGE 选择一个新的LISTBAR时发生。
未完待续
Access软件网交流QQ群(群号:198465573) |