---- 在VB6专业版或者企业版中,LISTVIEW控件并不是默认的工具箱的配置项目,你必须要手工添加---单击"工程"菜单项目,选择"部件",在部件对话框的"控件"栏目中选择"MICROSOFT WINDOWS COMMON CONTROLS 6.0",确认在它前面的复选框中有一个黑色的对号,单击"确认" 按钮,这时你的工具箱中便添加了几个控件,其中,有五个空心圆圈的便是LISTVIEW控件了, 当然怎么把它添加到窗体上就不用我多说了吧。

 ---- 我个人认为,作为一个增强功能的列表框,它的本质是用来显示更多的信息的.因此, 在这篇文章中,我着重介绍它VIEW属性的LVWREPORT(报表)值的使用.至于它的外观怎样设计,诸位当然可以随心所欲了.为了直观一点,我举一个应用实例来说明。

 ---- 设计完成后的主界面参见图一,它实际上是一个增强功能的文件浏览器。

 ---- 首先新建一个标准EXE工程,主窗体名称为FRMMAIN,添加一个驱动器列表框DRIVE1,一个文件列表框FILE1（设置VISIBLE属性FALES，PATTERN属性(*.EXE；*.DLL)），一个目录列表框DIR1,一个增强列表框LISTVIEW1,一个IMAGE控件IMAGE1和一个IMAGELIST控件IMALIST1，在IMALIST1控件上单击右键,设计IMAGELIST控件，添加一个你最喜欢的图标（最好使用ICON图标），索引为一。在主窗体FRMMAIN的通用声明段输入以下代码：

Dim clmX As ColumnHeader；标题栏

Dim itmX As ListItem；列表项目

Dim Counter As Long；计数器

Dim Fname As String；读取文件名

Dim dname As String；增强列表框完整路径名称

Public CurrentDir As String；完整的目录名称

在主窗体的LOAD事件中写入以下代码：

Private Sub Form_Load()

Me.Caption = App.Title;

窗体的标题为生成可执行文件的标题

Me.Left = (Screen.Width - Me.Width) / 2

Me.Top = (Screen.Height - Me.Height) / 2；

窗体位置在屏幕中间

ListView1.ColumnHeaders.Add , , "文件名称",ListView1.Width /  3, 0 '第一个标题栏是“文件名称“,长度为ListView1宽度的三分之一,文字左对齐

Set clmX = ListView1.ColumnHeaders.Add(, , "序号", ListView1.Width / 5, 2)’第二个标题栏是“序号“  依次往下

Set clmX = ListView1.ColumnHeaders.Add(, , "文件大小  ", ListView1.Width / 4, 1)

Set clmX = ListView1.ColumnHeaders.Add(, , "创建时间", ListView1.Width / 3, 0)

[1] [2] [3] 下一页