acCmdDocMinimize 最小化ACCESS子窗体
acCmdAppMinimize 最小化ACCESS窗体
acCmdDocMaximize 最大化ACCESS子窗体
acCmdQueryTotals 总计查询
acCmdAutoDial 自动拔选择的电话号码
acCmdFont 字体
acCmdSubdatasheetExpandAll 子数据表全部展开
acCmdSubdatasheetCollapseAll 子数据表全部收缩
acCmdQueryTypeAppend 追加查询
acCmdRegisterActiveXControls 注册ACTIVEX控件
acCmdProperties 属性
acCmdReferences 引用参照
acCmdRenameColumn 重命名列
acCmdRename 重命名
acCmdStopLoadingPage 中止一个网页的加载
acCmdEnd 中止程序运行
acCmdBringToFront 至于最前
acCmdStepToCursor 执行到光标处
acCmdPasteAppend 粘贴为新记录
acCmdPasteAsHyperlink 粘贴为超级链接
acCmdPaste 粘贴
acCmdVerticalSpacingIncrease 增加选择对象的间距
acCmdHorizontalSpacingIncrease 增加水平间距
acCmdBookmarksToggle 增加/删除一条书签
acCmdFormHdrFtr 增加/删除页眉页脚
acCmdReportHdrFtr 增加/删除报表页眉页脚
acCmdOpenNewHyperlink 在新窗口中打开超级链接联接的项目
acCmdViewModules 在数据库窗口中显示模块
acCmdViewMacros 在数据库窗口中显示宏
acCmdViewQueries 在数据库窗口中显示查询
acCmdViewReports 在数据库窗口中显示报表
acCmdViewList 在数据窗体按列表方式显示项目
acCmdViewLargeIcons 在数据窗体按大图标方式显示项目
acCmdArrangeIconsByName 在数据窗体按阿拉伯字母顺序排列图标
acCmdSelectDataAccessPage 在设计状态下选择整个数据页
acCmdSelectForm 在设计状态下选择整个窗体
acCmdNewObjectDiagram 在设计窗口中打开一个新的图表
acCmdSaveModuleAsText 在模块窗体时打开文件另存对话框
acCmdLineUpIcons 在列中排列图标
acCmdHideTable 在关系窗口中隐藏表
acCmdClearAll 在关系窗口中删除所有的表

acCmdMoreWindows 在对话框中显示窗体列表
acCmdPreviewOnePage 在打印预览中显示为一页
acCmdPreviewFourPages 在打印预览中显示为四页
acCmdPreviewTwelvePages 在打印预览中显示为十二页
acCmdPreviewTwoPages 在打印预览中显示为两页
acCmdPreviewEightPages 在打印预览中显示为八页
acCmdViewShowPaneGrid 在查询设计视图中切换网格面板的显示
acCmdViewShowPaneDiagram 在查询设计视图中切换关系面板的显示
acCmdViewShowPaneSQL 在查询设计视图中切换SQL面板的显示
acCmdInsertQueryColumn 在查询设计视图中插入列
acCmdViewVerifySQL 在查询设计时校验SQL语法
acCmdTableNames 在查询设计器中切换是否显示表名
acCmdQueryGroupBy 在查询设计器中切换分组的显示与否
acCmdSpelling 运行拼写检查器
acCmdRunOpenMacro 运行宏
acCmdRun 运行查询
acCmdEditHyperlink 允许编辑超链接
acCmdApplyFilterSort 应用你在过滤设计窗体输入的过滤条件
acCmdHideColumns 隐藏列
acCmdWindowHide 隐藏获得焦点的窗体
acCmdSend 以缺省的邮件系统发送选择的对象
acCmdBookmarksNext 移至下一条书签
acCmdBookmarksPrevious 移至上一条书签
acCmdRemoveTable 移去表
acCmdDocMove 移动ACCESS子窗体
acCmdRecordsGoToLast 移到最后一条记录
acCmdRecordsGoToNext 移到下一条记录
acCmdRecordsGoToPrevious 移到上一条记录
acCmdRecordsGoToFirst 移到第一条记录
acCmdSubdatasheetRemove 移除子数据表
acCmdTransparentBackground 移除窗体的背景
acCmdCompactDatabase 压缩数据库
acCmdSelectReport 选择整个报表
acCmdSelectAllRecords 选择所有记录
acCmdSelectRecord 选择当前记录
acCmdSelectAll 选择窗口中的所有内容
acCmdQueryTypeSelect 选择查询
acCmdRepairDatabase 修复数据库
acCmdRowHeight 行高
acCmdRecordsGoToNew 新增一条记录
acCmdNewObjectDataAccessPage 新建数据页
acCmdNewDatabase 新建数据库
acCmdNewObjectView 新建视图
acCmdNewObjectClassModule 新建模块
acCmdNewObjectModule 新建模块
acCmdNewObjectFunction 新建函数
acCmdNewGroup 新建工作组
acCmdNewObjectForm 新建窗体
acCmdNewObjectQuery 新建查询
acCmdNewObjectTable 新建表
acCmdNewObjectReport 新建报表
acCmdVerticalSpacingMakeEqual 相同选择对象的间距
acCmdAutoCorrect 显示自动纠正窗口
acCmdAutoFormat 显示自动格式对话框
acCmdToolbarsCustomize 显示自定义工具栏对话框
acCmdShowTable 显示增加表窗口
acCmdUserLevelSecurityWizard 显示用户级安全向导对话框
acCmdUserAndGroupAccounts 显示用户和组帐号对话框
acCmdUserAndGroupPermissions 显示用户和组权限对话框
acCmdAnalyzePerformance 显示性能分析向导窗口
QQ的界面大家都不陌生吧？CtListBar就是一个十分优秀的第三方控件，利用它我们可以很轻松的做出一个象QQ一样的界面。这节中，我们将通过对CtListBar控件基本使用方法的学习，参照一个实例，打造出一个很酷的QQ菜单。

　　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 设置分组滑动的速度。 

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

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

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

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

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

Private Sub ctListBar0_ItemClick(ByVal nList As Integer, ByVal nItem As Integer)
Dim strArgument As String
    strArgument = ctListBar0.ItemText(nList, nItem)
    Select Case strArgument
    Case "计算器"
         Dim stAppName As String
         stAppName = "calc.exe"
         Call Shell(stAppName, 1)
    Case "发货查询"
         DoCmd.OpenForm "窗体1"
    Case "支付查询"
         DoCmd.OpenForm "窗体2"
    Case "退出系统"
         DoCmd.Close acForm, Me.Name
    Case Else
    End Select
End Sub