第一步：首先启动Visual Basic 6.0，新建一个窗口，修改窗口的Caption属性为你喜欢的名字，如“我的QQ菜单”。
　　
　　第二步：加载CtListBar控件，设置其属性。

　　①在控件工具栏中单击右键，选择“部件”，在弹出的窗口中点击“浏览”，找到CtListBar控件，载入它；把它添加到Form1窗体中，用鼠标拖动调整其大小。

　　②修改Caption属性为“我的好友”。Caption属性值将是菜单第一个分组的名称。

　　③修改ListBackColor属性。实例中我们借用了QQ的头像图片，设置属性值为&H00808000&，是背景颜色与图片背景吻合。

　　④在Images属性中载入图片。CtListBar控件本身可以载入6幅图片，这里我们从QQ的头像中载入6幅图片（如图1）。

　　　　　　　　　　　　　　　

　　⑤其余属性可以参照表2，依你自己的喜好设置。这里我们采用默认值。

　　小技巧：虽然CtListBar控件只能载入6幅图片，但是我们可以用其他方法使CtListBar控件可以使用更多的图片，如使用PictureBox控件、ImageList控件等。

　　第三步：添加其他控件，完成界面的设置。

　　在窗体中添加5个CommandButton，将名称分别设置为cmd_AddList、cmd_DelList、cmd_AddItem、cmd_DelItem、cmd_Insert；将Caption属性依次设置为“添加分组”、“删除分组”、“添加项目”、“删除项目”、“插入项目”。　

　　到这里，界面的设置就搞掂了，完成后如图2。
　

　　第四步：接下来，我们就开始代码的编写，实现具体的功能。

　　①声明4个全局变量。

Dim strListName, strItemName As String 　　Dim intListNum, intItemNum As Integer

　
　　②CtListBar控件不能预先设置好分组和项目，只能动态的添加，所以我们在Form_Load()事件中加入代码，添加结果分组和项目。

ctListBar1.AddList "陌生人" ctListBar1.AddList "黑名单" ctListBar1.AddListItem 1, "My heart", ctListBar1.Image1 ctListBar1.AddListItem 1, "第七乐章", ctListBar1.Image2 ctListBar1.AddListItem 1, "小A", ctListBar1.Image3 ctListBar1.AddListItem 1, "小B", ctListBar1.Image4 ctListBar1.AddListItem 1, "张三", ctListBar1.Image5 ctListBar1.AddListItem 1, "李四", ctListBar1.Image6

　　

欢迎访问最专业的网吧论坛,无盘论坛,网吧经营,网咖管理,网吧专业论坛 https://bbs.txwb.com 关注天下网吧微信/下载天下网吧APP/天下网吧小程序，一起来超精彩