用的这个CTLSTBAR.OCX
CtListBar控件包含了许多很有用的方法和属性。开始实例学习前，我们有必要先对其主要的几个方法和属性了解一番。表一和表二分别列出了几个主要的方法和属性，以及它们的类型、说明。初步了解之后，现在我们就开始实例讲解。
（表一）
方法 返回类型 说明
AddList integer 添加一个新的分组
DeleteList boolean 从控件中删除一个已有分组
AddListItem integer 在一个分组中新添加一个项目
DeleteItem
boolean
在一个分组中删除一个项目
InsertListItem short
在某一分组中的某一位置插入一个新的项目
ClearLists
void
清除控件中的所有分组和项目
（表二）
属性 数据类型 说明
BackImage Picture 设置控件背景图片。利用这个属性，可以实现“皮肤”的功能。
BarHeight integer 设置分组按钮的高度。
BorderType
integer
设置控件的边框样式
BorderColor
long
设置控件的边框颜色，仅当BorderType设置为“0 - Regular”时有效。
ButtonBackColor long
设置分组按钮和上下滚动按钮的颜色。
ButtonForeColor long
设置分组按钮和上下滚动按钮的字体颜色。
ButtonSize integer
设置上下滚动按钮大小。
GradientFill
boolean
设置控件背景是否显示渐变色。
GradColorFrom long
设置渐变色的起始颜色。
GradColorTo long
设置渐变色的结束颜色。
IconSize
integer
设置图标显示模式是大图标或小图标。
Image1-6 Picture
设置预先在控件中加载的6幅图片。
ListBarStyle integer
设置控件纵向或是横向显示。
ListBackColor
long
设置控件的背景颜色。
ListForeColor
long
设置分组中项目文字的颜色。
ListScrollSpeed integer
设置项目滚动的速度。
ItemScrollSpeed integer 设置分组滑动的速度。
语法：Object.CtlistBar1.AddListItem (nIndex,strText,ImageIndex)
例如：thisform.CtlistBar1.AddListItem (1,'我的电脑',thisform.CtListBar1.image1
转自网上
ctlistbar控件使用说明
1、概述
CTLBAR控件是一个可包含icos和bitmaps(用于背影)图象的卷轴式菜单。
CTLBAR控件提供一系列的列表栏(LISTBAR)，每个列表栏(LISTBAR)可添加多达32000个列表条(LIST ITEM)。
(1). 32位CTLBAR控件名：CTLBAR32.OCX
(2). 16位CTLBAR控件名：CTLBAR16.OCX
(3). 许可文件名: ctLstBar.lic
(4). 类名:CtListBarCtrl
2、方法
（1）创建项目窗口
语法：Object.CtlistBar1.AddList('项目窗口1')
（2）在项目窗口中增加按钮
语法：Object.CtlistBar1.AddListImage (nIndex,strText,ImageIndex)
或
Object.CtlistBar1.AddListItem (nIndex,strText,Object.CtlistBar1.ListImage(index))
例如：thisform.CtlistBar1.AddListImage (1,'我的电脑',1)
或
thisform.CtlistBar1.AddListItem (1,'我的电脑',thisform.CtlistBar1.ListImage(1))
含义：表示在第一个项目窗口里增加一个名为“我的电脑”的按钮。
另有一种CtlistBar控件（可能是3.0版本的）的语法稍有不同：
语法：Object.CtlistBar1.AddListItem (nIndex,strText,ImageIndex)
例如：thisform.CtlistBar1.AddListItem (1,'我的电脑',thisform.CtListBar1.image1
各自的Control属性图为：
screen.width-333)this.width=screen.width-333" align=center border=0>
图1
screen.width-333)this.width=screen.width-333" align=center border=0>
图2
上述两种方法可以加在控件的init事件里。
3、属性
（1）GradientFill 属性，默认值.F. 表示项目窗口中的背景色为灰色（即ListBackcolor属性所指定的颜色，如果设为.T.，则项目窗口中的颜色有渐变的效果，如图：
screen.width-333)this.width=screen.width-333" align=center border=0>
图3
screen.width-333)this.width=screen.width-333" align=center border=0>
图4
（2）ListBarStyle 属性，默认值1-Vertical ，表示项目窗口内的按钮竖着排列，另有一种属性值为0-Horizontal，表示按钮横着排列，如图4。
（3）ButtonBackcolor 属性，设置控件“横梁”按钮的背景颜色。
ButtonForecolor 属性，设置控件“横梁”按钮的文字颜色。
GradColorFrom 属性，当GradientFill属性设为.T.时，窗口背景颜色渐变的开始颜色
GradColorTo 属性，当GradientFill属性设为.T.时，窗口背景颜色渐变的结束颜色。
ListBackcolor 属性，当GradientFill属性设为.F.时，项目窗口的背景颜色。
ListForecolor 属性，项目窗口内的文字颜色。
4、事件
（1）ListChange 事件，当单击控件“横梁”时发生的事件，例如：
LPARAMETERS nlist
DO CASE
CASE nlist=1
……
CASE nlist=2
……
EDNCASE
再如：
WITH THISFORM
If (nList = 3) Then
.ctListBar1.BackImage = .ctListBar1.ListImage(8)
.ctListBar1.ListForeColor = RGB(0, 0, 0)
.ctListBar1.GradientFill = .F.
endif
If (nList = 2) Then
.ctListBar1.ClearBackImage
.ctListBar1.ListForeColor = RGB(0, 0, 0)
.ctListBar1.GradientFill = .T.
endif
if ( nList = 1 ) then
.ctListBar1.ClearBackImage
.ctListBar1.ListForeColor = RGB(255, 255, 255)
.ctListBar1.GradientFill = .F.
EndIf
Endwith
该事件通常用来设置控件的外观。
（2）ItemClick 事件，单击项目窗口中的按钮触发此事件。例如：
LPARAMETERS nlist, nitem
DO CASE
Case nlist=1.and.nitem=3
……&&点击第一个项目窗口内第三个按钮执行的语句
Case nlist=2.and.nitem=2
……&&点击第二个项目窗口内第二个按钮执行的语句
ENDCASE
2008-08-20 23:08
