VB6控件LISTVIEW使用指南
- 格式:doc
- 大小:26.50 KB
- 文档页数:5
VB中ListView控件属性、方法、事件VB ListView控件属性、方法、事件常用属性:View设置或返回控件的视图类型值说明1-LvwIcon 图标类型2-LvwSmallIcon 小图标类型3-LvwList 列表类型4-LvwReport 报表类型Arrange 设置后返回控件的图标排列方式(在图标视图下有效)值说明1-LvwNone 不排列2-LvwAutoLeft 自动靠右排列3-LvwAutoTop 自动靠左排列Icons、SmallIcons、ColumnHeaderIcons属性Icons指定图标视图时的图标与ImageList的绑定SmallIcons、ColumnHeaderIcons指定列表视图时的图标与ImageList 的绑定PICTURE、PictureAlignment属性分别指定ListView控件的背景图片和布局方式ListItems(Index) 属性ListItems 属性是ListView控件中列表项的集合。
Index用于指定列表项集合中的一个对象,我们可以把这个对象看作对一行的引用ListItems集合的属性1. Text 设置或返回显示文本2. key 关键字3. index 索引编号4. icon , smallicon 不同视图时显示单元格的图标5. checked 给checkboxes 打√6. selected 使处于选定状态7. ListSubitems(index)集合我们可以把这个集合看作对这行中单元格的引用Text 设置或返回单元格显示的内容Reporticon 设置单元格的图标8.Subitems(index) 设置或返回单元格文本== ListSubitems (index).textColumnHeaders(index) 属性ColumnHeaders 属性是ListView控件中列标头的集合1. text 显示标题文本2. key3. index4. icon 指定标题图标5. alignment 指定index列的对齐方式(注意:第一列也就是列表项不能指定)6. position 返回当前列的索引7. subitemindex 返回指定列的listsubitem索引TextBackgroud 属性决定text的背景是透明还是ListView的背景色值0 lvwTransparent 透明1 lvw 不透明(用listview的背景色)Ghosted 属性logic决定是否虚状HideColumnHeaders 属性隐藏表头LabelWrap 属性标签转行/doc/0b10131486.html,rgeIcon 或View.SmallIcon 时才使用该属性FullRowSelect整行显示HotTracking热点追踪鼠标指针自动调整为手型HoverSelection 属性自动聚焦鼠标指针自动调整为手型AllowColumnReorder属性值设置.t.时,用户可以用鼠标选中1列拖至其他地方进行重新排列Sorted属性当值为.t.时,列表按字母排序常用方法:ListItems.add(index,key,text,icon,smallicon)向listitems添加一列表项。
vbalistview复选框优先摘要:1.VBListView 控件概述2.VBListView 的复选框功能3.如何设置VBListView 的复选框优先级4.实际应用示例正文:一、VBListView 控件概述VBListView 是一款功能强大的列表视图控件,广泛应用于各种桌面应用程序和移动应用程序中。
它提供了丰富的属性和事件,以满足不同场景下的需求。
VBListView 控件可以显示一个列表,用户可以通过单击、拖动或键盘导航来选择列表中的项。
二、VBListView 的复选框功能VBListView 控件支持复选框功能,用户可以通过勾选或取消勾选列表中的项来选择多个项目。
复选框功能为列表视图控件提供了更多的交互方式,提高了用户体验。
三、如何设置VBListView 的复选框优先级在VBListView 中,可以通过设置控件的属性来调整复选框的优先级。
具体操作如下:1.打开VBListView 控件的属性编辑器。
2.在属性编辑器中,找到“Options”属性,并单击它。
3.在“Options”属性的列表中,找到“EnableMultiselection”属性,并勾选或取消勾选它。
勾选该属性后,VBListView 控件将启用复选框功能;取消勾选后,将禁用复选框功能。
4.如果需要调整复选框的样式,可以找到“CheckBoxStyle”属性,并设置相应的值。
例如,可以将复选框设置为始终可见(“always”)、仅在鼠标悬停时显示(“whenMouseOver”)或仅在选中时显示(“whenSelected”)。
四、实际应用示例假设我们需要为一个员工名单列表添加复选框功能,以便用户可以选择多个员工进行处理。
vba listview控件用法例子VBA Listview控件用法示例在VBA编程中,Listview控件是一种非常有用的工具,它可以用于显示和管理大量数据。
Listview控件提供了一种可视化的方式来展示数据,并且可以方便地对数据进行排序、筛选和编辑。
以下是一个简单的示例,演示了如何使用VBA中的Listview控件。
首先,我们需要在VBA中添加Listview控件。
步骤如下:1. 打开VBA编辑器(按下Alt+F11)。
2. 在工具箱中找到"Microsoft Windows Common Controls",如果没有找到,可以右键点击工具箱,选择"其他控件",找到并勾选它。
3. 在VBA编辑器中的工具箱中,单击鼠标右键,选择"附加",然后选择"Microsoft Windows Common Controls X.X(其中X.X表示版本号)"。
4. 在工具箱中找到并单击"Listview"控件,然后在用户窗体上绘制一个Listview 控件。
接下来,我们可以使用以下代码示例来演示Listview控件的用法:```vbaPrivate Sub UserForm_Initialize()Dim i As Integer' 设置Listview控件的列标题With ListView1.View = lvwReport.ColumnHeaders.Add , , "姓名".ColumnHeaders.Add , , "年龄".ColumnHeaders.Add , , "性别"End With' 向Listview控件中添加数据With ListView1.ListItemsFor i = 1 To 10' 添加行Set itm = .Add(, , "姓名" & i)' 添加子项itm.SubItems(1) = "年龄" & iitm.SubItems(2) = "性别" & iNext iEnd WithEnd Sub```以上代码首先在用户窗体初始化事件中设置了Listview控件的列标题。
中ListView控件使用详解及案例在中,ListView控件是一个非常强大的控件,它允许用户在Windows窗体应用程序中显示列表数据。
通过使用ListView控件,您可以轻松地展示、编辑和操作数据,并且可以根据需要自定义其外观和行为。
下面将详细介绍ListView控件的使用方法和案例。
一、添加ListView控件首先,您需要在Windows窗体中添加ListView控件。
可以通过拖拽ListView控件从工具箱将其添加到窗体上。
二、设置ListView属性在添加完ListView控件后,您需要设置其属性以定义其外观和行为。
以下是一些常用的属性:1.View:设置ListView的显示方式,可以选择大图标、小图标、列表或详细列表等。
2.FullRowSelect:设置是否选择整行。
3.Sorted:设置是否对ListView进行排序。
belEdit:设置是否允许编辑ListView中的标签。
rgeImageList:设置大图标的图像列表。
6.SmallImageList:设置小图标的图像列表。
7.SelectionMode:设置选择模式,可以选择单选或多选。
三、添加项目在设置完属性后,您需要向ListView中添加项目。
可以通过以下几种方式添加项目:1.手动添加:使用代码逐个添加项目。
例如:ListView1.Items.Add("Item1")。
2.绑定数据源:将数据源绑定到ListView,数据源可以是数组、集合或数据表等。
例如:ListView1.DataSource = dataTable。
3.拖放文件:将文件拖放到ListView中,可以自动创建项目并显示文件名。
四、案例:显示目录中的文件列表下面是一个简单的案例,演示如何使用ListView控件显示目录中的文件列表:1.创建一个Windows窗体应用程序。
2.在窗体上添加一个ListView控件。
3.设置ListView的属性,例如View设置为LargeIcon,SelectionMode设置为Single。
listview使用方法listview是android开发中最常用的控件之一,它可以以列表形式展示数据,并且可以支持用户的滑动和点击操作。
在本篇文章中,我们将介绍listview的使用方法以及常用属性和方法。
1. 布局文件中添加listview在布局文件中添加以下代码,即可创建一个简单的listview。
```<ListViewandroid:id='@+id/list_view'android:layout_width='match_parent'android:layout_height='match_parent' />```2. 创建适配器适配器是listview展示数据的关键。
我们需要创建一个适配器,并在适配器中实现数据的绑定和显示。
```public class MyAdapter extends BaseAdapter {private List<String> mData;public MyAdapter(List<String> data) {mData = data;}@Overridepublic int getCount() {return mData.size();}@Overridepublic Object getItem(int position) {return mData.get(position);}@Overridepublic long getItemId(int position) {return position;}@Overridepublic View getView(int position, View convertView, ViewGroup parent) {ViewHolder viewHolder;if (convertView == null) {convertView =LayoutInflater.from(parent.getContext()).inflate(yout.i tem_layout, parent, false);viewHolder = new ViewHolder();viewHolder.mTextView =convertView.findViewById(R.id.text_view);convertView.setTag(viewHolder);} else {viewHolder = (ViewHolder) convertView.getTag();}viewHolder.mTextView.setText(mData.get(position));return convertView;}private static class ViewHolder {private TextView mTextView;}}```在适配器中,我们通过实现BaseAdapter类的方法来为listview 绑定数据。
excel vba listview用法Excel VBA Listview用法:Excel VBA中的Listview是一种常用的控件,它可以方便地在用户界面中显示和管理大量的数据。
以下是一些关于Excel VBA Listview的常见用法:1. 创建Listview:您可以通过在VBA中使用 "UserForm" 控件来创建Listview控件。
在UserForm设计器中,选择"工具箱",然后选择"Listview"控件,拖动它到UserForm 上。
2. 添加列:使用Listview.Columns.Add方法可以添加列。
您可以指定列的标题、宽度和对齐方式。
3. 添加行:使用Listview.ListItems.Add方法可以添加行。
每一行代表一个列表中的项,您可以指定每个项的值和图标。
4. 设置显示样式:使用Listview.View属性可以设置Listview的显示样式。
常见的样式有"大图标"、"小图标"、"列表"、"详细信息"等。
5. 单击事件:使用Listview的Click事件可以捕获用户单击列表项的动作。
在该事件中,您可以执行相应的操作,如打开某个文件、显示详细信息等。
6. 排序功能:使用Listview.Sort方法可以按列对列表项进行排序。
您可以选择升序或降序排列。
7. 编辑功能:使用Listview的LabelEdit属性可以启用列表项的编辑功能。
用户可以直接在Listview中编辑列表项的值。
8. 删除行:使用Listview.ListItems.Remove方法可以删除列表中的某一行。
请注意,以上只是Excel VBA Listview的一些常见用法,您还可以结合其他VBA代码和功能去进一步定制和扩展Listview的功能。
希望本文对您有所帮助!。
vb listview控件的基本用法VB Listview控件的基本用法[Listview控件的介绍]VB Listview控件是一种在Windows应用程序中常用的控件,它可以显示和编辑一个或多个带有多列的项。
每个项都可以有图标、文本和子项,可以根据需要自定义样式和布局。
Listview控件可以用于显示文件列表、数据库结果集、目录树等等,是开发Windows界面的常用工具之一。
[Listview控件的常见属性]1. Columns属性:列集合,用于定义和管理控件的列。
可以通过Add方法添加新的列,通过Remove方法删除现有的列。
2. Items属性:项集合,用于定义显示在控件中的项。
可以通过Add方法添加新的项,通过Remove方法删除现有的项。
3. SubItems属性:子项集合,用于定义项的子项。
每个项可以有多个子项,每个子项占用一个列的空间。
4. View属性:视图模式,用于定义控件的布局风格。
常见的视图模式有大图标、小图标、列表、详细信息等。
5. FullRowSelect属性:是否在选中项时同时选中整行。
如果设置为True,则选中项时会同时选中所在行的其他列。
6. GridLines属性:是否显示网格线。
如果设置为True,则控件会在列和行之间显示灰色的网格线。
[Listview控件的常见事件]1. ColumnClick事件:当用户单击列标题时触发,可以用于对项进行排序。
2. ItemActivate事件:当用户双击项时触发,可以用于执行双击项的操作。
3. ItemChecked事件:当用户勾选或取消勾选项时触发,可以用于处理选中项的更改。
4. ItemDrag事件:当用户拖动项时触发,可以用于处理拖动项的操作。
5. ItemSelectionChanged事件:当选中项发生更改时触发,可以用于处理选中项的变化。
[Listview控件的基本使用步骤]步骤1:在VB窗体上添加一个Listview控件。
V B L i s t V i e w控件用法集合ListView控件比前面几种控件要复杂一些,通过此控件,可将项目组成带有或不带有列标头的列,并显示伴随的图标和文本。
ListView控件是由ColumnHeader和ListItem对象所组成的,其中ColumnHeader对象的个数决定了控件的列数,而ListItem对象的个数则决定了控件的行数。
(图7)ColumnHeader对象是ListView控件中包含标头文字的项目。
利用ColumnHeader对象,用户可以:▲单击对象触发ColumnClick事件并根据数据项目将项目排序。
▲拖动对象的右边框来调整列宽度。
▲在报表视图中隐藏ColumnHeader对象。
ColumnHeader对象的数目决定每个ListItem对象可包含的子项目数目。
删除ColumnHeader对象后所有与列关联的子项目也将被删除,并且每个ListItem对象的子项目数组将平移以更新ColumnHeader的索引,而这将导致剩余的列标头SubItemIndex属性的改变。
ColumnHeader对象的SubItemIndex属性该属性返回与ListView控件中ColumnHeader对象关联的子项目的索引。
子项目是字符串数组,代表显示在报表视图中的ListItem对象的数据。
第一列的列标头SubItemIndex 属性设置为0,这是因为小图标和ListItem对象的文字总出现在第一列中,而且它们被当作ListItem对象而不是子项目。
列标头数目取决于子项目数目。
列标头数目总是比子项目数目多1。
在设计时可以利用属性页的“列首”选项卡将ColumnHeader对象添加到ListView控件中,在运行时则用Add方法添加。
ColumnHeader对象的Add方法该方法的使用与前面那些控件基本相似,就不再介绍了。
index,key,text,width,alignment)ListItem对象是指控件中的一行(不包含标头行)的所有内容。
在VBA(Visual Basic for Applications)中,ListView控件通常用于显示和操作数据列表。
以下是一些基本的使用方法:1、添加ListView控件:在VBA中,你可以通过设计视图将ListView控件添加到表单或用户窗体中。
2、设置属性:设置ListView控件的属性,如列标题、列宽、背景色等。
3、添加数据:使用AddItem方法向ListView中添加数据。
例如:vbaListView1.AddItem "Item 1"ListView1.AddItem "Item 2"4、设置子项:对于每个主项,你可以设置一个或多个子项。
例如:vba复制代码ListView1.ListItems(0).SubItems(0) = "SubItem 1"ListView1.ListItems(0).SubItems(1) = "SubItem 2"5、处理事件:你可以为ListView控件添加事件处理程序,如单击事件、双击事件等。
6、使用DetailView:你可以使用DetailView属性来设置ListView的显示方式。
默认是ReportView,可以更改为IconView或SmallIconView。
7、排序和筛选:使用Sort方法对ListView中的数据进行排序,使用Filter方法进行筛选。
8、自定义列:你可以自定义列标题,并设置每个列的数据类型和宽度。
9、删除项目:使用RemoveItem方法删除ListView中的特定项目。
例如:vbaListView1.RemoveItem 010、更新数据源:如果ListView控件绑定到一个数据源,你可以使用UpdateData方法来更新数据源。
11、获取选中项:你可以使用SelectedItem或SelectedIndices属性来获取选中的项目或索引。
vblistview控件⽤法VB ListView控件适⽤⽅法ListView控件在⼯具箱上击⿏标右键,选择快捷菜单的Components(部件)项,在控件列表中选择Microsoft Windows Common Controls 5.0控件(Comctl32.ocx),这个控件中包括ListView、TreeView等⼏个Windows 95特有的控件。
如果使⽤的是Visual Basic 6.0,则应该选择Microsoft Windows Common Controls 6.0控件。
将ColumnHeader 对象添加到ListView 控件的ColumnHeaders 集合中。
语法ListView1.ColumnHeaders.Add(index, key, text, width, alignment, icon)Add ⽅法的语法包含下⾯部分:部分描述object 必需的。
对象表达式,其值是ColumnHeaders 集合。
index 可选的。
唯⼀标识对象集合成员的整数。
key 可选的。
唯⼀的字符串表达式,可以⽤来访问集合的成员。
text 可选的。
出现在ColumnHeader 对象中的字符串。
width 可选的。
数值表达式,它使⽤控件容器的度量单位指定对象的宽度。
alignment 可选的。
决定ColumnHeader 对象中⽂本对齐⽅式的整数。
关于设置信息,请参阅“请参阅列表中Alignment 属性的信息。
icon 可选的。
Smallicons 图象列表中图象的关键字或索引。
说明Add ⽅法返回新插⼊的ColumnHeader 对象的引⽤。
使⽤index 参数在ColumnHeaders 集合的特定位置插⼊列标头。
当ColumnHeaders 集合成员可能动态变更时,应使⽤Key 属性引⽤它们,因为任何ColumnHeader 对象的Index 属性都可以改变。
⽰例:ListView1.ListItems.Clear '清空列表ListView1.ColumnHeaders.Clear '清空列表头ListView1.View = lvwReport '设置列表显⽰⽅式ListView1.GridLines = True '显⽰⽹络线ListView1.FullRowSelect = True '选择整⾏ListView1.ColumnHeaders.Add , , "ID", 500 '给列表中添加列名ListView1.ColumnHeaders.Add , , "本地IP", 1500ListView1.ColumnHeaders.Add , , "本地端⼝", 900ListView1.ColumnHeaders.Add , , "协议", 550ListView1.ColumnHeaders.Add , , "远程IP", 1500ListView1.ColumnHeaders.Add , , "远程端⼝", 900ListView1.ColumnHeaders.Add , , "当前状态", 900ListView1.ColumnHeaders.Add , , "连接时间", 900-------------------------------------------------------Dim XX = ListView1.ListItems.Count + 1ListView1.ListItems.Add , , XListView1.ListItems(X).SubItems(1) = "00:00:00"ListView1.ListItems(X).SubItems(2) = "2008-01-01"ListView1.ListItems(X).SubItems(3) = "(⽆)"-------------------------------------------------------ListView1.ListItems.Clear '清空列表ListView1.ListItems.Add , , "1"ListView1.ListItems(1).SubItems(1) = "00:00:00"ListView1.ListItems(1).SubItems(2) = "2008-01-01"ListView1.ListItems(1).SubItems(3) = "(⽆)"ListView1.ListItems.Add , , "2"ListView1.ListItems(2).SubItems(1) = "00:00:01"ListView1.ListItems(2).SubItems(2) = "2008-01-01"ListView1.ListItems(2).SubItems(3) = "(⽆)"-------------------------------------------------------ListView1.View = lvwReport '设置显⽰⽅式为列表ListView1.AllowColumnReorder = True '对⾏进⾏程序排列,⽤⿏标进⾏排列ListView1.Arrange = lvwAutoLeft '图标横排列ListView1.Arrange = lvwAutoTop '图标竖排列ListView1.FlatScrollBar = False '显⽰滚动条ListView1.FlatScrollBar = True '隐藏滚动条ListView1.FullRowSelect = True '选择整⾏ListView1.GridLines = True '显⽰⽹络线/doc/e84a7b12866fb84ae45c8d40.html belWrap = True '图标可以换⾏ListView1.MultiSelect = True '可以选择多个项⽬ListView1.PictureAlignment = lvwTopLeft '图⽚对齐⽅式是左顶部,其他有右顶部(1)、左底部(2)、右底部(3)、居中(4)、平铺(5)ListView1.Checkboxes = True '显⽰复选框ListView1.DropHighlight = ListView1: ListItems.Item (2) '显⽰系统颜⾊获取当前⾏数和列数:MsgBox "⾏数:" & ListView1.ListItems.Count & "列数:" & ListView1.ColumnHeaders.CountPrivate Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) ListView1.ToolTipText = "⾏数:" & ListView1.ListItems.Count & "列数:" &ListView1.ColumnHeaders.CountEnd Sub设置宽度:ListView1.ColumnHeaders.Add , , "备注" ,1500当前选中⾏:msgbox ListView1.SelectedItem.index获取复选框的值:msgbox ListView1.ListItems(1).Checked删除指定⾏:ListView1.ListItems.Remove 1去掉⿏标左键点击标签编辑:labeledit属性改为1读取某⾏第⼀列内容:ListView1.ListItems(i).Text读取某⾏第⼏列内容(不包括第⼀列):ListView1.ListItems(Num).SubItems(4)读取当前选中⾏第⼀列内容:ListView1.ListItems(ListView1.SelectedItem.Index).Text循环查找读取项⽬:Dim i As IntegerFor i = 1 To ListView1.ListItems.CountIf ListView1.ListItems(i).Text = 4 Then MsgBox ListView1.ListItems(i).Text '第⼀列If ListView1.ListItems(i).SubItems(1) = 4 Then MsgBox ListView1.ListItems(i).SubItems(1) '第⼆列Next i清空列表头:ListView1.ColumnHeaders.Clear清空列表:ListView1.ListItems.Clear右键菜单:Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)If Button = vbRightButton Then PopupMenu CommandLst '按下⿏标右键显⽰菜单End Sub当前选中判断:Dim NIf ListView1.ListItems.Count <> 0 Then N = ListView1.SelectedItem.Index Else MsgBox "当前没有任何主机在线!", vbInformation, "警告:": Exit SubIf N < 1 Then MsgBox "你没有选中任何主机!", vbInformation, "警告:": Exit SubVB设置某⾏为选中/⾮选中状态:ListView.ListItems(i).Selected = True '选中第i⾏ListView.ListItems(i).Selected = False '选中第i⾏⼀、View 属性ListView 控件作为⼀个可以显⽰图标或者⼦项的列表控件,它最重要的属性就是View属性,该属性决定了以哪种视图模式显⽰控件的项,这四种视图模式分别如下:[art_myurl]1、LartIcon:⼤图标视图模式,在项的⽂本旁显⽰⼤的图标,在控件宽度⾜够的情况下,项是如图⼀中的盘符⼀样优先以平⾏排列的,排列不完的则⾃动换⾏显⽰在新⾏中。
功---- VB6无疑是当前最先进的编程工具之一,无论是它的代码编写还是与视窗98的完美结合, 都令人们特别是程序员们赞叹不已。
在这里,我将自己在编程实践中对LISTVIEW控件的一些使用经验和心得体会与广大的同仁们作以探讨,希望大家批评指正,或者有所借鉴。
---- 在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)
ListView1.BorderStyle = ccFixedSingle;边界类型ListView1.SmallIcons = ImageList1 ;
关联图标仓库ImageList1
For Counter = 0 To File1.ListCount - 1 Fname = File1.List(Counter);
获取当前目录下符合条件的文件名
Set itmX = ListView1.ListItems.Add(,
, Fname)’文件名称栏目
itmX.SubItems(1) = CStr(Counter + 1) +
"/" + CStr(File1.ListCount)’文件在列表框位置
itmX.SubItems(2) = CStr(FileLen(Fname));
文件长度
itmX.SmallIcon = 1;列表项目图标
itmX.SubItems(3) = Format(FileDateTime(Fname),
"hh:mm yyyy/MMMM/dd");文件创建时间
Next Counter
ListView1.View = lvwReport;报表类型
ListView1.Arrange = 0
belWrap = False
Dir1.ToolTipText = "当前目录是:" & Dir1.Path
END SUB
双击驱动器列表框,输入以下代码:
Private Static Sub Drive1_Change()
On Error GoTo IFerr;拦截错误
Dir1.Path = Drive1.Drive;关联目录列表框
Exit Sub
IFerr:;如果磁盘错误
MsgBox ("请确认驱动器是否准备好或者磁盘已经不可用!"),
vbOKOnly + vbExclamation
;弹出注意对话框
Drive1.Drive=Dir1.Path;忽略驱动器改变
End Sub
双击目录列表框,输入以下代码:
Private Static Sub Dir1_Change()
File1.Path = Dir1.Path;关联文件列表框
If Right(Dir1.Path, 1) < > "\" Then
CurrentDir = Dir1.Path & "\"
Else
CurrentDir = Dir1.Path
End If;设置选定的目录名称
ListView1.ListItems.Clear;清除过期的列表项目
For Counter = 0 To File1.ListCount - 1
Fname = File1.List(Counter)
Set itmX = ListView1.ListItems.Add
(, , Fname);添加文件名
itmX.SubItems(1) = CStr(Counter + 1) + "/"
+ CStr(File1.ListCount)
itmX.SubItems(2) = CStr(FileLen(CurrentDir & Fname)) itmX.SmallIcon = 1
itmX.SubItems(3) = Format(FileDateTime(CurrentDir
& Fname), "HH:MM YYYY/MMMM/DD")
Next Counter;添加增强列表框的各个项目
Dir1.ToolTipText = "当前目录是:" & Dir1.Path;提示
End Sub
---- 通过以下代码取得鼠标单击增强列表框返回的项目名称:Private Sub ListView1_ItemClick(ByVal Item As
MSComctlLib.ListItem)
allfname = Item;文件名
dname= CurrentDir& Item;完整的路径和文件名
sElectmain = ListView1.SelectedItem.Index;文件序号
End Su。