1、 ListViewTag(Initialize) = ListViewTagName Initialize = Initialize + 1Exit FunctionONERROR: If Err.Number 0 Then Select Case Err.Number Case Else MsgBox 错误代码: & Err.Number & 错误描述: Err.Description, vbExclamation, 初始化 Erase ListViewTag End SelectEnd Function入口参数;ListView1 是ListView控件对象.HeadArray() 是个二
2、维变体数组IsCheckBoxes 是否要显示复选框ListView 控件初始化为报表格式 可通用初始化ListView控件Private Function ListViewInitialize(ByRef ListView1 As ListView, ByRef HeadArray() As Variant, ByVal IsCheckBoxes As Boolean)Dim itmX As ListItem 定义一个ListItem对象Dim clmX As ColumnHeader 添加 ColumnHeaders。列宽度等于控件的宽度 ListView1.ListItems.Clear
3、 刷新ListView控件 ListView1.View = lvwReport 报表格式 ListView1.Gridlines = True 确定在“报表”视图中ListView控件是否显示网格线 ListView1.BorderStyle = ccFixedSingle 返回或设置对象的边框样式 ListView1.FullRowSelect = True 是否选择整行 Select Case IsCheckBoxes Case Is = True ListView1.CheckBoxes = True 是否显示复选框 For i = LBound(HeadArray) To UBoun
4、d(HeadArray) Set clmX = ListView1.ColumnHeaders.Add(, , HeadArray(i, 0), HeadArray(i, 1) Set itmX = Nothing Set clmX = Nothing Erase HeadArray 清空内存空间ListView1 是控件名称ArrayValue 是动态数组添加数据到ListView控件中Public Function InisFile(ByRef ListView1 As ListView, ByRef ArrayValue() As Variant) For i = LBound(Arra
5、yValue) To UBound(ArrayValue) Select Case i Case 0 Set itmX = ListView1.ListItems.Add(, , ArrayValue(i) 文件名称 Select Case TypeName(ArrayValue(i) Case Date itmX.SubItems(i) = Format(ArrayValue(i), yyyy-m-d) 文件属性日期 itmX.SubItems(i) = ArrayValue(i) 文件路径 Select Case ArrayValue(i)取消复制, 创建目录目录更改 itmX.ListS
6、ubItems.Item(i).ForeColor = vbRed 0xFF 红色 vbBlue DoEvents 转让控制权给系统 Erase ArrayValue If Err.Number For R = 1 To ListView1.ListItems.Count If Col = 1 Then 如果是指定第一列的值 Temp = ListView1.ListItems(R).Text 获取当前行的第一列的文本 Temp = ListView1.ListItems(R).SubItems(Col) 获取当前行的指定的列的文本值转移控制权 执行比较 If StrComp(Trim(Tem
7、p), Col_Value, vbBinaryCompare) = 0 Then 找到相同值,就退出函数 MsgBox Col_Value & 已经被添加到待禁止运行界面中,不需要重复添加!, vbExclamation, 提示 Remove_Repeat_Value = True Exit Function Remove_Repeat_Value = False 循环完成 如果没有找到相同值则返回假 Remove_Repeat_Value = False指定列的值是否重复输入不要删除下面所有注释的行。 Dim strFindMe As String strFindMe = ListView2.ListItems(ListView2.SelectedItem.Index).Text 获取选定行的第一列的文本FindItem 方法返回找到的项目的引用,所以必须创建对象变量并将找到的项目设置给它。 Dim itmFound As ListItem “FoundItem 变量” Set itmFound = ListView1.FindItem(Col_Value, lvwText, , lvwPartial)
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1